Resident data ends at a31c, program starts at a31c, file ends at 3f3dc

Starting analysis pass at address a31a

End of analysis pass, low address = a31c, high address = 2d8cc

[Start of code at a31c]

Main routine a31c, 0 locals

 a31d:  8f 34 ce                CALL_1N         d338
 a320:  b0                      RTRUE

Routine a324, 7 locals

 a325:  8f 34 ae                CALL_1N         d2b8
 a328:  0d 04 00                STORE           L03,#00
 a32b:  42 04 0a 00 11          JL              L03,#0a [FALSE] a33f
 a330:  70 02 04 00             LOADB           L01,L03 -> -(SP)
 a334:  e2 2b 60 4a 04 00       STOREB          #604a,L03,(SP)+
 a33a:  95 04                   INC             L03
 a33c:  8c ff ee                JUMP            a32b
 a33f:  e2 97 01 00 78          STOREB          L00,#00,#78
 a344:  e2 97 02 00 40          STOREB          L01,#00,#40
 a349:  da 0f a2 82 01 07       CALL_2N         28a08 (#0107)
 a34f:  8f b0 f8                CALL_1N         2c3e0
 a352:  0d ff 00                STORE           Gef,#00
 a355:  e2 97 01 01 00          STOREB          L00,#01,#00
 a35a:  8f b5 55                CALL_1N         2d554
 a35d:  e4 af 01 02 ff          READ            L00,L01 -> Gef
 a362:  50 02 01 03             LOADB           L01,#01 -> L02
 a366:  41 03 00 00 0c          JE              L02,#00 [FALSE] a375
 a36b:  f9 07 a2 82 01 06 0a    CALL_VN         28a08 (#0106,#0a)
 a372:  8c ff b5                JUMP            a328
 a375:  4f 02 01 05             LOADW           L01,#01 -> L04
 a379:  c1 83 05 8e 5c 8f 2b 00 05
                               JE              L04,"o","oops" [FALSE] a385
 a382:  8c 00 9a                JUMP            a41d
 a385:  c1 8f 05 9f 84 00 55    JE              L04,"undo" [FALSE] a3df
 a38c:  d0 1f 5e 4e 01 00       LOADB           #5e4e,#01 -> -(SP)
 a392:  41 00 01 00 4a          JE              (SP)+,#01 [FALSE] a3df
 a397:  41 18 01 00 0c          JE              G08,#01 [FALSE] a3a6
 a39c:  f9 07 a2 82 01 06 0b    CALL_VN         28a08 (#0106,#0b)
 a3a3:  8c ff 84                JUMP            a328
 a3a6:  41 3d 00 00 0c          JE              G2d,#00 [FALSE] a3b5
 a3ab:  f9 07 a2 82 01 06 06    CALL_VN         28a08 (#0106,#06)
 a3b2:  8c ff 75                JUMP            a328
 a3b5:  41 3d 01 00 05          JE              G2d,#01 [FALSE] a3bd
 a3ba:  8c 00 1a                JUMP            a3d5
 a3bd:  41 7c 01 00 0c          JE              G6c,#01 [FALSE] a3cc
 a3c2:  f9 07 a2 82 01 06 0c    CALL_VN         28a08 (#0106,#0c)
 a3c9:  8c ff 5e                JUMP            a328
 a3cc:  be 0a ff 04             RESTORE_UNDO    -> L03
 a3d0:  41 04 00 00 09          JE              L03,#00 [FALSE] a3dc
 a3d5:  f9 07 a2 82 01 06 07    CALL_VN         28a08 (#0106,#07)
 a3dc:  8c ff 4b                JUMP            a328
 a3df:  be 09 ff 04             SAVE_UNDO       -> L03
 a3e3:  0d 7c 00                STORE           G6c,#00
 a3e6:  0d 3d 02                STORE           G2d,#02
 a3e9:  c1 8f 04 ff ff 00 05    JE              L03,#ffff [FALSE] a3f3
 a3f0:  0d 3d 00                STORE           G2d,#00
 a3f3:  41 04 00 00 05          JE              L03,#00 [FALSE] a3fb
 a3f8:  0d 3d 01                STORE           G2d,#01
 a3fb:  41 04 02 00 1d          JE              L03,#02 [FALSE] a41b
 a400:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
 a403:  da 2f 38 57 11          CALL_2N         e15c (G01)
 a408:  b2 ...                  PRINT           "
"
 a40b:  f1 7f 00                SET_TEXT_STYLE  ROMAN
 a40e:  f9 07 a2 82 01 06 0d    CALL_VN         28a08 (#0106,#0d)
 a415:  0d 7c 01                STORE           G6c,#01
 a418:  8c ff 0f                JUMP            a328
 a41b:  ab 03                   RET             L02
 a41d:  41 51 00 00 0c          JE              G41,#00 [FALSE] a42c
 a422:  f9 07 a2 82 01 06 0e    CALL_VN         28a08 (#0106,#0e)
 a429:  8c fe fe                JUMP            a328
 a42c:  41 03 01 00 0c          JE              L02,#01 [FALSE] a43b
 a431:  f9 07 a2 82 01 06 0f    CALL_VN         28a08 (#0106,#0f)
 a438:  8c fe ef                JUMP            a328
 a43b:  43 03 02 00 0c          JG              L02,#02 [FALSE] a44a
 a440:  f9 07 a2 82 01 06 10    CALL_VN         28a08 (#0106,#10)
 a447:  8c fe e0                JUMP            a328
 a44a:  4f 02 03 06             LOADW           L01,#03 -> L05
 a44e:  4f 02 04 07             LOADW           L01,#04 -> L06
 a452:  0d 04 00                STORE           L03,#00
 a455:  42 04 0a 00 12          JL              L03,#0a [FALSE] a46a
 a45a:  d0 2f 60 4a 04 00       LOADB           #604a,L03 -> -(SP)
 a460:  e2 ab 02 04 00          STOREB          L01,L03,(SP)+
 a465:  95 04                   INC             L03
 a467:  8c ff ed                JUMP            a455
 a46a:  36 02 51 00             MUL             #02,G41 -> -(SP)
 a46e:  55 00 01 05             SUB             (SP)+,#01 -> L04
 a472:  e1 ab 02 05 06          STOREW          L01,L04,L05
 a477:  54 05 01 00             ADD             L04,#01 -> -(SP)
 a47b:  e1 ab 02 00 07          STOREW          L01,(SP)+,L06
 a480:  ab 03                   RET             L02

Routine a484, 10 locals

 a485:  41 36 01 00 1e          JE              G26,#01 [FALSE] a4a6
 a48a:  0d 06 00                STORE           L05,#00
 a48d:  42 06 08 00 12          JL              L05,#08 [FALSE] a4a2
 a492:  cf 2f 61 54 06 00       LOADW           #6154,L05 -> -(SP)
 a498:  e1 ab 01 06 00          STOREW          L00,L05,(SP)+
 a49d:  95 06                   INC             L05
 a49f:  8c ff ed                JUMP            a48d
 a4a2:  0d 36 00                STORE           G26,#00
 a4a5:  b0                      RTRUE
 a4a6:  41 68 01 00 22          JE              G58,#01 [FALSE] a4cb
 a4ab:  0d 68 00                STORE           G58,#00
 a4ae:  0d 06 00                STORE           L05,#00
 a4b1:  42 06 40 00 13          JL              L05,#40 [FALSE] a4c7
 a4b6:  d0 2f 5f a8 06 00       LOADB           #5fa8,L05 -> -(SP)
 a4bc:  e2 2b 5e 4e 06 00       STOREB          #5e4e,L05,(SP)+
 a4c2:  95 06                   INC             L05
 a4c4:  8c ff ec                JUMP            a4b1
 a4c7:  bb                      NEW_LINE
 a4c8:  8c 00 0a                JUMP            a4d3
 a4cb:  f9 03 28 c9 5d d5 5e 4e CALL_VN         a324 (#5dd5,#5e4e)
 a4d3:  d0 1f 5e 4e 01 43       LOADB           #5e4e,#01 -> G33
 a4d9:  0d 42 01                STORE           G32,#01
 a4dc:  8f b0 f9                CALL_1N         2c3e4
 a4df:  d0 1f 5e 4e 01 43       LOADB           #5e4e,#01 -> G33
 a4e5:  42 3e 04 80 6d          JL              G2e,#04 [TRUE] a555
 a4ea:  b2 ...                  PRINT           "[ "
 a4ef:  e6 bf 43                PRINT_NUM       G33
 a4f2:  b2 ...                  PRINT           " to parse: "
 a4fb:  0d 06 01                STORE           L05,#01
 a4fe:  63 06 43 80 4f          JG              L05,G33 [TRUE] a550
 a503:  55 06 01 00             SUB             L05,#01 -> -(SP)
 a507:  56 00 02 00             MUL             (SP)+,#02 -> -(SP)
 a50b:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 a50f:  cf 2f 5e 4e 00 07       LOADW           #5e4e,(SP)+ -> L06
 a515:  41 07 00 00 08          JE              L06,#00 [FALSE] a520
 a51a:  b2 ...                  PRINT           "? "
 a51d:  8c 00 2d                JUMP            a54b
 a520:  0f 00 04 00             LOADW           #00,#04 -> -(SP)
 a524:  e0 2b 34 37 07 00 00    CALL_VS         d0dc (L06,(SP)+) -> -(SP)
 a52b:  42 00 00 80 17          JL              (SP)+,#00 [TRUE] a545
 a530:  0f 00 02 00             LOADW           #00,#02 -> -(SP)
 a534:  e0 2b 34 37 07 00 00    CALL_VS         d0dc (L06,(SP)+) -> -(SP)
 a53b:  42 00 00 00 07          JL              (SP)+,#00 [FALSE] a545
 a540:  a7 07                   PRINT_ADDR      L06
 a542:  8c 00 05                JUMP            a548
 a545:  e6 bf 07                PRINT_NUM       L06
 a548:  b2 ...                  PRINT           " "
 a54b:  95 06                   INC             L05
 a54d:  8c ff b0                JUMP            a4fe
 a550:  b2 ...                  PRINT           "]
"
 a555:  0d 45 01                STORE           G35,#01
 a558:  2d 28 19                STORE           G18,G09
 a55b:  2d 29 11                STORE           G19,G01
 a55e:  0d 7b 00                STORE           G6b,#00
 a561:  0d 6e 00                STORE           G5e,#00
 a564:  0d 75 00                STORE           G65,#00
 a567:  cd 4f 72 ff ff          STORE           G62,#ffff
 a56c:  2d 42 45                STORE           G32,G35
 a56f:  88 33 d0 44             CALL_1S         cf40 -> G34
 a573:  c1 8f 44 ff ff 00 08    JE              G34,#ffff [FALSE] a580
 a57a:  0d 6a 01                STORE           G5a,#01
 a57d:  8c 09 0f                JUMP            ae8d
 a580:  c1 8f 44 82 f8 00 07    JE              G34,"g" [FALSE] a58c
 a587:  cd 4f 44 74 10          STORE           G34,"again"
 a58c:  c1 8f 44 74 10 00 80    JE              G34,"again" [FALSE] a611
 a593:  61 28 19 80 3e          JE              G18,G09 [TRUE] a5d4
 a598:  b2 ...                  PRINT           "To repeat a command like
"frog, jump", just say "again", not "frog, again".
"
 a5d1:  8c fe f9                JUMP            a4cb
 a5d4:  d0 1f 5f e9 01 00       LOADB           #5fe9,#01 -> -(SP)
 a5da:  41 00 00 00 18          JE              (SP)+,#00 [FALSE] a5f5
 a5df:  b2 ...                  PRINT           "You can hardly repeat that.
"
 a5f2:  8c fe d8                JUMP            a4cb
 a5f5:  0d 06 00                STORE           L05,#00
 a5f8:  42 06 40 00 13          JL              L05,#40 [FALSE] a60e
 a5fd:  d0 2f 5f e9 06 00       LOADB           #5fe9,L05 -> -(SP)
 a603:  e2 2b 5e 4e 06 00       STOREB          #5e4e,L05,(SP)+
 a609:  95 06                   INC             L05
 a60b:  8c ff ec                JUMP            a5f8
 a60e:  8c fe c4                JUMP            a4d3
 a611:  c1 8f 44 74 10 80 1b    JE              G34,"again" [TRUE] a631
 a618:  0d 06 00                STORE           L05,#00
 a61b:  42 06 40 00 13          JL              L05,#40 [FALSE] a631
 a620:  d0 2f 5e 4e 06 00       LOADB           #5e4e,L05 -> -(SP)
 a626:  e2 2b 5f e9 06 00       STOREB          #5fe9,L05,(SP)+
 a62c:  95 06                   INC             L05
 a62e:  8c ff ec                JUMP            a61b
 a631:  41 7b 00 00 73          JE              G6b,#00 [FALSE] a6a7
 a636:  e0 27 34 7a 28 0f 06    CALL_VS         d1e8 (G18,#0f) -> L05
 a63d:  42 3e 02 80 2d          JL              G2e,#02 [TRUE] a66d
 a642:  51 28 0f 00             GET_PROP        G18,#0f -> -(SP)
 a646:  c1 93 00 00 ff ff 80 21 JE              (SP)+,#00,#ffff [TRUE] a66d
 a64e:  b2 ...                  PRINT           " [Grammar property returned "
 a665:  e6 bf 06                PRINT_NUM       L05
 a668:  b2 ...                  PRINT           "]
"
 a66d:  42 06 00 00 09          JL              L05,#00 [FALSE] a679
 a672:  2d 7b 45                STORE           G6b,G35
 a675:  35 00 06 06             SUB             #00,L05 -> L05
 a679:  41 06 01 00 12          JE              L05,#01 [FALSE] a68e
 a67e:  e1 9b 01 00 2a          STOREW          L00,#00,G1a
 a683:  e1 9b 01 01 30          STOREW          L00,#01,G20
 a688:  e1 9b 01 02 31          STOREW          L00,#02,G21
 a68d:  b0                      RTRUE
 a68e:  41 06 00 80 0c          JE              L05,#00 [TRUE] a69d
 a693:  2d 44 06                STORE           G34,L05
 a696:  96 42                   DEC             G32
 a698:  96 45                   DEC             G35
 a69a:  8c 00 09                JUMP            a6a4
 a69d:  2d 42 45                STORE           G32,G35
 a6a0:  88 33 bc 44             CALL_1S         cef0 -> G34
 a6a4:  8c 00 05                JUMP            a6aa
 a6a7:  0d 7b 00                STORE           G6b,#00
 a6aa:  41 44 00 80 0f          JE              G34,#00 [TRUE] a6bc
 a6af:  50 44 06 00             LOADB           G34,#06 -> -(SP)
 a6b3:  49 00 01 00             AND             (SP)+,#01 -> -(SP)
 a6b7:  41 00 00 01 65          JE              (SP)+,#00 [FALSE] a81f
 a6bc:  2d 42 45                STORE           G32,G35
 a6bf:  e0 15 2e a5 01 00 00 09 CALL_VS         ba94 (#01,#00,#00) -> L08
 a6c7:  c1 8f 09 27 10 00 05    JE              L08,#2710 [FALSE] a6d1
 a6ce:  8c fe 04                JUMP            a4d3
 a6d1:  41 09 00 80 14          JE              L08,#00 [TRUE] a6e8
 a6d6:  e1 97 01 00 26          STOREW          L00,#00,#26
 a6db:  e1 97 01 01 01          STOREW          L00,#01,#01
 a6e0:  e1 9b 01 02 09          STOREW          L00,#02,L08
 a6e5:  8c 0a 90                JUMP            b176
 a6e8:  61 28 19 00 2b          JE              G18,G09 [FALSE] a716
 a6ed:  0d 07 02                STORE           L06,#02
 a6f0:  63 07 43 80 15          JG              L06,G33 [TRUE] a708
 a6f5:  88 33 bc 06             CALL_1S         cef0 -> L05
 a6f9:  c1 8f 06 a2 9c 00 05    JE              L05,"xcomma" [FALSE] a703
 a700:  8c 00 1b                JUMP            a71c
 a703:  95 07                   INC             L06
 a705:  8c ff ea                JUMP            a6f0
 a708:  d9 2f b0 fc 44 44       CALL_2S         2c3f0 (G34) -> G34
 a70e:  41 44 00 80 05          JE              G34,#00 [TRUE] a716
 a713:  8c 01 0b                JUMP            a81f
 a716:  0d 6a 0c                STORE           G5a,#0c
 a719:  8c 07 73                JUMP            ae8d
 a71c:  55 42 01 07             SUB             G32,#01 -> L06
 a720:  41 07 01 00 18          JE              L06,#01 [FALSE] a73b
 a725:  b2 ...                  PRINT           "You can't begin with a comma.
"
 a738:  8c fd 92                JUMP            a4cb
 a73b:  0d 42 01                STORE           G32,#01
 a73e:  0d 5f 01                STORE           G4f,#01
 a741:  0d 74 01                STORE           G64,#01
 a744:  e0 29 2e a5 19 29 06 09 CALL_VS         ba94 (G09,G19,#06) -> L08
 a74c:  0d 74 00                STORE           G64,#00
 a74f:  c1 8f 09 27 10 00 05    JE              L08,#2710 [FALSE] a759
 a756:  8c fd 7c                JUMP            a4d3
 a759:  41 09 00 00 2c          JE              L08,#00 [FALSE] a788
 a75e:  b2 ...                  PRINT           "You seem to want to talk to
someone, but I can't see whom.
"
 a785:  8c fd 45                JUMP            a4cb
 a788:  4a 09 00 80 1f          TEST_ATTR       L08,#00 [TRUE] a7aa
 a78d:  4a 09 16 80 1a          TEST_ATTR       L08,#16 [TRUE] a7aa
 a792:  b2 ...                  PRINT           "You can't talk to "
 a79d:  da 2f 38 4e 09          CALL_2N         e138 (L08)
 a7a2:  b2 ...                  PRINT           ".
"
 a7a7:  8c fd 23                JUMP            a4cb
 a7aa:  61 42 07 80 2e          JE              G32,L06 [TRUE] a7db
 a7af:  b2 ...                  PRINT           "To talk to someone, try
"someone, hello" or some such.
"
 a7d8:  8c fc f2                JUMP            a4cb
 a7db:  da 2f 34 24 09          CALL_2N         d090 (L08)
 a7e0:  54 07 01 45             ADD             L06,#01 -> G35
 a7e4:  2d 28 09                STORE           G18,L08
 a7e7:  2d 29 09                STORE           G19,L08
 a7ea:  a3 29 00                GET_PARENT      G19 -> -(SP)
 a7ed:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] a7f8
 a7f2:  a3 29 29                GET_PARENT      G19 -> G19
 a7f5:  8c ff f4                JUMP            a7ea
 a7f8:  42 3e 01 80 21          JL              G2e,#01 [TRUE] a81c
 a7fd:  b2 ...                  PRINT           "[Actor is "
 a808:  da 2f 38 4e 28          CALL_2N         e138 (G18)
 a80d:  b2 ...                  PRINT           " in "
 a812:  da 2f 38 57 29          CALL_2N         e15c (G19)
 a817:  b2 ...                  PRINT           "]
"
 a81c:  8c fd 4f                JUMP            a56c
 a81f:  50 44 06 00             LOADB           G34,#06 -> -(SP)
 a823:  49 00 02 00             AND             (SP)+,#02 -> -(SP)
 a827:  57 00 02 38             DIV             (SP)+,#02 -> G28
 a82b:  41 38 01 00 10          JE              G28,#01 [FALSE] a83e
 a830:  61 28 19 80 0b          JE              G18,G09 [TRUE] a83e
 a835:  0d 6a 0c                STORE           G5a,#0c
 a838:  0d 38 00                STORE           G28,#00
 a83b:  8c 06 51                JUMP            ae8d
 a83e:  50 44 07 00             LOADB           G34,#07 -> -(SP)
 a842:  35 ff 00 06             SUB             #ff,(SP)+ -> L05
 a846:  0f 00 07 00             LOADW           #00,#07 -> -(SP)
 a84a:  6f 00 06 02             LOADW           (SP)+,L05 -> L01
 a84e:  50 02 00 00             LOADB           L01,#00 -> -(SP)
 a852:  55 00 01 04             SUB             (SP)+,#01 -> L03
 a856:  cd 4f 5a 88 2c          STORE           G4a,"it"
 a85b:  2d 5b 5c                STORE           G4b,G4c
 a85e:  42 3e 01 80 2c          JL              G2e,#01 [TRUE] a88d
 a863:  b2 ...                  PRINT           "[Parsing for the verb '"
 a874:  a7 44                   PRINT_ADDR      G34
 a876:  b2 ...                  PRINT           "' ("
 a87b:  54 04 01 00             ADD             L03,#01 -> -(SP)
 a87f:  e6 bf 00                PRINT_NUM       (SP)+
 a882:  b2 ...                  PRINT           " lines)]
"
 a88d:  0d 6a 01                STORE           G5a,#01
 a890:  0d 03 00                STORE           L02,#00
 a893:  63 03 04 85 f7          JG              L02,L03 [TRUE] ae8d
 a898:  56 03 08 00             MUL             L02,#08 -> -(SP)
 a89c:  54 02 01 00             ADD             L01,#01 -> -(SP)
 a8a0:  74 00 00 05             ADD             (SP)+,(SP)+ -> L04
 a8a4:  42 3e 01 80 51          JL              G2e,#01 [TRUE] a8f8
 a8a9:  b2 ...                  PRINT           "[Line "
 a8b2:  e6 bf 03                PRINT_NUM       L02
 a8b5:  b2 ...                  PRINT           ": "
 a8b8:  50 05 00 00             LOADB           L04,#00 -> -(SP)
 a8bc:  e6 bf 00                PRINT_NUM       (SP)+
 a8bf:  b2 ...                  PRINT           " parameters: "
 a8ca:  0d 4a 01                STORE           G3a,#01
 a8cd:  43 4a 06 80 11          JG              G3a,#06 [TRUE] a8e1
 a8d2:  70 05 4a 08             LOADB           L04,G3a -> L07
 a8d6:  e6 bf 08                PRINT_NUM       L07
 a8d9:  b2 ...                  PRINT           " "
 a8dc:  95 4a                   INC             G3a
 a8de:  8c ff ee                JUMP            a8cd
 a8e1:  b2 ...                  PRINT           " -> action "
 a8ec:  50 05 07 00             LOADB           L04,#07 -> -(SP)
 a8f0:  e6 bf 00                PRINT_NUM       (SP)+
 a8f3:  b2 ...                  PRINT           "]
"
 a8f8:  0d 65 00                STORE           G55,#00
 a8fb:  0d 4f 00                STORE           G3f,#00
 a8fe:  0d 4c 00                STORE           G3c,#00
 a901:  50 05 00 4d             LOADB           L04,#00 -> G3d
 a905:  0d 4e 00                STORE           G3e,#00
 a908:  0d 32 00                STORE           G22,#00
 a90b:  0d 33 00                STORE           G23,#00
 a90e:  e1 17 5e af 00 00       STOREW          #5eaf,#00,#00
 a914:  0d 49 00                STORE           G39,#00
 a917:  0d 6b 01                STORE           G5b,#01
 a91a:  50 05 07 72             LOADB           L04,#07 -> G62
 a91e:  54 45 01 42             ADD             G35,#01 -> G32
 a922:  cd 4f 6f ff ff          STORE           G5f,#ffff
 a927:  0d 60 00                STORE           G50,#00
 a92a:  0d 06 00                STORE           L05,#00
 a92d:  0d 0a 00                STORE           L09,#00
 a930:  0d 4a 01                STORE           G3a,#01
 a933:  43 4a 06 81 02          JG              G3a,#06 [TRUE] aa38
 a938:  0d 75 00                STORE           G65,#00
 a93b:  70 05 4a 08             LOADB           L04,G3a -> L07
 a93f:  41 08 02 00 04          JE              L07,#02 [FALSE] a946
 a944:  95 0a                   INC             L09
 a946:  42 08 b4 00 04          JL              L07,#b4 [FALSE] a94d
 a94b:  95 06                   INC             L05
 a94d:  c1 97 08 04 05 00 e1    JE              L07,#04,#05 [FALSE] aa33
 a954:  41 06 01 00 dc          JE              L05,#01 [FALSE] aa33
 a959:  42 3e 02 80 17          JL              G2e,#02 [TRUE] a973
 a95e:  b2 ...                  PRINT           " [Trying look-ahead]
"
 a973:  95 4a                   INC             G3a
 a975:  43 4a 06 80 10          JG              G3a,#06 [TRUE] a988
 a97a:  70 05 4a 00             LOADB           L04,G3a -> -(SP)
 a97e:  42 00 b4 80 07          JL              (SP)+,#b4 [TRUE] a988
 a983:  95 4a                   INC             G3a
 a985:  8c ff ef                JUMP            a975
 a988:  55 4a 01 00             SUB             G3a,#01 -> -(SP)
 a98c:  70 05 00 08             LOADB           L04,(SP)+ -> L07
 a990:  42 08 b4 80 a0          JL              L07,#b4 [TRUE] aa33
 a995:  d9 2f 33 ad 08 07       CALL_2S         ceb4 (L07) -> L06
 a99b:  63 42 43 80 95          JG              G32,G33 [TRUE] aa33
 a9a0:  88 33 bc 00             CALL_1S         cef0 -> -(SP)
 a9a4:  61 00 07 00 89          JE              (SP)+,L06 [FALSE] aa30
 a9a9:  e0 2a 2e a5 29 28 08 09 CALL_VS         ba94 (G19,G18,L07) -> L08
 a9b1:  42 3e 02 80 5b          JL              G2e,#02 [TRUE] aa0f
 a9b6:  b2 ...                  PRINT           " [Forward token parsed: "
 a9cb:  c1 8f 09 27 10 00 13    JE              L08,#2710 [FALSE] a9e3
 a9d2:  b2 ...                  PRINT           "re-parse request]
"
 a9e3:  41 09 01 00 13          JE              L08,#01 [FALSE] a9f9
 a9e8:  b2 ...                  PRINT           "but multiple found]
"
 a9f9:  41 09 00 00 13          JE              L08,#00 [FALSE] aa0f
 a9fe:  b2 ...                  PRINT           "hit error "
 aa07:  e6 bf 6b                PRINT_NUM       G5b
 aa0a:  b2 ...                  PRINT           "]
"
 aa0f:  c1 8f 09 27 10 00 05    JE              L08,#2710 [FALSE] aa19
 aa16:  8c fa bc                JUMP            a4d3
 aa19:  42 09 02 80 14          JL              L08,#02 [TRUE] aa30
 aa1e:  2d 6f 09                STORE           G5f,L08
 aa21:  42 3e 03 80 0c          JL              G2e,#03 [TRUE] aa30
 aa26:  da 2f 38 4e 09          CALL_2N         e138 (L08)
 aa2b:  b2 ...                  PRINT           "]
"
 aa30:  8c ff 6a                JUMP            a99b
 aa33:  95 4a                   INC             G3a
 aa35:  8c fe fd                JUMP            a933
 aa38:  0d 7a 00                STORE           G6a,#00
 aa3b:  41 0a 01 00 0f          JE              L09,#01 [FALSE] aa4d
 aa40:  41 4d 01 00 0a          JE              G3d,#01 [FALSE] aa4d
 aa45:  41 72 13 00 05          JE              G62,#13 [FALSE] aa4d
 aa4a:  0d 7a 01                STORE           G6a,#01
 aa4d:  0d 65 00                STORE           G55,#00
 aa50:  0d 4f 00                STORE           G3f,#00
 aa53:  0d 4c 00                STORE           G3c,#00
 aa56:  0d 4e 00                STORE           G3e,#00
 aa59:  0d 32 00                STORE           G22,#00
 aa5c:  0d 33 00                STORE           G23,#00
 aa5f:  e1 17 5e af 00 00       STOREW          #5eaf,#00,#00
 aa65:  0d 6b 01                STORE           G5b,#01
 aa68:  50 05 07 72             LOADB           L04,#07 -> G62
 aa6c:  54 45 01 42             ADD             G35,#01 -> G32
 aa70:  0d 4a 01                STORE           G3a,#01
 aa73:  43 4a 06 83 fd          JG              G3a,#06 [TRUE] ae73
 aa78:  e1 27 60 2a 4a 00       STOREW          #602a,G3a,#00
 aa7e:  0d 75 00                STORE           G65,#00
 aa81:  70 05 4a 08             LOADB           L04,G3a -> L07
 aa85:  42 3e 02 81 9a          JL              G2e,#02 [TRUE] ac22
 aa8a:  b2 ...                  PRINT           " [Token "
 aa93:  e6 bf 4a                PRINT_NUM       G3a
 aa96:  b2 ...                  PRINT           " is "
 aa9b:  e6 bf 08                PRINT_NUM       L07
 aa9e:  b2 ...                  PRINT           ": "
 aaa1:  42 08 10 00 a0          JL              L07,#10 [FALSE] ab44
 aaa6:  41 08 00 00 11          JE              L07,#00 [FALSE] aaba
 aaab:  b2 ...                  PRINT           "<noun> or null"
 aaba:  41 08 01 00 0b          JE              L07,#01 [FALSE] aac8
 aabf:  b2 ...                  PRINT           "<held>"
 aac8:  41 08 02 00 0d          JE              L07,#02 [FALSE] aad8
 aacd:  b2 ...                  PRINT           "<multi>"
 aad8:  41 08 03 00 0f          JE              L07,#03 [FALSE] aaea
 aadd:  b2 ...                  PRINT           "<multiheld>"
 aaea:  41 08 04 00 11          JE              L07,#04 [FALSE] aafe
 aaef:  b2 ...                  PRINT           "<multiexcept>"
 aafe:  41 08 05 00 11          JE              L07,#05 [FALSE] ab12
 ab03:  b2 ...                  PRINT           "<multiinside>"
 ab12:  41 08 06 00 0f          JE              L07,#06 [FALSE] ab24
 ab17:  b2 ...                  PRINT           "<creature>"
 ab24:  41 08 07 00 0d          JE              L07,#07 [FALSE] ab34
 ab29:  b2 ...                  PRINT           "<special>"
 ab34:  41 08 08 00 0d          JE              L07,#08 [FALSE] ab44
 ab39:  b2 ...                  PRINT           "<number>"
 ab44:  42 08 10 80 24          JL              L07,#10 [TRUE] ab6b
 ab49:  42 08 30 00 1f          JL              L07,#30 [FALSE] ab6b
 ab4e:  b2 ...                  PRINT           "<noun filter by routine "
 ab5f:  55 08 10 00             SUB             L07,#10 -> -(SP)
 ab63:  e6 bf 00                PRINT_NUM       (SP)+
 ab66:  b2 ...                  PRINT           ">"
 ab6b:  42 08 30 80 28          JL              L07,#30 [TRUE] ab96
 ab70:  42 08 50 00 23          JL              L07,#50 [FALSE] ab96
 ab75:  b2 ...                  PRINT           "<general parse by routine "
 ab8a:  55 08 30 00             SUB             L07,#30 -> -(SP)
 ab8e:  e6 bf 00                PRINT_NUM       (SP)+
 ab91:  b2 ...                  PRINT           ">"
 ab96:  42 08 50 80 26          JL              L07,#50 [TRUE] abbf
 ab9b:  42 08 80 00 21          JL              L07,#80 [FALSE] abbf
 aba0:  b2 ...                  PRINT           "<scope parse by routine "
 abb3:  55 08 50 00             SUB             L07,#50 -> -(SP)
 abb7:  e6 bf 00                PRINT_NUM       (SP)+
 abba:  b2 ...                  PRINT           ">"
 abbf:  42 08 80 80 26          JL              L07,#80 [TRUE] abe8
 abc4:  42 08 b4 00 21          JL              L07,#b4 [FALSE] abe8
 abc9:  b2 ...                  PRINT           "<noun filter by attribute "
 abdc:  55 08 80 00             SUB             L07,#80 -> -(SP)
 abe0:  e6 bf 00                PRINT_NUM       (SP)+
 abe3:  b2 ...                  PRINT           ">"
 abe8:  43 08 b4 00 24          JG              L07,#b4 [FALSE] ac0f
 abed:  b2 ...                  PRINT           "<adjective "
 abf8:  35 ff 08 00             SUB             #ff,L07 -> -(SP)
 abfc:  e6 bf 00                PRINT_NUM       (SP)+
 abff:  b2 ...                  PRINT           " '"
 ac02:  d9 2f 33 ad 08 00       CALL_2S         ceb4 (L07) -> -(SP)
 ac08:  a7 00                   PRINT_ADDR      (SP)+
 ac0a:  b2 ...                  PRINT           "'>"
 ac0f:  b2 ...                  PRINT           " at word number "
 ac1a:  e6 bf 42                PRINT_NUM       G32
 ac1d:  b2 ...                  PRINT           "]
"
 ac22:  54 4a 01 0a             ADD             G3a,#01 -> L09
 ac26:  0d 5f 08                STORE           G4f,#08
 ac29:  43 0a 06 80 06          JG              L09,#06 [TRUE] ac32
 ac2e:  70 05 0a 5f             LOADB           L04,L09 -> G4f
 ac32:  41 5f 00 00 14          JE              G4f,#00 [FALSE] ac49
 ac37:  2d 0a 4c                STORE           L09,G3c
 ac3a:  43 08 07 80 04          JG              L07,#07 [TRUE] ac41
 ac3f:  95 0a                   INC             L09
 ac41:  62 0a 4d 80 05          JL              L09,G3d [TRUE] ac49
 ac46:  0d 5f 08                STORE           G4f,#08
 ac49:  43 08 b4 00 3f          JG              L07,#b4 [FALSE] ac8b
 ac4e:  d4 2f 27 10 08 00       ADD             #2710,L07 -> -(SP)
 ac54:  e1 2b 60 2a 4a 00       STOREW          #602a,G3a,(SP)+
 ac5a:  63 42 43 00 1a          JG              G32,G33 [FALSE] ac77
 ac5f:  41 4f 00 00 0d          JE              G3f,#00 [FALSE] ac6f
 ac64:  62 4c 4d 00 08          JL              G3c,G3d [FALSE] ac6f
 ac69:  2d 4f 4a                STORE           G3f,G3a
 ac6c:  2d 50 08                STORE           G40,L07
 ac6f:  41 4f 00 00 05          JE              G3f,#00 [FALSE] ac77
 ac74:  8c 01 fe                JUMP            ae73
 ac77:  63 42 43 80 0e          JG              G32,G33 [TRUE] ac88
 ac7c:  88 33 a5 00             CALL_1S         ce94 -> -(SP)
 ac80:  61 08 00 80 05          JE              L07,(SP)+ [TRUE] ac88
 ac85:  8c 01 ed                JUMP            ae73
 ac88:  8c 01 e5                JUMP            ae6e
 ac8b:  61 4c 4d 01 47          JE              G3c,G3d [FALSE] add5
 ac90:  63 42 43 80 3b          JG              G32,G33 [TRUE] acce
 ac95:  88 33 bc 09             CALL_1S         cef0 -> L08
 ac99:  c1 83 09 9d 68 a2 9c 00 0c
                               JE              L08,"then","xcomma" [FALSE] acac
 aca2:  0d 68 01                STORE           G58,#01
 aca5:  55 42 01 69             SUB             G32,#01 -> G59
 aca9:  8c 00 24                JUMP            acce
 acac:  0d 0a 00                STORE           L09,#00
 acaf:  42 0a 08 00 13          JL              L09,#08 [FALSE] acc5
 acb4:  cf 2f 60 2a 0a 00       LOADW           #602a,L09 -> -(SP)
 acba:  e1 2b 60 3a 0a 00       STOREW          #603a,L09,(SP)+
 acc0:  95 0a                   INC             L09
 acc2:  8c ff ec                JUMP            acaf
 acc5:  2d 4b 4a                STORE           G3b,G3a
 acc8:  0d 6b 02                STORE           G5b,#02
 accb:  8c 01 a7                JUMP            ae73
 acce:  42 4c 01 80 20          JL              G3c,#01 [TRUE] acf1
 acd3:  4f 01 02 00             LOADW           L00,#02 -> -(SP)
 acd7:  41 00 00 00 17          JE              (SP)+,#00 [FALSE] acf1
 acdc:  4f 01 03 00             LOADW           L00,#03 -> -(SP)
 ace0:  d9 2f 30 8a 00 09       CALL_2S         c228 ((SP)+) -> L08
 ace6:  41 09 00 80 08          JE              L08,#00 [TRUE] acf1
 aceb:  2d 6b 09                STORE           G5b,L08
 acee:  8c 01 84                JUMP            ae73
 acf1:  42 4c 02 80 20          JL              G3c,#02 [TRUE] ad14
 acf6:  4f 01 03 00             LOADW           L00,#03 -> -(SP)
 acfa:  41 00 00 00 17          JE              (SP)+,#00 [FALSE] ad14
 acff:  4f 01 02 00             LOADW           L00,#02 -> -(SP)
 ad03:  d9 2f 30 8a 00 09       CALL_2S         c228 ((SP)+) -> L08
 ad09:  41 09 00 80 08          JE              L08,#00 [TRUE] ad14
 ad0e:  2d 6b 09                STORE           G5b,L08
 ad11:  8c 01 61                JUMP            ae73
 ad14:  41 7a 02 00 11          JE              G6a,#02 [FALSE] ad28
 ad19:  4f 01 02 00             LOADW           L00,#02 -> -(SP)
 ad1d:  61 00 28 00 08          JE              (SP)+,G18 [FALSE] ad28
 ad22:  0d 6a 11                STORE           G5a,#11
 ad25:  8c 01 67                JUMP            ae8d
 ad28:  42 3e 01 80 1b          JL              G2e,#01 [TRUE] ad46
 ad2d:  b2 ...                  PRINT           "[Line successfully parsed]
"
 ad46:  41 4f 00 80 10          JE              G3f,#00 [TRUE] ad59
 ad4b:  b2 ...                  PRINT           "("
 ad4e:  f9 27 31 b5 4f 01       CALL_VN         c6d4 (G3f,#01)
 ad54:  b2 ...                  PRINT           ")
"
 ad59:  e1 9b 01 01 4d          STOREW          L00,#01,G3d
 ad5e:  50 05 07 00             LOADB           L04,#07 -> -(SP)
 ad62:  e1 9b 01 00 00          STOREW          L00,#00,(SP)+
 ad67:  43 4c 00 00 14          JG              G3c,#00 [FALSE] ad7e
 ad6c:  4f 01 02 00             LOADW           L00,#02 -> -(SP)
 ad70:  42 00 02 80 0b          JL              (SP)+,#02 [TRUE] ad7e
 ad75:  4f 01 02 00             LOADW           L00,#02 -> -(SP)
 ad79:  da 2f 34 24 00          CALL_2N         d090 ((SP)+)
 ad7e:  0d 51 00                STORE           G41,#00
 ad81:  41 65 00 80 45          JE              G55,#00 [TRUE] adc9
 ad86:  61 28 19 00 40          JE              G18,G09 [FALSE] adc9
 ad8b:  0d 36 01                STORE           G26,#01
 ad8e:  0d 06 00                STORE           L05,#00
 ad91:  42 06 08 00 11          JL              L05,#08 [FALSE] ada5
 ad96:  6f 01 06 00             LOADW           L00,L05 -> -(SP)
 ad9a:  e1 2b 61 54 06 00       STOREW          #6154,L05,(SP)+
 ada0:  95 06                   INC             L05
 ada2:  8c ff ee                JUMP            ad91
 ada5:  e1 97 01 00 13          STOREW          L00,#00,#13
 adaa:  e1 97 01 01 01          STOREW          L00,#01,#01
 adaf:  e1 9b 01 02 65          STOREW          L00,#02,G55
 adb4:  b2 ...                  PRINT           "(first taking "
 adbf:  da 2f 38 4e 65          CALL_2N         e138 (G55)
 adc4:  b2 ...                  PRINT           ")
"
 adc9:  41 68 01 00 08          JE              G58,#01 [FALSE] add4
 adce:  2d 42 69                STORE           G32,G59
 add1:  8c 03 a4                JUMP            b176
 add4:  b0                      RTRUE
 add5:  41 08 06 00 12          JE              L07,#06 [FALSE] adea
 adda:  c1 95 72 44 46 47 80 07 JE              G62,#44,#46,#47 [TRUE] ade7
 ade2:  41 72 45 00 05          JE              G62,#45 [FALSE] adea
 ade7:  0d 74 01                STORE           G64,#01
 adea:  e0 2b 2d 52 01 08 09    CALL_VS         b548 (L00,L07) -> L08
 adf1:  0d 74 00                STORE           G64,#00
 adf4:  42 3e 03 80 65          JL              G2e,#03 [TRUE] ae5c
 adf9:  b2 ...                  PRINT           "  [Parse object list replied
with"
 ae12:  c1 8f 09 27 10 00 13    JE              L08,#2710 [FALSE] ae2a
 ae19:  b2 ...                  PRINT           " re-parse request]
"
 ae2a:  41 09 00 00 1b          JE              L08,#00 [FALSE] ae48
 ae2f:  b2 ...                  PRINT           " token failed, error type "
 ae40:  e6 bf 6b                PRINT_NUM       G5b
 ae43:  b2 ...                  PRINT           "]
"
 ae48:  41 09 01 00 11          JE              L08,#01 [FALSE] ae5c
 ae4d:  b2 ...                  PRINT           " token accepted]
"
 ae5c:  c1 8f 09 27 10 00 05    JE              L08,#2710 [FALSE] ae66
 ae63:  8c f6 6f                JUMP            a4d3
 ae66:  41 09 00 00 05          JE              L08,#00 [FALSE] ae6e
 ae6b:  8c 00 07                JUMP            ae73
 ae6e:  95 4a                   INC             G3a
 ae70:  8c fc 02                JUMP            aa73
 ae73:  63 6b 6a 00 05          JG              G5b,G5a [FALSE] ae7b
 ae78:  2d 6a 6b                STORE           G5a,G5b
 ae7b:  41 7a 02 00 0a          JE              G6a,#02 [FALSE] ae88
 ae80:  41 6b 11 00 05          JE              G5b,#11 [FALSE] ae88
 ae85:  8c 00 07                JUMP            ae8d
 ae88:  95 03                   INC             L02
 ae8a:  8c fa 08                JUMP            a893
 ae8d:  2d 6b 6a                STORE           G5b,G5a
 ae90:  61 28 19 80 4b          JE              G18,G09 [TRUE] aede
 ae95:  43 7b 00 00 08          JG              G6b,#00 [FALSE] aea0
 ae9a:  2d 45 7b                STORE           G35,G6b
 ae9d:  8c f6 c3                JUMP            a561
 aea0:  2d 42 45                STORE           G32,G35
 aea3:  88 33 bc 32             CALL_1S         cef0 -> G22
 aea7:  c1 8f 32 a2 9c 00 08    JE              G22,"xcomma" [FALSE] aeb4
 aeae:  88 33 bc 32             CALL_1S         cef0 -> G22
 aeb2:  95 45                   INC             G35
 aeb4:  d9 2f 33 e0 45 33       CALL_2S         cf80 (G35) -> G23
 aeba:  e1 93 01 00 01 08       STOREW          L00,#00,#0108
 aec0:  e1 97 01 01 02          STOREW          L00,#01,#02
 aec5:  e1 97 01 02 01          STOREW          L00,#02,#01
 aeca:  2d 2d 32                STORE           G1d,G22
 aecd:  e1 9b 01 03 28          STOREW          L00,#03,G18
 aed2:  2d 3b 45                STORE           G2b,G35
 aed5:  75 43 3b 00             SUB             G33,G2b -> -(SP)
 aed9:  54 00 01 3c             ADD             (SP)+,#01 -> G2c
 aedd:  b0                      RTRUE
 aede:  d9 2f b1 00 6b 00       CALL_2S         2c400 (G5b) -> -(SP)
 aee4:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] aeec
 aee9:  8c f5 e1                JUMP            a4cb
 aeec:  41 6b 01 00 1c          JE              G5b,#01 [FALSE] af0b
 aef1:  b2 ...                  PRINT           "I didn't understand that
sentence.
"
 af08:  0d 51 01                STORE           G41,#01
 af0b:  41 6b 02 00 44          JE              G5b,#02 [FALSE] af52
 af10:  b2 ...                  PRINT           "I only understood you as far
as wanting to "
 af2b:  0d 0a 00                STORE           L09,#00
 af2e:  42 0a 08 00 13          JL              L09,#08 [FALSE] af44
 af33:  cf 2f 60 3a 0a 00       LOADW           #603a,L09 -> -(SP)
 af39:  e1 2b 60 2a 0a 00       STOREW          #602a,L09,(SP)+
 af3f:  95 0a                   INC             L09
 af41:  8c ff ec                JUMP            af2e
 af44:  2d 4a 4b                STORE           G3a,G3b
 af47:  f9 17 31 b5 00 01       CALL_VN         c6d4 (#00,#01)
 af4d:  b2 ...                  PRINT           ".
"
 af52:  41 6b 03 00 19          JE              G5b,#03 [FALSE] af6e
 af57:  b2 ...                  PRINT           "I didn't understand that
number.
"
 af6e:  41 6b 04 00 18          JE              G5b,#04 [FALSE] af89
 af73:  b2 ...                  PRINT           "You can't see any such thing.
"
 af86:  2d 51 52                STORE           G41,G42
 af89:  41 6b 05 00 19          JE              G5b,#05 [FALSE] afa5
 af8e:  b2 ...                  PRINT           "You seem to have said too
little!
"
 afa5:  41 6b 06 00 16          JE              G5b,#06 [FALSE] afbe
 afaa:  b2 ...                  PRINT           "You aren't holding that!
"
 afbb:  2d 51 52                STORE           G41,G42
 afbe:  41 6b 07 00 21          JE              G5b,#07 [FALSE] afe2
 afc3:  b2 ...                  PRINT           "You can't use multiple objects
with that verb.
"
 afe2:  41 6b 08 00 23          JE              G5b,#08 [FALSE] b008
 afe7:  b2 ...                  PRINT           "You can only use multiple
objects once on a line.
"
 b008:  41 6b 09 00 1e          JE              G5b,#09 [FALSE] b029
 b00d:  b2 ...                  PRINT           "I'm not sure what ""
 b01c:  a7 5a                   PRINT_ADDR      G4a
 b01e:  b2 ...                  PRINT           "" refers to.
"
 b029:  41 6b 0a 00 1d          JE              G5b,#0a [FALSE] b049
 b02e:  b2 ...                  PRINT           "You excepted something not
included anyway!
"
 b049:  41 6b 0b 00 1d          JE              G5b,#0b [FALSE] b069
 b04e:  b2 ...                  PRINT           "You can only do that to
something animate.
"
 b069:  41 6b 0c 00 19          JE              G5b,#0c [FALSE] b085
 b06e:  b2 ...                  PRINT           "That's not a verb I recognise.
"
 b085:  41 6b 0d 00 2b          JE              G5b,#0d [FALSE] b0b3
 b08a:  b2 ...                  PRINT           "That's not something you need
to refer to in the course of this game.
"
 b0b3:  41 6b 0e 00 26          JE              G5b,#0e [FALSE] b0dc
 b0b8:  b2 ...                  PRINT           "You can't see ""
 b0c3:  a7 5a                   PRINT_ADDR      G4a
 b0c5:  b2 ...                  PRINT           "" ("
 b0ca:  da 2f 38 4e 5b          CALL_2N         e138 (G4b)
 b0cf:  b2 ...                  PRINT           ") at the moment.
"
 b0dc:  41 6b 0f 00 1d          JE              G5b,#0f [FALSE] b0fc
 b0e1:  b2 ...                  PRINT           "I didn't understand the way
that finished.
"
 b0fc:  41 6b 10 00 39          JE              G5b,#10 [FALSE] b138
 b101:  41 48 00 00 0a          JE              G38,#00 [FALSE] b10e
 b106:  b2 ...                  PRINT           "None"
 b10b:  8c 00 0c                JUMP            b118
 b10e:  b2 ...                  PRINT           "Only "
 b113:  da 2f 99 a2 48          CALL_2N         26688 (G38)
 b118:  b2 ...                  PRINT           " of those "
 b11f:  41 48 01 00 08          JE              G38,#01 [FALSE] b12a
 b124:  b2 ...                  PRINT           "is"
 b127:  8c 00 05                JUMP            b12d
 b12a:  b2 ...                  PRINT           "are"
 b12d:  b2 ...                  PRINT           " available.
"
 b138:  41 6b 11 00 2c          JE              G5b,#11 [FALSE] b167
 b13d:  41 47 64 00 12          JE              G37,#64 [FALSE] b152
 b142:  b2 ...                  PRINT           "Nothing to do!
"
 b14f:  8c 00 17                JUMP            b167
 b152:  b2 ...                  PRINT           "There are none at all
available!
"
 b167:  41 6b 12 00 09          JE              G5b,#12 [FALSE] b173
 b16c:  0d 77 03                STORE           G67,#03
 b16f:  e0 bf 76 ff             CALL_VS         G66 -> Gef
 b173:  8c f3 57                JUMP            a4cb
 b176:  63 42 43 00 03          JG              G32,G33 [FALSE] b17c
 b17b:  b0                      RTRUE
 b17c:  88 33 bc 06             CALL_1S         cef0 -> L05
 b180:  c1 8f 06 9d 68 80 09    JE              L05,"then" [TRUE] b18e
 b187:  c1 8f 06 a2 9c 01 ab    JE              L05,"xcomma" [FALSE] b337
 b18e:  63 42 43 00 16          JG              G32,G33 [FALSE] b1a7
 b193:  d0 1f 5f a8 01 00       LOADB           #5fa8,#01 -> -(SP)
 b199:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 b19d:  e2 1b 5f a8 01 00       STOREB          #5fa8,#01,(SP)+
 b1a3:  0d 68 00                STORE           G58,#00
 b1a6:  b0                      RTRUE
 b1a7:  61 28 19 00 08          JE              G18,G09 [FALSE] b1b2
 b1ac:  0d 07 00                STORE           L06,#00
 b1af:  8c 00 06                JUMP            b1b6
 b1b2:  55 45 01 07             SUB             G35,#01 -> L06
 b1b6:  54 07 01 6c             ADD             L06,#01 -> G5c
 b1ba:  55 42 02 6d             SUB             G32,#02 -> G5d
 b1be:  88 33 bc 06             CALL_1S         cef0 -> L05
 b1c2:  c1 83 06 74 10 82 f8 00 da
                               JE              L05,"again","g" [FALSE] b2a3
 b1cb:  0d 06 00                STORE           L05,#00
 b1ce:  62 06 07 00 3f          JL              L05,L06 [FALSE] b210
 b1d3:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b1d7:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 b1db:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b1e1:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b1e5:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 b1e9:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b1ef:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b1f3:  54 00 02 00             ADD             (SP)+,#02 -> -(SP)
 b1f7:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b1fd:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b201:  54 00 02 00             ADD             (SP)+,#02 -> -(SP)
 b205:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b20b:  95 06                   INC             L05
 b20d:  8c ff c0                JUMP            b1ce
 b210:  2d 06 6c                STORE           L05,G5c
 b213:  63 06 6d 80 3d          JG              L05,G5d [TRUE] b253
 b218:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b21c:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b222:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b226:  34 02 00 00             ADD             #02,(SP)+ -> -(SP)
 b22a:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b230:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b234:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 b238:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b23e:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b242:  34 01 00 00             ADD             #01,(SP)+ -> -(SP)
 b246:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b24c:  95 06                   INC             L05
 b24e:  95 07                   INC             L06
 b250:  8c ff c2                JUMP            b213
 b253:  2d 06 42                STORE           L05,G32
 b256:  63 06 43 80 3d          JG              L05,G33 [TRUE] b296
 b25b:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b25f:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b265:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b269:  34 02 00 00             ADD             #02,(SP)+ -> -(SP)
 b26d:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b273:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b277:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 b27b:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b281:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b285:  34 01 00 00             ADD             #01,(SP)+ -> -(SP)
 b289:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b28f:  95 06                   INC             L05
 b291:  95 07                   INC             L06
 b293:  8c ff c2                JUMP            b256
 b296:  e2 1b 5f a8 01 07       STOREB          #5fa8,#01,L06
 b29c:  0d 68 01                STORE           G58,#01
 b29f:  b0                      RTRUE
 b2a0:  8c 00 04                JUMP            b2a5
 b2a3:  96 42                   DEC             G32
 b2a5:  0d 06 00                STORE           L05,#00
 b2a8:  62 06 07 00 3f          JL              L05,L06 [FALSE] b2ea
 b2ad:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b2b1:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 b2b5:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b2bb:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b2bf:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 b2c3:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b2c9:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b2cd:  54 00 02 00             ADD             (SP)+,#02 -> -(SP)
 b2d1:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b2d7:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b2db:  54 00 02 00             ADD             (SP)+,#02 -> -(SP)
 b2df:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b2e5:  95 06                   INC             L05
 b2e7:  8c ff c0                JUMP            b2a8
 b2ea:  2d 06 42                STORE           L05,G32
 b2ed:  63 06 43 80 3d          JG              L05,G33 [TRUE] b32d
 b2f2:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b2f6:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b2fc:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b300:  34 02 00 00             ADD             #02,(SP)+ -> -(SP)
 b304:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b30a:  36 02 06 00             MUL             #02,L05 -> -(SP)
 b30e:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 b312:  cf 2f 5e 4e 00 00       LOADW           #5e4e,(SP)+ -> -(SP)
 b318:  36 02 07 00             MUL             #02,L06 -> -(SP)
 b31c:  34 01 00 00             ADD             #01,(SP)+ -> -(SP)
 b320:  e1 2b 5f a8 00 00       STOREW          #5fa8,(SP)+,(SP)+
 b326:  95 06                   INC             L05
 b328:  95 07                   INC             L06
 b32a:  8c ff c2                JUMP            b2ed
 b32d:  e2 1b 5f a8 01 07       STOREB          #5fa8,#01,L06
 b333:  0d 68 01                STORE           G58,#01
 b336:  b0                      RTRUE
 b337:  0d 6a 02                STORE           G5a,#02
 b33a:  8c fb 52                JUMP            ae8d

Routine b340, 1 local

 b341:  c1 8f 01 8f 19 00 04    JE              L00,"one" [FALSE] b34a
 b348:  9b 01                   RET             #01
 b34a:  c1 8f 01 9f 45 00 04    JE              L00,"two" [FALSE] b353
 b351:  9b 02                   RET             #02
 b353:  c1 8f 01 9d b9 00 04    JE              L00,"three" [FALSE] b35c
 b35a:  9b 03                   RET             #03
 b35c:  c1 8f 01 82 68 00 04    JE              L00,"four" [FALSE] b365
 b363:  9b 04                   RET             #04
 b365:  c1 8f 01 81 87 00 04    JE              L00,"five" [FALSE] b36e
 b36c:  9b 05                   RET             #05
 b36e:  c1 8f 01 98 f1 00 04    JE              L00,"six" [FALSE] b377
 b375:  9b 06                   RET             #06
 b377:  c1 8f 01 97 bf 00 04    JE              L00,"seven" [FALSE] b380
 b37e:  9b 07                   RET             #07
 b380:  c1 8f 01 7f 98 00 04    JE              L00,"eight" [FALSE] b389
 b387:  9b 08                   RET             #08
 b389:  c1 8f 01 8d ba 00 04    JE              L00,"nine" [FALSE] b392
 b390:  9b 09                   RET             #09
 b392:  c1 8f 01 9d 29 00 04    JE              L00,"ten" [FALSE] b39b
 b399:  9b 0a                   RET             #0a
 b39b:  c1 8f 01 7f d7 00 04    JE              L00,"eleven" [FALSE] b3a4
 b3a2:  9b 0b                   RET             #0b
 b3a4:  c1 8f 01 9f 2a 00 04    JE              L00,"twelve" [FALSE] b3ad
 b3ab:  9b 0c                   RET             #0c
 b3ad:  c1 8f 01 9d 8c 00 04    JE              L00,"thirteen" [FALSE] b3b6
 b3b4:  9b 0d                   RET             #0d
 b3b6:  c1 8f 01 82 71 00 04    JE              L00,"fourteen" [FALSE] b3bf
 b3bd:  9b 0e                   RET             #0e
 b3bf:  c1 8f 01 81 1b 00 04    JE              L00,"fifteen" [FALSE] b3c8
 b3c6:  9b 0f                   RET             #0f
 b3c8:  c1 8f 01 99 03 00 04    JE              L00,"sixteen" [FALSE] b3d1
 b3cf:  9b 10                   RET             #10
 b3d1:  c1 8f 01 97 d1 00 04    JE              L00,"seventeen" [FALSE] b3da
 b3d8:  9b 11                   RET             #11
 b3da:  c1 8f 01 7f a1 00 04    JE              L00,"eighteen" [FALSE] b3e3
 b3e1:  9b 12                   RET             #12
 b3e3:  c1 8f 01 8d c3 00 04    JE              L00,"nineteen" [FALSE] b3ec
 b3ea:  9b 13                   RET             #13
 b3ec:  c1 8f 01 9f 33 00 04    JE              L00,"twenty" [FALSE] b3f5
 b3f3:  9b 14                   RET             #14
 b3f5:  9b 00                   RET             #00

Routine b3f8, 4 locals

 b3f9:  0d 60 00                STORE           G50,#00
 b3fc:  0d 61 00                STORE           G51,#00
 b3ff:  0d 62 00                STORE           G52,#00
 b402:  0d 63 00                STORE           G53,#00
 b405:  0d 03 01                STORE           L02,#01
 b408:  41 03 01 01 0c          JE              L02,#01 [FALSE] b517
 b40d:  88 33 bc 02             CALL_1S         cef0 -> L01
 b411:  0d 03 00                STORE           L02,#00
 b414:  c1 8f 02 9d 56 00 05    JE              L01,"the" [FALSE] b41e
 b41b:  0d 03 01                STORE           L02,#01
 b41e:  c1 80 02 73 b6 74 97 75 1e 80 0b
                               JE              L01,"a","an","any" [TRUE] b432
 b429:  c1 83 02 7f aa 75 27 00 08
                               JE              L01,"either","anything" [FALSE]
b438
 b432:  0d 60 01                STORE           G50,#01
 b435:  0d 03 01                STORE           L02,#01
 b438:  c1 83 02 74 f1 8f 73 00 0c
                               JE              L01,"another","other" [FALSE]
b44b
 b441:  0d 60 01                STORE           G50,#01
 b444:  0d 03 01                STORE           L02,#01
 b447:  48 61 01 61             OR              G51,#01 -> G51
 b44b:  c1 80 02 8d 33 9d 95 9d 71 00 0c
                               JE              L01,"my","this","these" [FALSE]
b460
 b456:  0d 60 01                STORE           G50,#01
 b459:  0d 03 01                STORE           L02,#01
 b45c:  48 61 02 61             OR              G51,#02 -> G51
 b460:  c1 83 02 9d 4d 9d b0 00 0c
                               JE              L01,"that","those" [FALSE] b473
 b469:  0d 60 01                STORE           G50,#01
 b46c:  0d 03 01                STORE           L02,#01
 b46f:  48 61 04 61             OR              G51,#04 -> G51
 b473:  c1 8f 02 88 35 00 0c    JE              L01,"its" [FALSE] b484
 b47a:  0d 60 01                STORE           G50,#01
 b47d:  0d 03 01                STORE           L02,#01
 b480:  48 61 10 61             OR              G51,#10 -> G51
 b484:  c1 83 02 86 6a a2 db 00 0c
                               JE              L01,"his","your" [FALSE] b497
 b48d:  0d 60 01                STORE           G50,#01
 b490:  0d 03 01                STORE           L02,#01
 b493:  48 61 20 61             OR              G51,#20 -> G51
 b497:  c1 83 02 8a 3f 8a 24 00 0c
                               JE              L01,"lit","lighted" [FALSE] b4aa
 b4a0:  0d 60 01                STORE           G50,#01
 b4a3:  0d 03 01                STORE           L02,#01
 b4a6:  48 61 40 61             OR              G51,#40 -> G51
 b4aa:  c1 8f 02 9f 96 00 0c    JE              L01,"unlit" [FALSE] b4bb
 b4b1:  0d 60 01                STORE           G50,#01
 b4b4:  0d 03 01                STORE           L02,#01
 b4b7:  48 61 80 61             OR              G51,#80 -> G51
 b4bb:  c1 80 02 74 61 7f 59 80 79 80 09
                               JE              L01,"all","each","every" [TRUE]
b4cd
 b4c6:  c1 8f 02 80 82 00 17    JE              L01,"everythin" [FALSE] b4e2
 b4cd:  0d 60 01                STORE           G50,#01
 b4d0:  0d 03 01                STORE           L02,#01
 b4d3:  0d 62 64                STORE           G52,#64
 b4d6:  41 7a 01 00 05          JE              G6a,#01 [FALSE] b4de
 b4db:  0d 7a 02                STORE           G6a,#02
 b4de:  48 61 08 61             OR              G51,#08 -> G51
 b4e2:  41 64 01 00 1d          JE              G54,#01 [FALSE] b502
 b4e7:  d9 2f 2c d0 02 04       CALL_2S         b340 (L01) -> L03
 b4ed:  43 04 01 00 12          JG              L03,#01 [FALSE] b502
 b4f2:  0d 63 01                STORE           G53,#01
 b4f5:  0d 60 01                STORE           G50,#01
 b4f8:  0d 03 01                STORE           L02,#01
 b4fb:  2d 62 04                STORE           G52,L03
 b4fe:  48 61 08 61             OR              G51,#08 -> G51
 b502:  41 03 01 00 0f          JE              L02,#01 [FALSE] b514
 b507:  88 33 bc 00             CALL_1S         cef0 -> -(SP)
 b50b:  c1 8f 00 8e c8 80 04    JE              (SP)+,"of" [TRUE] b514
 b512:  96 42                   DEC             G32
 b514:  8c fe f3                JUMP            b408
 b517:  96 42                   DEC             G32
 b519:  43 62 00 00 0e          JG              G52,#00 [FALSE] b52a
 b51e:  42 01 02 80 07          JL              L00,#02 [TRUE] b528
 b523:  43 01 05 00 04          JG              L00,#05 [FALSE] b52a
 b528:  9b 07                   RET             #07
 b52a:  9b 00                   RET             #00

Routine b52c, 1 local

 b52d:  4a 01 00 00 03          TEST_ATTR       L00,#00 [FALSE] b533
 b532:  b0                      RTRUE
 b533:  4a 01 16 80 03          TEST_ATTR       L00,#16 [TRUE] b539
 b538:  b1                      RFALSE
 b539:  c1 95 72 46 44 45 80 07 JE              G62,#46,#44,#45 [TRUE] b546
 b541:  41 72 47 00 03          JE              G62,#47 [FALSE] b547
 b546:  b0                      RTRUE
 b547:  b1                      RFALSE

Routine b548, 11 locals

 b549:  0d 0b 00                STORE           L0a,#00
 b54c:  0d 08 01                STORE           L07,#01
 b54f:  0d 73 00                STORE           G63,#00
 b552:  42 3e 03 80 1d          JL              G2e,#03 [TRUE] b572
 b557:  b2 ...                  PRINT           "  [Object list from word "
 b56a:  e6 bf 42                PRINT_NUM       G32
 b56d:  b2 ...                  PRINT           "]
"
 b572:  88 33 bc 04             CALL_1S         cef0 -> L03
 b576:  96 42                   DEC             G32
 b578:  c1 83 04 88 2c 9d 5f 00 12
                               JE              L03,"it","them" [FALSE] b591
 b581:  2d 5a 04                STORE           G4a,L03
 b584:  2d 5b 5c                STORE           G4b,G4c
 b587:  41 5c 00 00 07          JE              G4c,#00 [FALSE] b591
 b58c:  0d 6b 09                STORE           G5b,#09
 b58f:  9b 00                   RET             #00
 b591:  c1 8f 04 86 46 00 12    JE              L03,"him" [FALSE] b5a8
 b598:  2d 5a 04                STORE           G4a,L03
 b59b:  2d 5b 5d                STORE           G4b,G4d
 b59e:  41 5d 00 00 07          JE              G4d,#00 [FALSE] b5a8
 b5a3:  0d 6b 09                STORE           G5b,#09
 b5a6:  9b 00                   RET             #00
 b5a8:  c1 8f 04 85 f5 00 12    JE              L03,"her" [FALSE] b5bf
 b5af:  2d 5a 04                STORE           G4a,L03
 b5b2:  2d 5b 5e                STORE           G4b,G4e
 b5b5:  41 5e 00 00 07          JE              G4e,#00 [FALSE] b5bf
 b5ba:  0d 6b 09                STORE           G5b,#09
 b5bd:  9b 00                   RET             #00
 b5bf:  c1 80 04 8b b0 8d 3c 97 9b 00 08
                               JE              L03,"me","myself","self" [FALSE]
b5d0
 b5ca:  2d 5a 04                STORE           G4a,L03
 b5cd:  2d 5b 19                STORE           G4b,G09
 b5d0:  41 02 07 00 76          JE              L01,#07 [FALSE] b649
 b5d5:  d9 2f 33 e0 42 03       CALL_2S         cf80 (G32) -> L02
 b5db:  c1 8f 03 fc 18 80 37    JE              L02,#fc18 [TRUE] b617
 b5e2:  41 4e 00 00 08          JE              G3e,#00 [FALSE] b5ed
 b5e7:  2d 2d 03                STORE           G1d,L02
 b5ea:  8c 00 05                JUMP            b5f0
 b5ed:  2d 2e 03                STORE           G1e,L02
 b5f0:  2d 33 03                STORE           G23,L02
 b5f3:  95 4e                   INC             G3e
 b5f5:  42 3e 03 80 1f          JL              G2e,#03 [TRUE] b617
 b5fa:  b2 ...                  PRINT           "  [Read special as the number
"
 b60f:  e6 bf 03                PRINT_NUM       L02
 b612:  b2 ...                  PRINT           "]
"
 b617:  42 3e 03 80 25          JL              G2e,#03 [TRUE] b63f
 b61c:  b2 ...                  PRINT           "  [Read special word at word
number "
 b637:  e6 bf 42                PRINT_NUM       G32
 b63a:  b2 ...                  PRINT           "]
"
 b63f:  88 33 bc 32             CALL_1S         cef0 -> G22
 b643:  0d 09 01                STORE           L08,#01
 b646:  8c 03 f1                JUMP            ba38
 b649:  41 02 08 00 4f          JE              L01,#08 [FALSE] b69b
 b64e:  e8 bf 42                PUSH            G32
 b651:  95 42                   INC             G32
 b653:  d9 2f 33 e0 00 03       CALL_2S         cf80 ((SP)+) -> L02
 b659:  c1 8f 03 fc 18 00 06    JE              L02,#fc18 [FALSE] b664
 b660:  0d 6b 03                STORE           G5b,#03
 b663:  b1                      RFALSE
 b664:  42 3e 03 80 1b          JL              G2e,#03 [TRUE] b682
 b669:  b2 ...                  PRINT           "  [Read number as "
 b67a:  e6 bf 03                PRINT_NUM       L02
 b67d:  b2 ...                  PRINT           "]
"
 b682:  e8 bf 4e                PUSH            G3e
 b685:  95 4e                   INC             G3e
 b687:  41 00 00 00 08          JE              (SP)+,#00 [FALSE] b692
 b68c:  2d 2d 03                STORE           G1d,L02
 b68f:  8c 00 05                JUMP            b695
 b692:  2d 2e 03                STORE           G1e,L02
 b695:  0d 09 01                STORE           L08,#01
 b698:  8c 03 9f                JUMP            ba38
 b69b:  42 02 30 80 6f          JL              L01,#30 [TRUE] b70d
 b6a0:  42 02 50 00 6a          JL              L01,#50 [FALSE] b70d
 b6a5:  55 02 30 00             SUB             L01,#30 -> -(SP)
 b6a9:  cf 2f 72 01 00 00       LOADW           #7201,(SP)+ -> -(SP)
 b6af:  e0 bf 00 03             CALL_VS         (SP)+ -> L02
 b6b3:  42 3e 03 80 25          JL              G2e,#03 [TRUE] b6db
 b6b8:  b2 ...                  PRINT           "  [Outside parsing routine
returned "
 b6d3:  e6 bf 03                PRINT_NUM       L02
 b6d6:  b2 ...                  PRINT           "]
"
 b6db:  42 03 00 00 03          JL              L02,#00 [FALSE] b6e1
 b6e0:  b1                      RFALSE
 b6e1:  41 03 00 00 05          JE              L02,#00 [FALSE] b6e9
 b6e6:  96 4d                   DEC             G3d
 b6e8:  b0                      RTRUE
 b6e9:  41 03 01 00 12          JE              L02,#01 [FALSE] b6fe
 b6ee:  41 4e 00 00 08          JE              G3e,#00 [FALSE] b6f9
 b6f3:  2d 2d 34                STORE           G1d,G24
 b6f6:  8c 00 05                JUMP            b6fc
 b6f9:  2d 2e 34                STORE           G1e,G24
 b6fc:  95 4e                   INC             G3e
 b6fe:  c1 8f 03 27 10 00 04    JE              L02,#2710 [FALSE] b707
 b705:  ab 03                   RET             L02
 b707:  2d 09 03                STORE           L08,L02
 b70a:  8c 03 2d                JUMP            ba38
 b70d:  42 02 50 80 54          JL              L01,#50 [TRUE] b764
 b712:  42 02 80 00 4f          JL              L01,#80 [FALSE] b764
 b717:  55 02 50 00             SUB             L01,#50 -> -(SP)
 b71b:  cf 2f 72 01 00 75       LOADW           #7201,(SP)+ -> G65
 b721:  0d 77 01                STORE           G67,#01
 b724:  e0 bf 75 03             CALL_VS         G65 -> L02
 b728:  42 3e 03 80 2b          JL              G2e,#03 [TRUE] b756
 b72d:  b2 ...                  PRINT           "  [Scope routine returned
multiple-flag of "
 b74e:  e6 bf 03                PRINT_NUM       L02
 b751:  b2 ...                  PRINT           "]
"
 b756:  41 03 01 00 08          JE              L02,#01 [FALSE] b761
 b75b:  0d 02 02                STORE           L01,#02
 b75e:  8c 00 05                JUMP            b764
 b761:  0d 02 00                STORE           L01,#00
 b764:  0d 6e 00                STORE           G5e,#00
 b767:  42 02 10 80 08          JL              L01,#10 [TRUE] b772
 b76c:  2d 6e 02                STORE           G5e,L01
 b76f:  0d 02 00                STORE           L01,#00
 b772:  0d 64 01                STORE           G54,#01
 b775:  2d 0a 42                STORE           L09,G32
 b778:  d9 2f 2c fe 02 03       CALL_2S         b3f8 (L01) -> L02
 b77e:  41 03 00 80 07          JE              L02,#00 [TRUE] b788
 b783:  2d 6b 03                STORE           G5b,L02
 b786:  9b 00                   RET             #00
 b788:  2d 51 42                STORE           G41,G32
 b78b:  41 02 01 81 ba          JE              L01,#01 [TRUE] b948
 b790:  cf 1f 5e af 00 05       LOADW           #5eaf,#00 -> L04
 b796:  42 3e 03 80 25          JL              G2e,#03 [TRUE] b7be
 b79b:  b2 ...                  PRINT           "  [Calling NounDomain on
location and actor]
"
 b7be:  e0 2a 2e a5 29 28 02 03 CALL_VS         ba94 (G19,G18,L01) -> L02
 b7c6:  c1 8f 03 27 10 00 04    JE              L02,#2710 [FALSE] b7cf
 b7cd:  ab 03                   RET             L02
 b7cf:  41 03 00 00 09          JE              L02,#00 [FALSE] b7db
 b7d4:  88 31 e4 6b             CALL_1S         c790 -> G5b
 b7d8:  8c 02 a4                JUMP            ba7d
 b7db:  42 3e 03 80 98          JL              G2e,#03 [TRUE] b876
 b7e0:  43 03 01 00 1e          JG              L02,#01 [FALSE] b801
 b7e5:  b2 ...                  PRINT           "  [ND returned "
 b7f4:  da 2f 38 4e 03          CALL_2N         e138 (L02)
 b7f9:  b2 ...                  PRINT           "]
"
 b7fe:  8c 00 77                JUMP            b876
 b801:  b2 ...                  PRINT           "  [ND appended to the multiple
object list:
"
 b822:  cf 1f 5e af 00 07       LOADW           #5eaf,#00 -> L06
 b828:  54 05 01 06             ADD             L04,#01 -> L05
 b82c:  63 06 07 80 30          JG              L05,L06 [TRUE] b85f
 b831:  b2 ...                  PRINT           "  Entry "
 b838:  e6 bf 06                PRINT_NUM       L05
 b83b:  b2 ...                  PRINT           ": "
 b83e:  cf 2f 5e af 06 00       LOADW           #5eaf,L05 -> -(SP)
 b844:  da 2f 38 53 00          CALL_2N         e14c ((SP)+)
 b849:  b2 ...                  PRINT           " ("
 b84c:  cf 2f 5e af 06 00       LOADW           #5eaf,L05 -> -(SP)
 b852:  e6 bf 00                PRINT_NUM       (SP)+
 b855:  b2 ...                  PRINT           ")
"
 b85a:  95 06                   INC             L05
 b85c:  8c ff cf                JUMP            b82c
 b85f:  b2 ...                  PRINT           "  List now has size "
 b86e:  e6 bf 07                PRINT_NUM       L06
 b871:  b2 ...                  PRINT           "]
"
 b876:  41 03 01 00 7a          JE              L02,#01 [FALSE] b8f3
 b87b:  41 0b 00 00 08          JE              L0a,#00 [FALSE] b886
 b880:  0d 0b 01                STORE           L0a,#01
 b883:  8c 00 6c                JUMP            b8f0
 b886:  cf 1f 5e af 00 07       LOADW           #5eaf,#00 -> L06
 b88c:  e1 1b 5e af 00 05       STOREW          #5eaf,#00,L04
 b892:  54 05 01 06             ADD             L04,#01 -> L05
 b896:  63 06 07 80 25          JG              L05,L06 [TRUE] b8be
 b89b:  41 08 01 00 10          JE              L07,#01 [FALSE] b8ae
 b8a0:  cf 2f 5e af 06 00       LOADW           #5eaf,L05 -> -(SP)
 b8a6:  da 2f 31 f4 00          CALL_2N         c7d0 ((SP)+)
 b8ab:  8c 00 0d                JUMP            b8b9
 b8ae:  cf 2f 5e af 06 00       LOADW           #5eaf,L05 -> -(SP)
 b8b4:  da 2f 32 02 00          CALL_2N         c808 ((SP)+)
 b8b9:  95 06                   INC             L05
 b8bb:  8c ff da                JUMP            b896
 b8be:  42 3e 03 80 2f          JL              G2e,#03 [TRUE] b8f0
 b8c3:  b2 ...                  PRINT           "  [Merging "
 b8ce:  75 07 05 00             SUB             L06,L04 -> -(SP)
 b8d2:  e6 bf 00                PRINT_NUM       (SP)+
 b8d5:  b2 ...                  PRINT           " new objects to the "
 b8e2:  e6 bf 05                PRINT_NUM       L04
 b8e5:  b2 ...                  PRINT           " old ones]
"
 b8f0:  8c 00 57                JUMP            b948
 b8f3:  41 02 06 00 13          JE              L01,#06 [FALSE] b909
 b8f8:  d9 2f 2d 4b 03 00       CALL_2S         b52c (L02) -> -(SP)
 b8fe:  41 00 00 00 08          JE              (SP)+,#00 [FALSE] b909
 b903:  0d 6b 0b                STORE           G5b,#0b
 b906:  8c 01 76                JUMP            ba7d
 b909:  41 0b 00 00 08          JE              L0a,#00 [FALSE] b914
 b90e:  2d 09 03                STORE           L08,L02
 b911:  8c 00 36                JUMP            b948
 b914:  41 08 01 00 0a          JE              L07,#01 [FALSE] b921
 b919:  da 2f 31 f4 03          CALL_2N         c7d0 (L02)
 b91e:  8c 00 07                JUMP            b926
 b921:  da 2f 32 02 03          CALL_2N         c808 (L02)
 b926:  42 3e 03 80 1f          JL              G2e,#03 [TRUE] b948
 b92b:  b2 ...                  PRINT           "  [Combining "
 b938:  da 2f 38 4e 03          CALL_2N         e138 (L02)
 b93d:  b2 ...                  PRINT           " with list]
"
 b948:  41 02 01 00 5e          JE              L01,#01 [FALSE] b9a9
 b94d:  e0 2a 2e a5 28 29 02 03 CALL_VS         ba94 (G18,G19,L01) -> L02
 b955:  c1 8f 03 27 10 00 04    JE              L02,#2710 [FALSE] b95e
 b95c:  ab 03                   RET             L02
 b95e:  41 03 00 00 08          JE              L02,#00 [FALSE] b969
 b963:  88 31 e4 6b             CALL_1S         c790 -> G5b
 b967:  ab 03                   RET             L02
 b969:  a3 03 04                GET_PARENT      L02 -> L03
 b96c:  61 04 28 80 37          JE              L03,G18 [TRUE] b9a6
 b971:  41 36 01 00 0b          JE              G26,#01 [FALSE] b97f
 b976:  2d 52 51                STORE           G42,G41
 b979:  0d 6b 06                STORE           G5b,#06
 b97c:  8c 01 00                JUMP            ba7d
 b97f:  2d 65 03                STORE           G55,L02
 b982:  42 3e 03 80 21          JL              G2e,#03 [TRUE] b9a6
 b987:  b2 ...                  PRINT           "  [Allowing object "
 b998:  da 2f 38 4e 03          CALL_2N         e138 (L02)
 b99d:  b2 ...                  PRINT           " for now]
"
 b9a6:  2d 09 03                STORE           L08,L02
 b9a9:  74 51 55 42             ADD             G41,G45 -> G32
 b9ad:  88 33 bc 04             CALL_1S         cef0 -> L03
 b9b1:  c1 80 04 74 b2 78 cf 80 94 80 09
                               JE              L03,"and","but","except" [TRUE]
b9c3
 b9bc:  c1 8f 04 a2 9c 00 75    JE              L03,"xcomma" [FALSE] ba36
 b9c3:  42 3e 03 80 16          JL              G2e,#03 [TRUE] b9dc
 b9c8:  b2 ...                  PRINT           "  [Read '"
 b9d3:  a7 04                   PRINT_ADDR      L03
 b9d5:  b2 ...                  PRINT           "']
"
 b9dc:  42 02 02 80 07          JL              L01,#02 [TRUE] b9e6
 b9e1:  42 02 06 80 08          JL              L01,#06 [TRUE] b9ec
 b9e6:  0d 6b 07                STORE           G5b,#07
 b9e9:  8c 00 93                JUMP            ba7d
 b9ec:  c1 83 04 78 cf 80 94 00 06
                               JE              L03,"but","except" [FALSE] b9f9
 b9f5:  35 01 08 08             SUB             #01,L07 -> L07
 b9f9:  41 0b 00 00 31          JE              L0a,#00 [FALSE] ba2d
 b9fe:  e1 17 5e af 00 01       STOREW          #5eaf,#00,#01
 ba04:  e1 1b 5e af 01 09       STOREW          #5eaf,#01,L08
 ba0a:  0d 0b 01                STORE           L0a,#01
 ba0d:  42 3e 03 80 1d          JL              G2e,#03 [TRUE] ba2d
 ba12:  b2 ...                  PRINT           "  [Making new list from "
 ba23:  da 2f 38 4e 09          CALL_2N         e138 (L08)
 ba28:  b2 ...                  PRINT           "]
"
 ba2d:  0d 73 01                STORE           G63,#01
 ba30:  0d 4f 00                STORE           G3f,#00
 ba33:  8c fb 1e                JUMP            b552
 ba36:  96 42                   DEC             G32
 ba38:  41 0b 01 00 0b          JE              L0a,#01 [FALSE] ba46
 ba3d:  0d 09 00                STORE           L08,#00
 ba40:  2d 49 02                STORE           G39,L01
 ba43:  8c 00 26                JUMP            ba6a
 ba46:  41 60 01 00 21          JE              G50,#01 [FALSE] ba6a
 ba4b:  49 61 08 00             AND             G51,#08 -> -(SP)
 ba4f:  41 00 00 80 18          JE              (SP)+,#00 [TRUE] ba6a
 ba54:  42 62 64 00 13          JL              G52,#64 [FALSE] ba6a
 ba59:  43 62 01 00 0e          JG              G52,#01 [FALSE] ba6a
 ba5e:  0d 48 01                STORE           G38,#01
 ba61:  2d 47 62                STORE           G37,G52
 ba64:  0d 6b 10                STORE           G5b,#10
 ba67:  8c 00 15                JUMP            ba7d
 ba6a:  54 4c 02 00             ADD             G3c,#02 -> -(SP)
 ba6e:  e1 ab 01 00 09          STOREW          L00,(SP)+,L08
 ba73:  95 4c                   INC             G3c
 ba75:  e1 2b 60 2a 4a 09       STOREW          #602a,G3a,L08
 ba7b:  9b 01                   RET             #01
 ba7d:  41 64 01 00 10          JE              G54,#01 [FALSE] ba90
 ba82:  41 63 01 00 0b          JE              G53,#01 [FALSE] ba90
 ba87:  0d 64 00                STORE           G54,#00
 ba8a:  2d 42 0a                STORE           G32,L09
 ba8d:  8c fc ea                JUMP            b778
 ba90:  9b 00                   RET             #00

Routine ba94, 11 locals

 ba95:  42 3e 04 80 1f          JL              G2e,#04 [TRUE] bab7
 ba9a:  b2 ...                  PRINT           "   [NounDomain called at word
"
 bab1:  e6 bf 42                PRINT_NUM       G32
 bab4:  b2 ...                  PRINT           "
"
 bab7:  0d 55 00                STORE           G45,#00
 baba:  0d 53 00                STORE           G43,#00
 babd:  2d 56 42                STORE           G46,G32
 bac0:  0d 70 00                STORE           G60,#00
 bac3:  f9 2a 32 35 01 02 03    CALL_VN         c8d4 (L00,L01,L02)
 baca:  42 3e 04 80 1d          JL              G2e,#04 [TRUE] baea
 bacf:  b2 ...                  PRINT           "   [ND made "
 badc:  e6 bf 53                PRINT_NUM       G43
 badf:  b2 ...                  PRINT           " matches]
"
 baea:  74 56 55 42             ADD             G46,G45 -> G32
 baee:  41 53 00 00 05          JE              G43,#00 [FALSE] baf6
 baf3:  95 42                   INC             G32
 baf5:  b1                      RFALSE
 baf6:  63 56 43 80 6d          JG              G46,G33 [TRUE] bb66
 bafb:  41 53 01 00 0a          JE              G43,#01 [FALSE] bb08
 bb00:  cf 1f 60 54 00 05       LOADW           #6054,#00 -> L04
 bb06:  ab 05                   RET             L04
 bb08:  63 42 43 80 5b          JG              G32,G33 [TRUE] bb66
 bb0d:  88 33 bc 05             CALL_1S         cef0 -> L04
 bb11:  96 42                   DEC             G32
 bb13:  c1 80 05 74 b2 a2 9c 9d 68 80 4a
                               JE              L04,"and","xcomma","then" [TRUE]
bb66
 bb1e:  c1 83 05 78 cf 80 94 80 41
                               JE              L04,"but","except" [TRUE] bb66
 bb27:  41 5f 08 00 03          JE              G4f,#08 [FALSE] bb2d
 bb2c:  b1                      RFALSE
 bb2d:  43 5f 08 00 36          JG              G4f,#08 [FALSE] bb66
 bb32:  88 33 a5 00             CALL_1S         ce94 -> -(SP)
 bb36:  61 5f 00 80 2b          JE              G4f,(SP)+ [TRUE] bb64
 bb3b:  96 42                   DEC             G32
 bb3d:  42 3e 03 80 23          JL              G2e,#03 [TRUE] bb63
 bb42:  b2 ...                  PRINT           "   [ND failed at lookahead at
word "
 bb5b:  e6 bf 42                PRINT_NUM       G32
 bb5e:  b2 ...                  PRINT           "]
"
 bb63:  b1                      RFALSE
 bb64:  96 42                   DEC             G32
 bb66:  0d 54 00                STORE           G44,#00
 bb69:  41 53 01 00 08          JE              G43,#01 [FALSE] bb74
 bb6e:  cf 1f 60 54 00 05       LOADW           #6054,#00 -> L04
 bb74:  43 53 01 00 16          JG              G43,#01 [FALSE] bb8d
 bb79:  d9 2f 2f 96 03 05       CALL_2S         be58 (L02) -> L04
 bb7f:  c1 8f 05 ff ff 00 03    JE              L04,#ffff [FALSE] bb87
 bb86:  b1                      RFALSE
 bb87:  41 05 01 00 03          JE              L04,#01 [FALSE] bb8d
 bb8c:  b0                      RTRUE
 bb8d:  41 05 00 80 19          JE              L04,#00 [TRUE] bba9
 bb92:  41 73 01 00 04          JE              G63,#01 [FALSE] bb99
 bb97:  ab 05                   RET             L04
 bb99:  41 4f 00 00 05          JE              G3f,#00 [FALSE] bba1
 bb9e:  2d 4f 4a                STORE           G3f,G3a
 bba1:  e1 2b 60 2a 4a 05       STOREW          #602a,G3a,L04
 bba7:  ab 05                   RET             L04
 bba9:  63 56 43 00 05          JG              G46,G33 [FALSE] bbb1
 bbae:  8c 01 8a                JUMP            bd39
 bbb1:  41 03 06 00 0a          JE              L02,#06 [FALSE] bbbe
 bbb6:  b2 ...                  PRINT           "Who"
 bbbb:  8c 00 07                JUMP            bbc3
 bbbe:  b2 ...                  PRINT           "Which"
 bbc3:  b2 ...                  PRINT           " do you mean, "
 bbce:  2d 06 54                STORE           L05,G44
 bbd1:  0d 0b 00                STORE           L0a,#00
 bbd4:  0d 05 01                STORE           L04,#01
 bbd7:  63 05 54 80 5e          JG              L04,G44 [TRUE] bc38
 bbdc:  cf 2f 60 d4 0b 00       LOADW           #60d4,L0a -> -(SP)
 bbe2:  61 00 05 80 16          JE              (SP)+,L04 [TRUE] bbfb
 bbe7:  35 00 05 00             SUB             #00,L04 -> -(SP)
 bbeb:  cf 2f 60 d4 0b 00       LOADW           #60d4,L0a -> -(SP)
 bbf1:  61 00 00 80 07          JE              (SP)+,(SP)+ [TRUE] bbfb
 bbf6:  95 0b                   INC             L0a
 bbf8:  8c ff e3                JUMP            bbdc
 bbfb:  cf 2f 60 54 0b 07       LOADW           #6054,L0a -> L06
 bc01:  cf 2f 60 d4 0b 00       LOADW           #60d4,L0a -> -(SP)
 bc07:  43 00 00 00 0a          JG              (SP)+,#00 [FALSE] bc14
 bc0c:  da 2f 38 4e 07          CALL_2N         e138 (L06)
 bc11:  8c 00 07                JUMP            bc19
 bc14:  da 2f 38 48 07          CALL_2N         e120 (L06)
 bc19:  55 06 01 00             SUB             L05,#01 -> -(SP)
 bc1d:  62 05 00 00 05          JL              L04,(SP)+ [FALSE] bc25
 bc22:  b2 ...                  PRINT           ", "
 bc25:  55 06 01 00             SUB             L05,#01 -> -(SP)
 bc29:  61 05 00 00 07          JE              L04,(SP)+ [FALSE] bc33
 bc2e:  b2 ...                  PRINT           " or "
 bc33:  95 05                   INC             L04
 bc35:  8c ff a1                JUMP            bbd7
 bc38:  b2 ...                  PRINT           "?
"
 bc3d:  e0 03 28 c9 5f 2f 5f a8 0a
                               CALL_VS         a324 (#5f2f,#5fa8) -> L09
 bc46:  cf 1f 5f a8 01 04       LOADW           #5fa8,#01 -> L03
 bc4c:  c1 80 04 74 61 78 1b 80 82 80 0b
                               JE              L03,"all","both","everythin"
[TRUE] bc60
 bc57:  c1 83 04 80 79 7f 59 00 71
                               JE              L03,"every","each" [FALSE] bccf
 bc60:  42 03 02 80 42          JL              L02,#02 [TRUE] bca5
 bc65:  43 03 05 80 3d          JG              L02,#05 [TRUE] bca5
 bc6a:  cf 1f 5e af 00 08       LOADW           #5eaf,#00 -> L07
 bc70:  0d 05 00                STORE           L04,#00
 bc73:  62 05 53 00 24          JL              L04,G43 [FALSE] bc9a
 bc78:  74 08 05 00             ADD             L07,L04 -> -(SP)
 bc7c:  42 00 3f 00 1b          JL              (SP)+,#3f [FALSE] bc9a
 bc81:  cf 2f 60 54 05 07       LOADW           #6054,L04 -> L06
 bc87:  54 05 01 00             ADD             L04,#01 -> -(SP)
 bc8b:  74 00 08 00             ADD             (SP)+,L07 -> -(SP)
 bc8f:  e1 2b 5e af 00 07       STOREW          #5eaf,(SP)+,L06
 bc95:  95 05                   INC             L04
 bc97:  8c ff db                JUMP            bc73
 bc9a:  74 05 08 00             ADD             L04,L07 -> -(SP)
 bc9e:  e1 1b 5e af 00 00       STOREW          #5eaf,#00,(SP)+
 bca4:  b0                      RTRUE
 bca5:  b2 ...                  PRINT           "Sorry, you can only have one
item here. Which one exactly?
"
 bccc:  8c ff 70                JUMP            bc3d
 bccf:  50 04 06 06             LOADB           L03,#06 -> L05
 bcd3:  49 06 01 00             AND             L05,#01 -> -(SP)
 bcd7:  21 00 00 80 15          JE              #00,(SP)+ [TRUE] bcef
 bcdc:  f9 03 34 30 5d d5 5f 2f CALL_VN         d0c0 (#5dd5,#5f2f)
 bce4:  f9 03 34 30 5e 4e 5f a8 CALL_VN         d0c0 (#5e4e,#5fa8)
 bcec:  8b 27 10                RET             #2710
 bcef:  d0 1f 5e 4e 01 09       LOADB           #5e4e,#01 -> L08
 bcf5:  74 0a 09 00             ADD             L09,L08 -> -(SP)
 bcf9:  e2 1b 5e 4e 01 00       STOREB          #5e4e,#01,(SP)+
 bcff:  74 09 0a 07             ADD             L08,L09 -> L06
 bd03:  63 07 56 00 13          JG              L06,G46 [FALSE] bd19
 bd08:  75 07 0a 00             SUB             L06,L09 -> -(SP)
 bd0c:  f9 22 32 29 07 5e 4e 00 CALL_VN         c8a4 (L06,#5e4e,(SP)+)
 bd14:  96 07                   DEC             L06
 bd16:  8c ff ec                JUMP            bd03
 bd19:  0d 07 01                STORE           L06,#01
 bd1c:  63 07 0a 80 17          JG              L06,L09 [TRUE] bd36
 bd21:  74 56 07 00             ADD             G46,L06 -> -(SP)
 bd25:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 bd29:  f9 22 32 29 00 5f a8 07 CALL_VN         c8a4 ((SP)+,#5fa8,L06)
 bd31:  95 07                   INC             L06
 bd33:  8c ff e8                JUMP            bd1c
 bd36:  8b 27 10                RET             #2710
 bd39:  41 03 06 00 0a          JE              L02,#06 [FALSE] bd46
 bd3e:  b2 ...                  PRINT           "Whom"
 bd43:  8c 00 07                JUMP            bd4b
 bd46:  b2 ...                  PRINT           "What"
 bd4b:  b2 ...                  PRINT           " do you want"
 bd54:  61 28 19 80 0a          JE              G18,G09 [TRUE] bd61
 bd59:  b2 ...                  PRINT           " "
 bd5c:  da 2f 38 4e 28          CALL_2N         e138 (G18)
 bd61:  b2 ...                  PRINT           " to "
 bd64:  f9 17 31 b5 00 01       CALL_VN         c6d4 (#00,#01)
 bd6a:  b2 ...                  PRINT           "?
"
 bd6f:  e0 03 28 c9 5f 2f 5f a8 0a
                               CALL_VS         a324 (#5f2f,#5fa8) -> L09
 bd78:  cf 1f 5f a8 01 04       LOADW           #5fa8,#01 -> L03
 bd7e:  50 04 06 06             LOADB           L03,#06 -> L05
 bd82:  49 06 01 00             AND             L05,#01 -> -(SP)
 bd86:  21 00 00 80 15          JE              #00,(SP)+ [TRUE] bd9e
 bd8b:  f9 03 34 30 5d d5 5f 2f CALL_VN         d0c0 (#5dd5,#5f2f)
 bd93:  f9 03 34 30 5e 4e 5f a8 CALL_VN         d0c0 (#5e4e,#5fa8)
 bd9b:  8b 27 10                RET             #2710
 bd9e:  d0 1f 5e 4e 01 09       LOADB           #5e4e,#01 -> L08
 bda4:  41 4f 00 00 1e          JE              G3f,#00 [FALSE] bdc5
 bda9:  0d 07 01                STORE           L06,#01
 bdac:  63 07 0a 80 13          JG              L06,L09 [TRUE] bdc2
 bdb1:  74 09 07 00             ADD             L08,L06 -> -(SP)
 bdb5:  f9 22 32 29 00 5f a8 07 CALL_VN         c8a4 ((SP)+,#5fa8,L06)
 bdbd:  95 07                   INC             L06
 bdbf:  8c ff ec                JUMP            bdac
 bdc2:  8c 00 86                JUMP            be49
 bdc5:  75 4a 4f 06             SUB             G3a,G3f -> L05
 bdc9:  0d 07 01                STORE           L06,#01
 bdcc:  63 07 0a 80 17          JG              L06,L09 [TRUE] bde6
 bdd1:  74 09 07 00             ADD             L08,L06 -> -(SP)
 bdd5:  74 00 06 00             ADD             (SP)+,L05 -> -(SP)
 bdd9:  f9 22 32 29 00 5f a8 07 CALL_VN         c8a4 ((SP)+,#5fa8,L06)
 bde1:  95 07                   INC             L06
 bde3:  8c ff e8                JUMP            bdcc
 bde6:  2d 06 4f                STORE           L05,G3f
 bde9:  62 06 4a 00 5d          JL              L05,G3a [FALSE] be49
 bdee:  cf 2f 60 2a 06 00       LOADW           #602a,L05 -> -(SP)
 bdf4:  42 00 02 80 1f          JL              (SP)+,#02 [TRUE] be16
 bdf9:  cf 2f 60 2a 06 00       LOADW           #602a,L05 -> -(SP)
 bdff:  c2 8f 00 27 10 00 12    JL              (SP)+,#2710 [FALSE] be16
 be06:  e1 13 5f a8 01 88 2c    STOREW          #5fa8,#01,"it"
 be0d:  cf 2f 60 2a 06 5c       LOADW           #602a,L05 -> G4c
 be13:  8c 00 1a                JUMP            be2e
 be16:  cf 2f 60 2a 06 00       LOADW           #602a,L05 -> -(SP)
 be1c:  d5 8f 00 27 10 00       SUB             (SP)+,#2710 -> -(SP)
 be22:  d9 2f 33 ad 00 00       CALL_2S         ceb4 ((SP)+) -> -(SP)
 be28:  e1 1b 5f a8 01 00       STOREW          #5fa8,#01,(SP)+
 be2e:  54 09 01 00             ADD             L08,#01 -> -(SP)
 be32:  74 00 06 00             ADD             (SP)+,L05 -> -(SP)
 be36:  75 00 4f 00             SUB             (SP)+,G3f -> -(SP)
 be3a:  f9 21 32 29 00 5f a8 01 CALL_VN         c8a4 ((SP)+,#5fa8,#01)
 be42:  95 0a                   INC             L09
 be44:  95 06                   INC             L05
 be46:  8c ff a2                JUMP            bde9
 be49:  74 0a 09 00             ADD             L09,L08 -> -(SP)
 be4d:  e2 1b 5e 4e 01 00       STOREB          #5e4e,#01,(SP)+
 be53:  8b 27 10                RET             #2710

Routine be58, 10 locals

 be59:  42 3e 04 80 23          JL              G2e,#04 [TRUE] be7f
 be5e:  b2 ...                  PRINT           "   [Adjudicating match list of
size "
 be79:  e6 bf 53                PRINT_NUM       G43
 be7c:  b2 ...                  PRINT           "
"
 be7f:  55 53 01 03             SUB             G43,#01 -> L02
 be83:  0d 05 00                STORE           L04,#00
 be86:  cf 1f 60 54 00 06       LOADW           #6054,#00 -> L05
 be8c:  0d 02 00                STORE           L01,#00
 be8f:  63 02 03 80 d3          JG              L01,L02 [TRUE] bf65
 be94:  cf 2f 60 54 02 07       LOADW           #6054,L01 -> L06
 be9a:  4a 07 02 80 c3          TEST_ATTR       L06,#02 [TRUE] bf60
 be9f:  2d 08 07                STORE           L07,L06
 bea2:  a3 08 08                GET_PARENT      L07 -> L07
 bea5:  c1 a9 08 29 28 00 3f f7 JE              L07,G19,G18,#00 [FALSE] bea2
 bead:  41 01 00 00 1c          JE              L00,#00 [FALSE] becc
 beb2:  61 08 29 00 17          JE              L07,G19 [FALSE] becc
 beb7:  41 6e 00 80 0d          JE              G5e,#00 [TRUE] bec7
 bebc:  d9 2f 32 20 07 00       CALL_2S         c880 (L06) -> -(SP)
 bec2:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] becc
 bec7:  95 05                   INC             L04
 bec9:  2d 06 07                STORE           L05,L06
 becc:  41 01 01 00 0f          JE              L00,#01 [FALSE] bede
 bed1:  a3 07 00                GET_PARENT      L06 -> -(SP)
 bed4:  61 00 28 00 07          JE              (SP)+,G18 [FALSE] bede
 bed9:  95 05                   INC             L04
 bedb:  2d 06 07                STORE           L05,L06
 bede:  41 01 02 00 0c          JE              L00,#02 [FALSE] beed
 bee3:  61 08 29 00 07          JE              L07,G19 [FALSE] beed
 bee8:  95 05                   INC             L04
 beea:  2d 06 07                STORE           L05,L06
 beed:  41 01 03 00 0f          JE              L00,#03 [FALSE] beff
 bef2:  a3 07 00                GET_PARENT      L06 -> -(SP)
 bef5:  61 00 28 00 07          JE              (SP)+,G18 [FALSE] beff
 befa:  95 05                   INC             L04
 befc:  2d 06 07                STORE           L05,L06
 beff:  c1 97 01 04 05 00 47    JE              L00,#04,#05 [FALSE] bf4b
 bf06:  c1 8f 6f ff ff 00 12    JE              G5f,#ffff [FALSE] bf1d
 bf0d:  a3 07 00                GET_PARENT      L06 -> -(SP)
 bf10:  61 00 28 00 07          JE              (SP)+,G18 [FALSE] bf1a
 bf15:  95 05                   INC             L04
 bf17:  2d 06 07                STORE           L05,L06
 bf1a:  8c 00 30                JUMP            bf4b
 bf1d:  41 01 04 00 14          JE              L00,#04 [FALSE] bf34
 bf22:  a3 07 00                GET_PARENT      L06 -> -(SP)
 bf25:  61 00 28 00 0c          JE              (SP)+,G18 [FALSE] bf34
 bf2a:  61 07 6f 80 07          JE              L06,G5f [TRUE] bf34
 bf2f:  95 05                   INC             L04
 bf31:  2d 06 07                STORE           L05,L06
 bf34:  41 01 05 00 14          JE              L00,#05 [FALSE] bf4b
 bf39:  a3 07 00                GET_PARENT      L06 -> -(SP)
 bf3c:  61 00 28 00 0c          JE              (SP)+,G18 [FALSE] bf4b
 bf41:  66 07 6f 00 07          JIN             L06,G5f [FALSE] bf4b
 bf46:  95 05                   INC             L04
 bf48:  2d 06 07                STORE           L05,L06
 bf4b:  41 01 06 00 12          JE              L00,#06 [FALSE] bf60
 bf50:  d9 2f 2d 4b 07 00       CALL_2S         b52c (L06) -> -(SP)
 bf56:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] bf60
 bf5b:  95 05                   INC             L04
 bf5d:  2d 06 07                STORE           L05,L06
 bf60:  95 02                   INC             L01
 bf62:  8c ff 2c                JUMP            be8f
 bf65:  41 05 01 00 04          JE              L04,#01 [FALSE] bf6c
 bf6a:  ab 06                   RET             L05
 bf6c:  41 01 06 00 0f          JE              L00,#06 [FALSE] bf7e
 bf71:  41 05 00 00 0a          JE              L04,#00 [FALSE] bf7e
 bf76:  cf 1f 60 54 00 00       LOADW           #6054,#00 -> -(SP)
 bf7c:  ab 00                   RET             (SP)+
 bf7e:  41 60 01 01 07          JE              G50,#01 [FALSE] c088
 bf83:  49 61 08 00             AND             G51,#08 -> -(SP)
 bf87:  41 00 00 80 fe          JE              (SP)+,#00 [TRUE] c088
 bf8c:  42 01 02 80 07          JL              L00,#02 [TRUE] bf96
 bf91:  43 01 05 00 08          JG              L00,#05 [FALSE] bf9c
 bf96:  0d 6b 07                STORE           G5b,#07
 bf99:  8b ff ff                RET             #ffff
 bf9c:  0d 02 00                STORE           L01,#00
 bf9f:  0d 54 01                STORE           G44,#01
 bfa2:  cf 1f 5e af 00 0a       LOADW           #5eaf,#00 -> L09
 bfa8:  88 31 4c 03             CALL_1S         c530 -> L02
 bfac:  c1 8f 03 ff ff 80 8b    JE              L02,#ffff [TRUE] c03c
 bfb3:  62 02 62 00 86          JL              L01,G52 [FALSE] c03c
 bfb8:  74 02 0a 00             ADD             L01,L09 -> -(SP)
 bfbc:  42 00 3f 00 7d          JL              (SP)+,#3f [FALSE] c03c
 bfc1:  0d 09 00                STORE           L08,#00
 bfc4:  4a 03 02 80 0a          TEST_ATTR       L02,#02 [TRUE] bfd1
 bfc9:  4a 03 1a 80 05          TEST_ATTR       L02,#1a [TRUE] bfd1
 bfce:  0d 09 01                STORE           L08,#01
 bfd1:  c1 97 01 03 04 00 0d    JE              L00,#03,#04 [FALSE] bfe3
 bfd8:  a3 03 00                GET_PARENT      L02 -> -(SP)
 bfdb:  61 00 28 80 05          JE              (SP)+,G18 [TRUE] bfe3
 bfe0:  0d 09 00                STORE           L08,#00
 bfe3:  e0 2b ab 0e 03 09 04    CALL_VS         2ac38 (L02,L08) -> L03
 bfea:  41 04 01 00 08          JE              L03,#01 [FALSE] bff5
 bfef:  0d 09 01                STORE           L08,#01
 bff2:  8c 00 0a                JUMP            bffd
 bff5:  41 04 02 00 05          JE              L03,#02 [FALSE] bffd
 bffa:  0d 09 00                STORE           L08,#00
 bffd:  41 09 01 00 23          JE              L08,#01 [FALSE] c023
 c002:  95 02                   INC             L01
 c004:  74 02 0a 00             ADD             L01,L09 -> -(SP)
 c008:  e1 2b 5e af 00 03       STOREW          #5eaf,(SP)+,L02
 c00e:  42 3e 04 80 0f          JL              G2e,#04 [TRUE] c020
 c013:  b2 ...                  PRINT           "   Accepting it
"
 c020:  8c 00 14                JUMP            c035
 c023:  42 3e 04 80 0f          JL              G2e,#04 [TRUE] c035
 c028:  b2 ...                  PRINT           "   Rejecting it
"
 c035:  88 31 4c 03             CALL_1S         c530 -> L02
 c039:  8c ff 72                JUMP            bfac
 c03c:  62 02 62 00 16          JL              L01,G52 [FALSE] c055
 c041:  42 62 64 00 11          JL              G52,#64 [FALSE] c055
 c046:  0d 6b 10                STORE           G5b,#10
 c049:  2d 47 62                STORE           G37,G52
 c04c:  cf 1f 5e af 00 48       LOADW           #5eaf,#00 -> G38
 c052:  8b ff ff                RET             #ffff
 c055:  74 02 0a 00             ADD             L01,L09 -> -(SP)
 c059:  e1 1b 5e af 00 00       STOREW          #5eaf,#00,(SP)+
 c05f:  2d 49 01                STORE           G39,L00
 c062:  42 3e 04 80 21          JL              G2e,#04 [TRUE] c086
 c067:  b2 ...                  PRINT           "   Made multiple object of
size "
 c07e:  e6 bf 02                PRINT_NUM       L01
 c081:  b2 ...                  PRINT           "]
"
 c086:  9b 01                   RET             #01
 c088:  0d 02 00                STORE           L01,#00
 c08b:  62 02 53 00 0d          JL              L01,G43 [FALSE] c09b
 c090:  e1 27 60 d4 02 00       STOREW          #60d4,L01,#00
 c096:  95 02                   INC             L01
 c098:  8c ff f2                JUMP            c08b
 c09b:  0d 07 01                STORE           L06,#01
 c09e:  0d 02 00                STORE           L01,#00
 c0a1:  62 02 53 00 6f          JL              L01,G43 [FALSE] c113
 c0a6:  cf 2f 60 d4 02 00       LOADW           #60d4,L01 -> -(SP)
 c0ac:  41 00 00 00 5f          JE              (SP)+,#00 [FALSE] c10e
 c0b1:  e8 bf 07                PUSH            L06
 c0b4:  95 07                   INC             L06
 c0b6:  e1 2b 60 d4 02 00       STOREW          #60d4,L01,(SP)+
 c0bc:  0d 09 00                STORE           L08,#00
 c0bf:  54 02 01 03             ADD             L01,#01 -> L02
 c0c3:  62 03 53 00 39          JL              L02,G43 [FALSE] c0ff
 c0c8:  cf 2f 60 d4 03 00       LOADW           #60d4,L02 -> -(SP)
 c0ce:  41 00 00 00 29          JE              (SP)+,#00 [FALSE] c0fa
 c0d3:  cf 2f 60 54 03 00       LOADW           #6054,L02 -> -(SP)
 c0d9:  cf 2f 60 54 02 00       LOADW           #6054,L01 -> -(SP)
 c0df:  e0 2b 31 74 00 00 00    CALL_VS         c5d0 ((SP)+,(SP)+) -> -(SP)
 c0e6:  41 00 01 00 11          JE              (SP)+,#01 [FALSE] c0fa
 c0eb:  0d 09 01                STORE           L08,#01
 c0ee:  cf 2f 60 d4 02 00       LOADW           #60d4,L01 -> -(SP)
 c0f4:  e1 2b 60 d4 03 00       STOREW          #60d4,L02,(SP)+
 c0fa:  95 03                   INC             L02
 c0fc:  8c ff c6                JUMP            c0c3
 c0ff:  41 09 01 00 0c          JE              L08,#01 [FALSE] c10e
 c104:  35 01 07 00             SUB             #01,L06 -> -(SP)
 c108:  e1 2b 60 d4 02 00       STOREW          #60d4,L01,(SP)+
 c10e:  95 02                   INC             L01
 c110:  8c ff 90                JUMP            c0a1
 c113:  96 07                   DEC             L06
 c115:  42 3e 04 80 67          JL              G2e,#04 [TRUE] c17f
 c11a:  b2 ...                  PRINT           "   Difficult adjudication with
"
 c12f:  e6 bf 07                PRINT_NUM       L06
 c132:  b2 ...                  PRINT           " equivalence classes:
"
 c143:  0d 02 00                STORE           L01,#00
 c146:  62 02 53 00 36          JL              L01,G43 [FALSE] c17f
 c14b:  b2 ...                  PRINT           "   "
 c14e:  cf 2f 60 54 02 00       LOADW           #6054,L01 -> -(SP)
 c154:  da 2f 38 53 00          CALL_2N         e14c ((SP)+)
 c159:  b2 ...                  PRINT           " ("
 c15c:  cf 2f 60 54 02 00       LOADW           #6054,L01 -> -(SP)
 c162:  e6 bf 00                PRINT_NUM       (SP)+
 c165:  b2 ...                  PRINT           ")  ---  "
 c16e:  cf 2f 60 d4 02 00       LOADW           #60d4,L01 -> -(SP)
 c174:  e6 bf 00                PRINT_NUM       (SP)+
 c177:  b2 ...                  PRINT           "
"
 c17a:  95 02                   INC             L01
 c17c:  8c ff c9                JUMP            c146
 c17f:  2d 54 07                STORE           G44,L06
 c182:  43 07 01 00 8a          JG              L06,#01 [FALSE] c20f
 c187:  41 60 00 00 85          JE              G50,#00 [FALSE] c20f
 c18c:  0d 03 00                STORE           L02,#00
 c18f:  0d 05 00                STORE           L04,#00
 c192:  0d 02 00                STORE           L01,#00
 c195:  62 02 53 00 2c          JL              L01,G43 [FALSE] c1c4
 c19a:  cf 2f 60 54 02 00       LOADW           #6054,L01 -> -(SP)
 c1a0:  e0 27 ab 0e 00 02 04    CALL_VS         2ac38 ((SP)+,#02) -> L03
 c1a7:  61 04 03 00 04          JE              L03,L02 [FALSE] c1ae
 c1ac:  95 05                   INC             L04
 c1ae:  63 04 03 00 0e          JG              L03,L02 [FALSE] c1bf
 c1b3:  2d 03 04                STORE           L02,L03
 c1b6:  0d 05 01                STORE           L04,#01
 c1b9:  cf 2f 60 54 02 06       LOADW           #6054,L01 -> L05
 c1bf:  95 02                   INC             L01
 c1c1:  8c ff d3                JUMP            c195
 c1c4:  41 05 01 00 24          JE              L04,#01 [FALSE] c1eb
 c1c9:  42 3e 04 80 1d          JL              G2e,#04 [TRUE] c1e9
 c1ce:  b2 ...                  PRINT           "   ChooseObjects picked a
best.]
"
 c1e9:  ab 06                   RET             L05
 c1eb:  42 3e 04 80 1f          JL              G2e,#04 [TRUE] c20d
 c1f0:  b2 ...                  PRINT           "   Unable to decide: it's a
draw.]
"
 c20d:  9b 00                   RET             #00
 c20f:  41 60 00 00 05          JE              G50,#00 [FALSE] c217
 c214:  0d 61 00                STORE           G51,#00
 c217:  41 07 01 00 05          JE              L06,#01 [FALSE] c21f
 c21c:  0d 73 01                STORE           G63,#01
 c21f:  88 31 4c 00             CALL_1S         c530 -> -(SP)
 c223:  ab 00                   RET             (SP)+

Routine c228, 3 locals

 c229:  42 3e 04 80 32          JL              G2e,#04 [TRUE] c25e
 c22e:  b2 ...                  PRINT           "   Revising multiple object
list of size "
 c249:  cf 1f 5e af 00 00       LOADW           #5eaf,#00 -> -(SP)
 c24f:  e6 bf 00                PRINT_NUM       (SP)+
 c252:  b2 ...                  PRINT           " with 2nd "
 c259:  aa 01                   PRINT_OBJ       L00
 c25b:  b2 ...                  PRINT           "
"
 c25e:  c1 97 49 04 05 00 4c    JE              G39,#04,#05 [FALSE] c2af
 c265:  0d 02 01                STORE           L01,#01
 c268:  0d 03 00                STORE           L02,#00
 c26b:  cf 1f 5e af 00 00       LOADW           #5eaf,#00 -> -(SP)
 c271:  63 02 00 80 35          JG              L01,(SP)+ [TRUE] c2a9
 c276:  41 49 04 00 0d          JE              G39,#04 [FALSE] c286
 c27b:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c281:  61 00 01 00 12          JE              (SP)+,L00 [FALSE] c296
 c286:  41 49 05 00 1b          JE              G39,#05 [FALSE] c2a4
 c28b:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c291:  66 00 01 00 10          JIN             (SP)+,L00 [FALSE] c2a4
 c296:  95 03                   INC             L02
 c298:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c29e:  e1 2b 5e af 03 00       STOREW          #5eaf,L02,(SP)+
 c2a4:  95 02                   INC             L01
 c2a6:  8c ff c4                JUMP            c26b
 c2a9:  e1 1b 5e af 00 03       STOREW          #5eaf,#00,L02
 c2af:  41 49 02 00 9a          JE              G39,#02 [FALSE] c34c
 c2b4:  0d 02 01                STORE           L01,#01
 c2b7:  0d 03 00                STORE           L02,#00
 c2ba:  cf 1f 5e af 00 00       LOADW           #5eaf,#00 -> -(SP)
 c2c0:  63 02 00 80 1a          JG              L01,(SP)+ [TRUE] c2dd
 c2c5:  a3 28 00                GET_PARENT      G18 -> -(SP)
 c2c8:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c2ce:  a3 00 00                GET_PARENT      (SP)+ -> -(SP)
 c2d1:  61 00 00 00 04          JE              (SP)+,(SP)+ [FALSE] c2d8
 c2d6:  95 03                   INC             L02
 c2d8:  95 02                   INC             L01
 c2da:  8c ff df                JUMP            c2ba
 c2dd:  42 3e 04 80 27          JL              G2e,#04 [TRUE] c307
 c2e2:  b2 ...                  PRINT           "   Token 2 plural case: number
with actor "
 c301:  e6 bf 03                PRINT_NUM       L02
 c304:  b2 ...                  PRINT           "
"
 c307:  41 7a 02 80 07          JE              G6a,#02 [TRUE] c311
 c30c:  43 03 00 00 3d          JG              L02,#00 [FALSE] c34c
 c311:  0d 02 01                STORE           L01,#01
 c314:  0d 03 00                STORE           L02,#00
 c317:  cf 1f 5e af 00 00       LOADW           #5eaf,#00 -> -(SP)
 c31d:  63 02 00 80 26          JG              L01,(SP)+ [TRUE] c346
 c322:  a3 28 00                GET_PARENT      G18 -> -(SP)
 c325:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c32b:  a3 00 00                GET_PARENT      (SP)+ -> -(SP)
 c32e:  61 00 00 00 10          JE              (SP)+,(SP)+ [FALSE] c341
 c333:  95 03                   INC             L02
 c335:  cf 2f 5e af 02 00       LOADW           #5eaf,L01 -> -(SP)
 c33b:  e1 2b 5e af 03 00       STOREW          #5eaf,L02,(SP)+
 c341:  95 02                   INC             L01
 c343:  8c ff d3                JUMP            c317
 c346:  e1 1b 5e af 00 03       STOREW          #5eaf,#00,L02
 c34c:  cf 1f 5e af 00 02       LOADW           #5eaf,#00 -> L01
 c352:  42 3e 04 80 17          JL              G2e,#04 [TRUE] c36c
 c357:  b2 ...                  PRINT           "   Done: new size "
 c366:  e6 bf 02                PRINT_NUM       L01
 c369:  b2 ...                  PRINT           "
"
 c36c:  41 02 00 00 04          JE              L01,#00 [FALSE] c373
 c371:  9b 11                   RET             #11
 c373:  9b 00                   RET             #00

Routine c378, 7 locals

 c379:  49 61 01 00             AND             G51,#01 -> -(SP)
 c37d:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] c385
 c382:  0d 05 28                STORE           L04,#28
 c385:  49 61 02 00             AND             G51,#02 -> -(SP)
 c389:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c392
 c38e:  54 05 28 05             ADD             L04,#28 -> L04
 c392:  49 61 04 00             AND             G51,#04 -> -(SP)
 c396:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c39f
 c39b:  54 05 28 05             ADD             L04,#28 -> L04
 c39f:  49 61 10 00             AND             G51,#10 -> -(SP)
 c3a3:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c3ac
 c3a8:  54 05 28 05             ADD             L04,#28 -> L04
 c3ac:  49 61 20 00             AND             G51,#20 -> -(SP)
 c3b0:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c3b9
 c3b5:  54 05 28 05             ADD             L04,#28 -> L04
 c3b9:  49 61 40 00             AND             G51,#40 -> -(SP)
 c3bd:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c3c6
 c3c2:  54 05 28 05             ADD             L04,#28 -> L04
 c3c6:  49 61 80 00             AND             G51,#80 -> -(SP)
 c3ca:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] c3d3
 c3cf:  54 05 28 05             ADD             L04,#28 -> L04
 c3d3:  42 3e 04 80 2b          JL              G2e,#04 [TRUE] c401
 c3d8:  b2 ...                  PRINT           "   Scoring match list with
type "
 c3ed:  e6 bf 61                PRINT_NUM       G51
 c3f0:  b2 ...                  PRINT           ", threshold "
 c3f9:  e6 bf 05                PRINT_NUM       L04
 c3fc:  b2 ...                  PRINT           ":
"
 c401:  0d 06 1e                STORE           L05,#1e
 c404:  0d 07 14                STORE           L06,#14
 c407:  c1 97 72 13 14 00 08    JE              G62,#13,#14 [FALSE] c414
 c40e:  0d 06 14                STORE           L05,#14
 c411:  0d 07 1e                STORE           L06,#1e
 c414:  0d 04 00                STORE           L03,#00
 c417:  62 04 53 01 12          JL              L03,G43 [FALSE] c52c
 c41c:  cf 2f 60 54 04 03       LOADW           #6054,L03 -> L02
 c422:  a3 03 01                GET_PARENT      L02 -> L00
 c425:  0d 02 00                STORE           L01,#00
 c428:  61 01 28 00 05          JE              L00,G18 [FALSE] c430
 c42d:  2d 02 06                STORE           L01,L05
 c430:  61 01 29 00 05          JE              L00,G19 [FALSE] c438
 c435:  2d 02 07                STORE           L01,L06
 c438:  41 02 00 00 0a          JE              L01,#00 [FALSE] c445
 c43d:  41 01 01 80 05          JE              L00,#01 [TRUE] c445
 c442:  0d 02 0a                STORE           L01,#0a
 c445:  49 61 01 00             AND             G51,#01 -> -(SP)
 c449:  41 00 00 80 0e          JE              (SP)+,#00 [TRUE] c45a
 c44e:  c1 aa 03 5c 5d 5e 80 06 JE              L02,G4c,G4d,G4e [TRUE] c45a
 c456:  54 02 28 02             ADD             L01,#28 -> L01
 c45a:  49 61 02 00             AND             G51,#02 -> -(SP)
 c45e:  41 00 00 80 0b          JE              (SP)+,#00 [TRUE] c46c
 c463:  61 01 28 00 06          JE              L00,G18 [FALSE] c46c
 c468:  54 02 28 02             ADD             L01,#28 -> L01
 c46c:  49 61 04 00             AND             G51,#04 -> -(SP)
 c470:  41 00 00 80 0b          JE              (SP)+,#00 [TRUE] c47e
 c475:  61 01 29 00 06          JE              L00,G19 [FALSE] c47e
 c47a:  54 02 28 02             ADD             L01,#28 -> L01
 c47e:  49 61 40 00             AND             G51,#40 -> -(SP)
 c482:  41 00 00 80 0b          JE              (SP)+,#00 [TRUE] c490
 c487:  4a 03 09 00 06          TEST_ATTR       L02,#09 [FALSE] c490
 c48c:  54 02 28 02             ADD             L01,#28 -> L01
 c490:  49 61 80 00             AND             G51,#80 -> -(SP)
 c494:  41 00 00 80 0b          JE              (SP)+,#00 [TRUE] c4a2
 c499:  4a 03 09 80 06          TEST_ATTR       L02,#09 [TRUE] c4a2
 c49e:  54 02 28 02             ADD             L01,#28 -> L01
 c4a2:  49 61 10 00             AND             G51,#10 -> -(SP)
 c4a6:  41 00 00 80 0b          JE              (SP)+,#00 [TRUE] c4b4
 c4ab:  61 01 5c 00 06          JE              L00,G4c [FALSE] c4b4
 c4b0:  54 02 28 02             ADD             L01,#28 -> L01
 c4b4:  49 61 20 00             AND             G51,#20 -> -(SP)
 c4b8:  41 00 00 80 16          JE              (SP)+,#00 [TRUE] c4d1
 c4bd:  4a 01 00 00 11          TEST_ATTR       L00,#00 [FALSE] c4d1
 c4c2:  d9 2f 34 2e 01 00       CALL_2S         d0b8 (L00) -> -(SP)
 c4c8:  41 00 01 00 06          JE              (SP)+,#01 [FALSE] c4d1
 c4cd:  54 02 28 02             ADD             L01,#28 -> L01
 c4d1:  e0 27 ab 0e 03 02 00    CALL_VS         2ac38 (L02,#02) -> -(SP)
 c4d8:  74 02 00 02             ADD             L01,(SP)+ -> L01
 c4dc:  62 02 05 00 0c          JL              L01,L04 [FALSE] c4eb
 c4e1:  e1 23 60 54 04 ff ff    STOREW          #6054,L03,#ffff
 c4e8:  8c 00 3e                JUMP            c527
 c4eb:  e1 2b 60 d4 04 02       STOREW          #60d4,L03,L01
 c4f1:  42 3e 04 80 33          JL              G2e,#04 [TRUE] c527
 c4f6:  b2 ...                  PRINT           "   "
 c4f9:  cf 2f 60 54 04 00       LOADW           #6054,L03 -> -(SP)
 c4ff:  da 2f 38 53 00          CALL_2N         e14c ((SP)+)
 c504:  b2 ...                  PRINT           " ("
 c507:  cf 2f 60 54 04 00       LOADW           #6054,L03 -> -(SP)
 c50d:  e6 bf 00                PRINT_NUM       (SP)+
 c510:  b2 ...                  PRINT           ") in "
 c515:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 c51a:  b2 ...                  PRINT           " scores "
 c521:  e6 bf 02                PRINT_NUM       L01
 c524:  b2 ...                  PRINT           "
"
 c527:  95 04                   INC             L03
 c529:  8c fe ed                JUMP            c417
 c52c:  0d 54 02                STORE           G44,#02
 c52f:  b0                      RTRUE

Routine c530, 4 locals

 c531:  41 54 01 80 05          JE              G44,#01 [TRUE] c539
 c536:  8f 30 de                CALL_1N         c378
 c539:  0d 01 00                STORE           L00,#00
 c53c:  cd 4f 03 ff ff          STORE           L02,#ffff
 c541:  0d 04 00                STORE           L03,#00
 c544:  62 04 53 00 23          JL              L03,G43 [FALSE] c56a
 c549:  cf 2f 60 54 04 00       LOADW           #6054,L03 -> -(SP)
 c54f:  42 00 00 80 13          JL              (SP)+,#00 [TRUE] c565
 c554:  cf 2f 60 d4 04 02       LOADW           #60d4,L03 -> L01
 c55a:  63 02 03 00 08          JG              L01,L02 [FALSE] c565
 c55f:  2d 03 02                STORE           L02,L01
 c562:  2d 01 04                STORE           L00,L03
 c565:  95 04                   INC             L03
 c567:  8c ff dc                JUMP            c544
 c56a:  42 3e 04 80 4a          JL              G2e,#04 [TRUE] c5b7
 c56f:  42 03 00 00 1e          JL              L02,#00 [FALSE] c590
 c574:  b2 ...                  PRINT           "   Best guess ran out of
choices
"
 c58d:  8c 00 29                JUMP            c5b7
 c590:  b2 ...                  PRINT           "   Best guess "
 c59b:  cf 2f 60 54 01 00       LOADW           #6054,L00 -> -(SP)
 c5a1:  da 2f 38 4e 00          CALL_2N         e138 ((SP)+)
 c5a6:  b2 ...                  PRINT           " ("
 c5a9:  cf 2f 60 54 01 00       LOADW           #6054,L00 -> -(SP)
 c5af:  e6 bf 00                PRINT_NUM       (SP)+
 c5b2:  b2 ...                  PRINT           ")
"
 c5b7:  42 03 00 00 05          JL              L02,#00 [FALSE] c5bf
 c5bc:  8b ff ff                RET             #ffff
 c5bf:  cf 2f 60 54 01 04       LOADW           #6054,L00 -> L03
 c5c5:  e1 23 60 54 01 ff ff    STOREW          #6054,L00,#ffff
 c5cc:  ab 04                   RET             L03

Routine c5d0, 9 locals

 c5d1:  61 01 02 00 03          JE              L00,L01 [FALSE] c5d7
 c5d6:  b0                      RTRUE
 c5d7:  41 01 00 80 07          JE              L00,#00 [TRUE] c5e1
 c5dc:  41 02 00 00 03          JE              L01,#00 [FALSE] c5e2
 c5e1:  b1                      RFALSE
 c5e2:  a3 01 00                GET_PARENT      L00 -> -(SP)
 c5e5:  41 00 01 80 0a          JE              (SP)+,#01 [TRUE] c5f2
 c5ea:  a3 02 00                GET_PARENT      L01 -> -(SP)
 c5ed:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] c5f3
 c5f2:  b1                      RFALSE
 c5f3:  51 01 1d 00             GET_PROP        L00,#1d -> -(SP)
 c5f7:  41 00 00 00 0b          JE              (SP)+,#00 [FALSE] c605
 c5fc:  51 02 1d 00             GET_PROP        L01,#1d -> -(SP)
 c600:  41 00 00 80 38          JE              (SP)+,#00 [TRUE] c63b
 c605:  51 02 1d 00             GET_PROP        L01,#1d -> -(SP)
 c609:  51 01 1d 00             GET_PROP        L00,#1d -> -(SP)
 c60d:  61 00 00 80 03          JE              (SP)+,(SP)+ [TRUE] c613
 c612:  b1                      RFALSE
 c613:  cd 4f 57 01 04          STORE           G47,#0104
 c618:  2d 58 01                STORE           G48,L00
 c61b:  2d 59 02                STORE           G49,L01
 c61e:  2d 08 42                STORE           L07,G32
 c621:  e0 27 34 7a 01 1d 07    CALL_VS         d1e8 (L00,#1d) -> L06
 c628:  2d 42 08                STORE           G32,L07
 c62b:  c1 8f 07 ff ff 00 03    JE              L06,#ffff [FALSE] c633
 c632:  b0                      RTRUE
 c633:  c1 8f 07 ff fe 00 03    JE              L06,#fffe [FALSE] c63b
 c63a:  b1                      RFALSE
 c63b:  52 01 01 03             GET_PROP_ADDR   L00,#01 -> L02
 c63f:  52 01 01 00             GET_PROP_ADDR   L00,#01 -> -(SP)
 c643:  2d ff 00                STORE           Gef,(SP)+
 c646:  a0 ff c5                JZ              Gef [TRUE] c64c
 c649:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 c64c:  e8 bf ff                PUSH            Gef
 c64f:  57 00 02 05             DIV             (SP)+,#02 -> L04
 c653:  52 02 01 04             GET_PROP_ADDR   L01,#01 -> L03
 c657:  52 02 01 00             GET_PROP_ADDR   L01,#01 -> -(SP)
 c65b:  2d ff 00                STORE           Gef,(SP)+
 c65e:  a0 ff c5                JZ              Gef [TRUE] c664
 c661:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 c664:  e8 bf ff                PUSH            Gef
 c667:  57 00 02 06             DIV             (SP)+,#02 -> L05
 c66b:  0d 07 00                STORE           L06,#00
 c66e:  62 07 05 00 2d          JL              L06,L04 [FALSE] c69e
 c673:  0d 09 00                STORE           L08,#00
 c676:  0d 08 00                STORE           L07,#00
 c679:  62 08 06 00 17          JL              L07,L05 [FALSE] c693
 c67e:  6f 04 08 00             LOADW           L03,L07 -> -(SP)
 c682:  6f 03 07 00             LOADW           L02,L06 -> -(SP)
 c686:  61 00 00 00 05          JE              (SP)+,(SP)+ [FALSE] c68e
 c68b:  0d 09 01                STORE           L08,#01
 c68e:  95 08                   INC             L07
 c690:  8c ff e8                JUMP            c679
 c693:  41 09 00 00 03          JE              L08,#00 [FALSE] c699
 c698:  b1                      RFALSE
 c699:  95 07                   INC             L06
 c69b:  8c ff d2                JUMP            c66e
 c69e:  0d 08 00                STORE           L07,#00
 c6a1:  62 08 06 00 2d          JL              L07,L05 [FALSE] c6d1
 c6a6:  0d 09 00                STORE           L08,#00
 c6a9:  0d 07 00                STORE           L06,#00
 c6ac:  62 07 05 00 17          JL              L06,L04 [FALSE] c6c6
 c6b1:  6f 04 08 00             LOADW           L03,L07 -> -(SP)
 c6b5:  6f 03 07 00             LOADW           L02,L06 -> -(SP)
 c6b9:  61 00 00 00 05          JE              (SP)+,(SP)+ [FALSE] c6c1
 c6be:  0d 09 01                STORE           L08,#01
 c6c1:  95 07                   INC             L06
 c6c3:  8c ff e8                JUMP            c6ac
 c6c6:  41 09 00 00 03          JE              L08,#00 [FALSE] c6cc
 c6cb:  b1                      RFALSE
 c6cc:  95 08                   INC             L07
 c6ce:  8c ff d2                JUMP            c6a1
 c6d1:  b0                      RTRUE

Routine c6d4, 6 locals

 c6d5:  41 01 00 00 5a          JE              L00,#00 [FALSE] c732
 c6da:  2d 03 44                STORE           L02,G34
 c6dd:  0d 01 01                STORE           L00,#01
 c6e0:  0d 06 01                STORE           L05,#01
 c6e3:  c1 8f 03 89 04 00 0a    JE              L02,"l" [FALSE] c6f2
 c6ea:  b2 ...                  PRINT           "look"
 c6ef:  8c 00 42                JUMP            c732
 c6f2:  c1 8f 03 a2 ed 00 0a    JE              L02,"z" [FALSE] c701
 c6f9:  b2 ...                  PRINT           "wait"
 c6fe:  8c 00 33                JUMP            c732
 c701:  c1 8f 03 a2 93 00 0c    JE              L02,"x" [FALSE] c712
 c708:  b2 ...                  PRINT           "examine"
 c70f:  8c 00 22                JUMP            c732
 c712:  c1 83 03 87 42 87 ed 00 0c
                               JE              L02,"i","inv" [FALSE] c725
 c71b:  b2 ...                  PRINT           "inventory"
 c722:  8c 00 0f                JUMP            c732
 c725:  d9 2f b0 fe 03 00       CALL_2S         2c3f8 (L02) -> -(SP)
 c72b:  41 00 00 00 04          JE              (SP)+,#00 [FALSE] c732
 c730:  a7 03                   PRINT_ADDR      L02
 c732:  75 4a 02 04             SUB             G3a,L01 -> L03
 c736:  2d 05 01                STORE           L04,L00
 c739:  63 05 04 80 53          JG              L04,L03 [TRUE] c78f
 c73e:  41 06 01 00 05          JE              L05,#01 [FALSE] c746
 c743:  e5 7f 20                PRINT_CHAR      ' '
 c746:  cf 2f 60 2a 05 03       LOADW           #602a,L04 -> L02
 c74c:  41 03 00 00 0e          JE              L02,#00 [FALSE] c75d
 c751:  b2 ...                  PRINT           "those things"
 c75a:  8c 00 2c                JUMP            c787
 c75d:  41 03 01 00 0a          JE              L02,#01 [FALSE] c76a
 c762:  b2 ...                  PRINT           "that"
 c767:  8c 00 1f                JUMP            c787
 c76a:  c2 8f 03 27 10 80 13    JL              L02,#2710 [TRUE] c782
 c771:  d5 8f 03 27 10 00       SUB             L02,#2710 -> -(SP)
 c777:  d9 2f 33 ad 00 03       CALL_2S         ceb4 ((SP)+) -> L02
 c77d:  a7 03                   PRINT_ADDR      L02
 c77f:  8c 00 07                JUMP            c787
 c782:  da 2f 38 4e 03          CALL_2N         e138 (L02)
 c787:  0d 06 01                STORE           L05,#01
 c78a:  95 05                   INC             L04
 c78c:  8c ff ac                JUMP            c739
 c78f:  b0                      RTRUE

Routine c790, 3 locals

 c791:  2d 52 51                STORE           G42,G41
 c794:  41 75 00 80 07          JE              G65,#00 [TRUE] c79e
 c799:  2d 76 75                STORE           G66,G65
 c79c:  9b 12                   RET             #12
 c79e:  96 42                   DEC             G32
 c7a0:  88 33 bc 02             CALL_1S         cef0 -> L01
 c7a4:  0d 03 04                STORE           L02,#04
 c7a7:  61 02 5a 00 05          JE              L01,G4a [FALSE] c7af
 c7ac:  0d 03 0e                STORE           L02,#0e
 c7af:  a3 28 01                GET_PARENT      G18 -> L00
 c7b2:  4a 01 18 00 11          TEST_ATTR       L00,#18 [FALSE] c7c6
 c7b7:  e0 2b 33 84 01 02 00    CALL_VS         ce10 (L00,L01) -> -(SP)
 c7be:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] c7c6
 c7c3:  0d 03 0d                STORE           L02,#0d
 c7c6:  63 6b 03 00 04          JG              G5b,L02 [FALSE] c7cd
 c7cb:  ab 6b                   RET             G5b
 c7cd:  ab 03                   RET             L02

Routine c7d0, 3 locals

 c7d1:  cf 1f 5e af 00 02       LOADW           #5eaf,#00 -> L01
 c7d7:  41 02 3f 00 06          JE              L01,#3f [FALSE] c7e0
 c7dc:  0d 27 01                STORE           G17,#01
 c7df:  b0                      RTRUE
 c7e0:  0d 03 01                STORE           L02,#01
 c7e3:  63 03 02 80 13          JG              L02,L01 [TRUE] c7f9
 c7e8:  cf 2f 5e af 03 00       LOADW           #5eaf,L02 -> -(SP)
 c7ee:  61 01 00 00 03          JE              L00,(SP)+ [FALSE] c7f4
 c7f3:  b0                      RTRUE
 c7f4:  95 03                   INC             L02
 c7f6:  8c ff ec                JUMP            c7e3
 c7f9:  95 02                   INC             L01
 c7fb:  e1 2b 5e af 02 01       STOREW          #5eaf,L01,L00
 c801:  e1 1b 5e af 00 02       STOREW          #5eaf,#00,L01
 c807:  b0                      RTRUE

Routine c808, 5 locals

 c809:  cf 1f 5e af 00 02       LOADW           #5eaf,#00 -> L01
 c80f:  0d 05 00                STORE           L04,#00
 c812:  0d 03 01                STORE           L02,#01
 c815:  63 03 02 80 39          JG              L02,L01 [TRUE] c851
 c81a:  cf 2f 5e af 03 00       LOADW           #5eaf,L02 -> -(SP)
 c820:  61 01 00 00 29          JE              L00,(SP)+ [FALSE] c84c
 c825:  2d 04 03                STORE           L03,L02
 c828:  63 04 02 80 17          JG              L03,L01 [TRUE] c842
 c82d:  54 04 01 00             ADD             L03,#01 -> -(SP)
 c831:  cf 2f 5e af 00 00       LOADW           #5eaf,(SP)+ -> -(SP)
 c837:  e1 2b 5e af 04 00       STOREW          #5eaf,L03,(SP)+
 c83d:  95 04                   INC             L03
 c83f:  8c ff e8                JUMP            c828
 c842:  96 02                   DEC             L01
 c844:  e1 1b 5e af 00 02       STOREW          #5eaf,#00,L01
 c84a:  ab 05                   RET             L04
 c84c:  95 03                   INC             L02
 c84e:  8c ff c6                JUMP            c815
 c851:  0d 05 09                STORE           L04,#09
 c854:  ab 05                   RET             L04

Routine c858, 4 locals

 c859:  cf 1f 5e af 00 02       LOADW           #5eaf,#00 -> L01
 c85f:  0d 03 01                STORE           L02,#01
 c862:  63 03 02 80 1a          JG              L02,L01 [TRUE] c87f
 c867:  cf 2f 5e af 03 04       LOADW           #5eaf,L02 -> L03
 c86d:  6a 04 01 80 0a          TEST_ATTR       L03,L00 [TRUE] c87a
 c872:  da 2f 32 02 04          CALL_2N         c808 (L03)
 c877:  8c ff e1                JUMP            c859
 c87a:  95 03                   INC             L02
 c87c:  8c ff e5                JUMP            c862
 c87f:  b0                      RTRUE

Routine c880, 1 local

 c881:  42 6e 80 80 0d          JL              G5e,#80 [TRUE] c891
 c886:  55 6e 80 00             SUB             G5e,#80 -> -(SP)
 c88a:  6a 01 00 00 03          TEST_ATTR       L00,(SP)+ [FALSE] c890
 c88f:  b0                      RTRUE
 c890:  b1                      RFALSE
 c891:  2d 30 01                STORE           G20,L00
 c894:  55 6e 10 00             SUB             G5e,#10 -> -(SP)
 c898:  cf 2f 72 01 00 00       LOADW           #7201,(SP)+ -> -(SP)
 c89e:  e0 bf 00 00             CALL_VS         (SP)+ -> -(SP)
 c8a2:  ab 00                   RET             (SP)+

Routine c8a4, 5 locals

 c8a5:  56 01 02 00             MUL             L00,#02 -> -(SP)
 c8a9:  55 00 01 04             SUB             (SP)+,#01 -> L03
 c8ad:  56 03 02 00             MUL             L02,#02 -> -(SP)
 c8b1:  55 00 01 05             SUB             (SP)+,#01 -> L04
 c8b5:  e8 bf 05                PUSH            L04
 c8b8:  95 05                   INC             L04
 c8ba:  6f 02 00 00             LOADW           L01,(SP)+ -> -(SP)
 c8be:  e8 bf 04                PUSH            L03
 c8c1:  95 04                   INC             L03
 c8c3:  e1 2b 5e 4e 00 00       STOREW          #5e4e,(SP)+,(SP)+
 c8c9:  6f 02 05 00             LOADW           L01,L04 -> -(SP)
 c8cd:  e1 2b 5e 4e 04 00       STOREW          #5e4e,L03,(SP)+
 c8d3:  b0                      RTRUE

Routine c8d4, 4 locals

 c8d5:  0d 04 00                STORE           L03,#00
 c8d8:  41 75 00 80 0f          JE              G65,#00 [TRUE] c8ea
 c8dd:  0d 77 02                STORE           G67,#02
 c8e0:  e0 bf 75 00             CALL_VS         G65 -> -(SP)
 c8e4:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] c8ea
 c8e9:  b0                      RTRUE
 c8ea:  c1 ab 28 01 02 00 0e    JE              G18,L00,L01 [FALSE] c8fd
 c8f1:  d9 2f b0 fa 28 00       CALL_2S         2c3e8 (G18) -> -(SP)
 c8f7:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] c8fd
 c8fc:  b0                      RTRUE
 c8fd:  41 03 05 00 1e          JE              L02,#05 [FALSE] c91e
 c902:  c1 8f 6f ff ff 80 17    JE              G5f,#ffff [TRUE] c91e
 c909:  d9 2f 32 4c 6f 00       CALL_2S         c930 (G5f) -> -(SP)
 c90f:  41 00 01 00 09          JE              (SP)+,#01 [FALSE] c91b
 c914:  f9 26 32 a6 6f 00 03    CALL_VN         ca98 (G5f,#00,L02)
 c91b:  8c 00 10                JUMP            c92c
 c91e:  f9 2a 32 a6 01 02 03    CALL_VN         ca98 (L00,L01,L02)
 c925:  f9 26 32 a6 02 00 03    CALL_VN         ca98 (L01,#00,L02)
 c92c:  b0                      RTRUE

Routine c930, 1 local

 c931:  4a 01 14 80 11          TEST_ATTR       L00,#14 [TRUE] c945
 c936:  4a 01 17 80 0c          TEST_ATTR       L00,#17 [TRUE] c945
 c93b:  4a 01 03 00 08          TEST_ATTR       L00,#03 [FALSE] c946
 c940:  4a 01 0e 00 03          TEST_ATTR       L00,#0e [FALSE] c946
 c945:  b0                      RTRUE
 c946:  b1                      RFALSE

Routine c948, 1 local

 c949:  c1 97 74 00 01 80 08    JE              G64,#00,#01 [TRUE] c956
 c950:  da 2f 32 59 01          CALL_2N         c964 (L00)
 c955:  b0                      RTRUE
 c956:  2d 42 56                STORE           G32,G46
 c959:  da 2f 33 2c 01          CALL_2N         ccb0 (L00)
 c95e:  0d 70 01                STORE           G60,#01
 c961:  b0                      RTRUE

Routine c964, 3 locals

 c965:  2d 02 74                STORE           L01,G64
 c968:  2d 03 58                STORE           L02,G48
 c96b:  42 3e 05 80 3f          JL              G2e,#05 [TRUE] c9ad
 c970:  b2 ...                  PRINT           "[DSA on "
 c97b:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 c980:  b2 ...                  PRINT           " with reason = "
 c98d:  e6 bf 74                PRINT_NUM       G64
 c990:  b2 ...                  PRINT           " p1 = "
 c999:  e6 bf 58                PRINT_NUM       G48
 c99c:  b2 ...                  PRINT           " p2 = "
 c9a5:  e6 bf 59                PRINT_NUM       G49
 c9a8:  b2 ...                  PRINT           "]
"
 c9ad:  2d ff 74                STORE           Gef,G64
 c9b0:  41 ff 03 00 44          JE              Gef,#03 [FALSE] c9f7
 c9b5:  51 01 09 00             GET_PROP        L00,#09 -> -(SP)
 c9b9:  c1 93 00 00 ff ff 00 03 JE              (SP)+,#00,#ffff [FALSE] c9c2
 c9c1:  b0                      RTRUE
 c9c2:  42 3e 02 80 23          JL              G2e,#02 [TRUE] c9e8
 c9c7:  b2 ...                  PRINT           "[Considering react_before for
"
 c9de:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 c9e3:  b2 ...                  PRINT           "]
"
 c9e8:  41 58 00 00 09          JE              G48,#00 [FALSE] c9f4
 c9ed:  e0 27 34 7a 01 09 58    CALL_VS         d1e8 (L00,#09) -> G48
 c9f4:  8c 00 9e                JUMP            ca93
 c9f7:  41 ff 04 00 42          JE              Gef,#04 [FALSE] ca3c
 c9fc:  51 01 0b 00             GET_PROP        L00,#0b -> -(SP)
 ca00:  c1 93 00 00 ff ff 00 03 JE              (SP)+,#00,#ffff [FALSE] ca09
 ca08:  b0                      RTRUE
 ca09:  42 3e 02 80 21          JL              G2e,#02 [TRUE] ca2d
 ca0e:  b2 ...                  PRINT           "[Considering react_after for "
 ca23:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 ca28:  b2 ...                  PRINT           "]
"
 ca2d:  41 58 00 00 09          JE              G48,#00 [FALSE] ca39
 ca32:  e0 27 34 7a 01 0b 58    CALL_VS         d1e8 (L00,#0b) -> G48
 ca39:  8c 00 59                JUMP            ca93
 ca3c:  41 ff 02 00 37          JE              Gef,#02 [FALSE] ca76
 ca41:  52 01 1a 00             GET_PROP_ADDR   L00,#1a -> -(SP)
 ca45:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] ca4b
 ca4a:  b0                      RTRUE
 ca4b:  42 3e 02 80 1f          JL              G2e,#02 [TRUE] ca6d
 ca50:  b2 ...                  PRINT           "[Considering each_turn for "
 ca63:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 ca68:  b2 ...                  PRINT           "]
"
 ca6d:  f9 27 34 52 01 1a       CALL_VN         d148 (L00,#1a)
 ca73:  8c 00 1f                JUMP            ca93
 ca76:  41 ff 06 00 0d          JE              Gef,#06 [FALSE] ca86
 ca7b:  61 01 58 00 05          JE              L00,G48 [FALSE] ca83
 ca80:  0d 59 01                STORE           G49,#01
 ca83:  8c 00 0f                JUMP            ca93
 ca86:  41 ff 05 00 0a          JE              Gef,#05 [FALSE] ca93
 ca8b:  e0 af 58 01 ff          CALL_VS         G48 (L00) -> Gef
 ca90:  2d 58 03                STORE           G48,L02
 ca93:  2d 74 02                STORE           G64,L01
 ca96:  b0                      RTRUE

Routine ca98, 3 locals

 ca99:  41 01 00 00 03          JE              L00,#00 [FALSE] ca9f
 ca9e:  b0                      RTRUE
 ca9f:  41 03 04 00 08          JE              L02,#04 [FALSE] caaa
 caa4:  61 01 6f 00 03          JE              L00,G5f [FALSE] caaa
 caa9:  b0                      RTRUE
 caaa:  41 60 00 00 16          JE              G50,#00 [FALSE] cac3
 caaf:  61 01 29 00 11          JE              L00,G19 [FALSE] cac3
 cab4:  41 74 00 00 0c          JE              G64,#00 [FALSE] cac3
 cab9:  41 03 06 80 07          JE              L02,#06 [TRUE] cac3
 cabe:  da 1f 32 a6 01          CALL_2N         ca98 (#01)
 cac3:  a2 01 01 c2             GET_CHILD       L00 -> L00 [TRUE] cac7
 cac7:  41 01 00 80 10          JE              L00,#00 [TRUE] cada
 cacc:  f9 2a 32 b7 01 02 03    CALL_VN         cadc (L00,L01,L02)
 cad3:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] cad7
 cad7:  8c ff ef                JUMP            cac7
 cada:  b0                      RTRUE

Routine cadc, 6 locals

 cadd:  c1 97 74 00 01 80 0a    JE              G64,#00,#01 [TRUE] caec
 cae4:  da 2f 32 59 01          CALL_2N         c964 (L00)
 cae9:  8c 00 85                JUMP            cb6f
 caec:  63 56 43 00 32          JG              G46,G33 [FALSE] cb21
 caf1:  2d 04 3e                STORE           L03,G2e
 caf4:  0d 3e 00                STORE           G2e,#00
 caf7:  42 04 05 80 1b          JL              L03,#05 [TRUE] cb15
 cafc:  b2 ...                  PRINT           "     Out of text: matching "
 cb0f:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 cb14:  bb                      NEW_LINE
 cb15:  f9 27 33 04 01 01       CALL_VN         cc10 (L00,#01)
 cb1b:  2d 3e 04                STORE           G2e,L03
 cb1e:  8c 00 50                JUMP            cb6f
 cb21:  2d 42 56                STORE           G32,G46
 cb24:  88 33 93 04             CALL_1S         ce4c -> L03
 cb28:  41 04 01 00 0d          JE              L03,#01 [FALSE] cb38
 cb2d:  61 5c 01 00 08          JE              G4c,L00 [FALSE] cb38
 cb32:  f9 27 33 04 5c 01       CALL_VN         cc10 (G4c,#01)
 cb38:  41 04 02 00 0d          JE              L03,#02 [FALSE] cb48
 cb3d:  61 5d 01 00 08          JE              G4d,L00 [FALSE] cb48
 cb42:  f9 27 33 04 5d 01       CALL_VN         cc10 (G4d,#01)
 cb48:  41 04 03 00 0d          JE              L03,#03 [FALSE] cb58
 cb4d:  61 5e 01 00 08          JE              G4e,L00 [FALSE] cb58
 cb52:  f9 27 33 04 5e 01       CALL_VN         cc10 (G4e,#01)
 cb58:  41 04 04 00 0d          JE              L03,#04 [FALSE] cb68
 cb5d:  61 19 01 00 08          JE              G09,L00 [FALSE] cb68
 cb62:  f9 27 33 04 19 01       CALL_VN         cc10 (G09,#01)
 cb68:  96 42                   DEC             G32
 cb6a:  da 2f 33 2c 01          CALL_2N         ccb0 (L00)
 cb6f:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] cb73
 cb73:  41 00 00 80 19          JE              (SP)+,#00 [TRUE] cb8f
 cb78:  61 01 02 80 14          JE              L00,L01 [TRUE] cb8f
 cb7d:  d9 2f 32 4c 01 00       CALL_2S         c930 (L00) -> -(SP)
 cb83:  41 00 01 00 09          JE              (SP)+,#01 [FALSE] cb8f
 cb88:  f9 26 32 a6 01 00 03    CALL_VN         ca98 (L00,#00,L02)
 cb8f:  52 01 0a 05             GET_PROP_ADDR   L00,#0a -> L04
 cb93:  41 05 00 80 4e          JE              L04,#00 [TRUE] cbe4
 cb98:  4f 05 00 00             LOADW           L04,#00 -> -(SP)
 cb9c:  e0 2b 34 37 00 25 00    CALL_VS         d0dc ((SP)+,G15) -> -(SP)
 cba3:  43 00 00 00 12          JG              (SP)+,#00 [FALSE] cbb8
 cba8:  34 02 03 78             ADD             #02,L02 -> G68
 cbac:  f9 27 34 7a 01 0a       CALL_VN         d1e8 (L00,#0a)
 cbb2:  0d 78 00                STORE           G68,#00
 cbb5:  8c 00 2e                JUMP            cbe4
 cbb8:  52 01 0a 00             GET_PROP_ADDR   L00,#0a -> -(SP)
 cbbc:  2d ff 00                STORE           Gef,(SP)+
 cbbf:  a0 ff c5                JZ              Gef [TRUE] cbc5
 cbc2:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 cbc5:  2d 06 ff                STORE           L05,Gef
 cbc8:  0d 04 00                STORE           L03,#00
 cbcb:  36 02 04 00             MUL             #02,L03 -> -(SP)
 cbcf:  62 00 06 00 12          JL              (SP)+,L05 [FALSE] cbe4
 cbd4:  6f 05 04 00             LOADW           L04,L03 -> -(SP)
 cbd8:  f9 26 32 b7 00 00 03    CALL_VN         cadc ((SP)+,#00,L02)
 cbdf:  95 04                   INC             L03
 cbe1:  8c ff e9                JUMP            cbcb
 cbe4:  b0                      RTRUE

Routine cbe8, 1 local

 cbe9:  42 78 02 80 0d          JL              G68,#02 [TRUE] cbf9
 cbee:  55 78 02 00             SUB             G68,#02 -> -(SP)
 cbf2:  f9 26 32 b7 01 00 00    CALL_VN         cadc (L00,#00,(SP)+)
 cbf9:  41 78 01 00 10          JE              G68,#01 [FALSE] cc0c
 cbfe:  d9 2f 37 c5 01 00       CALL_2S         df14 (L00) -> -(SP)
 cc04:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] cc0c
 cc09:  0d 79 01                STORE           G69,#01
 cc0c:  b0                      RTRUE

Routine cc10, 3 locals

 cc11:  42 3e 05 80 19          JL              G2e,#05 [TRUE] cc2d
 cc16:  b2 ...                  PRINT           "    Match with quality "
 cc27:  e6 bf 02                PRINT_NUM       L01
 cc2a:  b2 ...                  PRINT           "
"
 cc2d:  41 6e 00 80 24          JE              G5e,#00 [TRUE] cc54
 cc32:  d9 2f 32 20 01 00       CALL_2S         c880 (L00) -> -(SP)
 cc38:  41 00 00 00 19          JE              (SP)+,#00 [FALSE] cc54
 cc3d:  42 3e 05 80 13          JL              G2e,#05 [TRUE] cc53
 cc42:  b2 ...                  PRINT           "    Match filtered out
"
 cc53:  b0                      RTRUE
 cc54:  62 02 55 00 03          JL              L01,G45 [FALSE] cc5a
 cc59:  b0                      RTRUE
 cc5a:  63 02 55 00 0b          JG              L01,G45 [FALSE] cc68
 cc5f:  2d 55 02                STORE           G45,L01
 cc62:  0d 53 00                STORE           G43,#00
 cc65:  8c 00 25                JUMP            cc8b
 cc68:  36 02 53 00             MUL             #02,G43 -> -(SP)
 cc6c:  42 00 80 80 03          JL              (SP)+,#80 [TRUE] cc72
 cc71:  b0                      RTRUE
 cc72:  0d 03 00                STORE           L02,#00
 cc75:  62 03 53 00 13          JL              L02,G43 [FALSE] cc8b
 cc7a:  cf 2f 60 54 03 00       LOADW           #6054,L02 -> -(SP)
 cc80:  61 00 01 00 03          JE              (SP)+,L00 [FALSE] cc86
 cc85:  b0                      RTRUE
 cc86:  95 03                   INC             L02
 cc88:  8c ff ec                JUMP            cc75
 cc8b:  e8 bf 53                PUSH            G43
 cc8e:  95 53                   INC             G43
 cc90:  e1 2b 60 54 00 01       STOREW          #6054,(SP)+,L00
 cc96:  42 3e 05 80 15          JL              G2e,#05 [TRUE] ccae
 cc9b:  b2 ...                  PRINT           "    Match added to list
"
 ccae:  b0                      RTRUE

Routine ccb0, 5 locals

 ccb1:  42 3e 05 80 25          JL              G2e,#05 [TRUE] ccd9
 ccb6:  b2 ...                  PRINT           "    Trying "
 ccbf:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 ccc4:  b2 ...                  PRINT           " ("
 ccc7:  e6 bf 01                PRINT_NUM       L00
 ccca:  b2 ...                  PRINT           ") at word "
 ccd3:  e6 bf 42                PRINT_NUM       G32
 ccd6:  b2 ...                  PRINT           "
"
 ccd9:  41 60 00 80 14          JE              G50,#00 [TRUE] ccf0
 ccde:  d0 1f 5e 4e 01 00       LOADB           #5e4e,#01 -> -(SP)
 cce4:  63 42 00 00 09          JG              G32,(SP)+ [FALSE] ccf0
 cce9:  f9 27 33 04 01 00       CALL_VN         cc10 (L00,#00)
 ccef:  b1                      RFALSE
 ccf0:  51 01 1d 00             GET_PROP        L00,#1d -> -(SP)
 ccf4:  41 00 00 80 52          JE              (SP)+,#00 [TRUE] cd49
 ccf9:  cd 4f 57 ff ff          STORE           G47,#ffff
 ccfe:  2d 05 42                STORE           L04,G32
 cd01:  e0 27 34 7a 01 1d 03    CALL_VS         d1e8 (L00,#1d) -> L02
 cd08:  43 03 00 00 36          JG              L02,#00 [FALSE] cd41
 cd0d:  74 05 03 42             ADD             L04,L02 -> G32
 cd11:  c1 8f 57 01 05 00 24    JE              G47,#0105 [FALSE] cd3a
 cd18:  41 64 00 00 05          JE              G54,#00 [FALSE] cd20
 cd1d:  8c 00 af                JUMP            cdcd
 cd20:  41 60 00 00 0b          JE              G50,#00 [FALSE] cd2e
 cd25:  0d 60 01                STORE           G50,#01
 cd28:  0d 61 00                STORE           G51,#00
 cd2b:  0d 62 00                STORE           G52,#00
 cd2e:  48 61 08 61             OR              G51,#08 -> G51
 cd32:  41 62 00 00 05          JE              G52,#00 [FALSE] cd3a
 cd37:  0d 62 64                STORE           G52,#64
 cd3a:  f9 2b 33 04 01 03       CALL_VN         cc10 (L00,L02)
 cd40:  b1                      RFALSE
 cd41:  41 03 00 00 05          JE              L02,#00 [FALSE] cd49
 cd46:  8c 00 86                JUMP            cdcd
 cd49:  88 33 93 04             CALL_1S         ce4c -> L03
 cd4d:  41 04 01 00 07          JE              L03,#01 [FALSE] cd57
 cd52:  61 01 5c 80 20          JE              L00,G4c [TRUE] cd75
 cd57:  41 04 02 00 07          JE              L03,#02 [FALSE] cd61
 cd5c:  61 01 5d 80 16          JE              L00,G4d [TRUE] cd75
 cd61:  41 04 03 00 07          JE              L03,#03 [FALSE] cd6b
 cd66:  61 01 5e 80 0c          JE              L00,G4e [TRUE] cd75
 cd6b:  41 04 04 00 0e          JE              L03,#04 [FALSE] cd7c
 cd70:  61 01 19 00 09          JE              L00,G09 [FALSE] cd7c
 cd75:  f9 27 33 04 01 01       CALL_VN         cc10 (L00,#01)
 cd7b:  b1                      RFALSE
 cd7c:  96 42                   DEC             G32
 cd7e:  2d 05 42                STORE           L04,G32
 cd81:  d9 2f b1 04 01 02       CALL_2S         2c410 (L00) -> L01
 cd87:  42 02 00 80 20          JL              L01,#00 [TRUE] cdaa
 cd8c:  42 3e 05 80 1b          JL              G2e,#05 [TRUE] cdaa
 cd91:  b2 ...                  PRINT           "    ParseNoun returned "
 cda4:  e6 bf 02                PRINT_NUM       L01
 cda7:  b2 ...                  PRINT           "
"
 cdaa:  42 02 00 00 04          JL              L01,#00 [FALSE] cdb1
 cdaf:  95 42                   INC             G32
 cdb1:  43 02 00 00 08          JG              L01,#00 [FALSE] cdbc
 cdb6:  2d 03 02                STORE           L02,L01
 cdb9:  8c ff 57                JUMP            cd11
 cdbc:  41 02 00 80 0e          JE              L01,#00 [TRUE] cdcd
 cdc1:  e0 2b 33 84 01 04 00    CALL_VS         ce10 (L00,L03) -> -(SP)
 cdc8:  41 00 00 00 0e          JE              (SP)+,#00 [FALSE] cdd9
 cdcd:  41 60 00 80 08          JE              G50,#00 [TRUE] cdd8
 cdd2:  f9 27 33 04 01 00       CALL_VN         cc10 (L00,#00)
 cdd8:  b1                      RFALSE
 cdd9:  42 02 00 00 1a          JL              L01,#00 [FALSE] cdf6
 cdde:  0d 02 01                STORE           L01,#01
 cde1:  88 33 bc 00             CALL_1S         cef0 -> -(SP)
 cde5:  e0 2b 33 84 01 00 00    CALL_VS         ce10 (L00,(SP)+) -> -(SP)
 cdec:  21 00 00 80 07          JE              #00,(SP)+ [TRUE] cdf6
 cdf1:  95 02                   INC             L01
 cdf3:  8c ff ed                JUMP            cde1
 cdf6:  f9 2b 33 04 01 02       CALL_VN         cc10 (L00,L01)
 cdfc:  42 3e 05 80 0d          JL              G2e,#05 [TRUE] ce0c
 ce01:  b2 ...                  PRINT           "    Matched
"
 ce0c:  b0                      RTRUE

Routine ce10, 5 locals

 ce11:  41 01 00 00 03          JE              L00,#00 [FALSE] ce17
 ce16:  b1                      RFALSE
 ce17:  52 01 01 03             GET_PROP_ADDR   L00,#01 -> L02
 ce1b:  52 01 01 00             GET_PROP_ADDR   L00,#01 -> -(SP)
 ce1f:  2d ff 00                STORE           Gef,(SP)+
 ce22:  a0 ff c5                JZ              Gef [TRUE] ce28
 ce25:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 ce28:  e8 bf ff                PUSH            Gef
 ce2b:  57 00 02 00             DIV             (SP)+,#02 -> -(SP)
 ce2f:  55 00 01 04             SUB             (SP)+,#01 -> L03
 ce33:  0d 05 00                STORE           L04,#00
 ce36:  63 05 04 80 11          JG              L04,L03 [TRUE] ce4a
 ce3b:  6f 03 05 00             LOADW           L02,L04 -> -(SP)
 ce3f:  61 02 00 00 03          JE              L01,(SP)+ [FALSE] ce45
 ce44:  b0                      RTRUE
 ce45:  95 05                   INC             L04
 ce47:  8c ff ee                JUMP            ce36
 ce4a:  b1                      RFALSE

Routine ce4c, 1 local

 ce4d:  88 33 bc 01             CALL_1S         cef0 -> L00
 ce51:  c1 83 01 88 2c 9d 5f 00 04
                               JE              L00,"it","them" [FALSE] ce5c
 ce5a:  9b 01                   RET             #01
 ce5c:  c1 8f 01 86 46 00 04    JE              L00,"him" [FALSE] ce65
 ce63:  9b 02                   RET             #02
 ce65:  c1 8f 01 85 f5 00 04    JE              L00,"her" [FALSE] ce6e
 ce6c:  9b 03                   RET             #03
 ce6e:  c1 80 01 8b b0 8d 3c 97 9b 00 04
                               JE              L00,"me","myself","self" [FALSE]
ce7b
 ce79:  9b 04                   RET             #04
 ce7b:  41 01 00 00 03          JE              L00,#00 [FALSE] ce81
 ce80:  b1                      RFALSE
 ce81:  50 01 06 00             LOADB           L00,#06 -> -(SP)
 ce85:  49 00 80 00             AND             (SP)+,#80 -> -(SP)
 ce89:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] ce8f
 ce8e:  b1                      RFALSE
 ce8f:  ab 01                   RET             L00

Routine ce94, 2 locals

 ce95:  88 33 bc 02             CALL_1S         cef0 -> L01
 ce99:  41 02 00 00 03          JE              L01,#00 [FALSE] ce9f
 ce9e:  b1                      RFALSE
 ce9f:  50 02 06 01             LOADB           L01,#06 -> L00
 cea3:  49 01 08 00             AND             L00,#08 -> -(SP)
 cea7:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] cead
 ceac:  b1                      RFALSE
 cead:  50 02 08 00             LOADB           L01,#08 -> -(SP)
 ceb1:  ab 00                   RET             (SP)+

Routine ceb4, 2 locals

 ceb5:  cd 4f 02 73 27          STORE           L01,#7327
 ceba:  01 01 01 00 18          JE              #01,#01 [FALSE] ced5
 cebf:  4f 02 01 00             LOADW           L01,#01 -> -(SP)
 cec3:  61 01 00 00 08          JE              L00,(SP)+ [FALSE] cece
 cec8:  4f 02 00 00             LOADW           L01,#00 -> -(SP)
 cecc:  ab 00                   RET             (SP)+
 cece:  54 02 04 02             ADD             L01,#04 -> L01
 ced2:  8c ff e7                JUMP            ceba
 ced5:  cd 4f 02 73 27          STORE           L01,#7327
 ceda:  b2 ...                  PRINT           "<Adjective not found>"
 ceed:  ab 02                   RET             L01

Routine cef0, 3 locals

 cef1:  d0 1f 5e 4e 01 00       LOADB           #5e4e,#01 -> -(SP)
 cef7:  63 42 00 00 05          JG              G32,(SP)+ [FALSE] ceff
 cefc:  95 42                   INC             G32
 cefe:  b1                      RFALSE
 ceff:  56 42 02 00             MUL             G32,#02 -> -(SP)
 cf03:  55 00 01 01             SUB             (SP)+,#01 -> L00
 cf07:  95 42                   INC             G32
 cf09:  cf 2f 5e 4e 01 02       LOADW           #5e4e,L00 -> L01
 cf0f:  41 02 00 00 2a          JE              L01,#00 [FALSE] cf3c
 cf14:  56 42 04 00             MUL             G32,#04 -> -(SP)
 cf18:  55 00 03 03             SUB             (SP)+,#03 -> L02
 cf1c:  d0 2f 5e 4e 03 00       LOADB           #5e4e,L02 -> -(SP)
 cf22:  d0 2f 5d d5 00 01       LOADB           #5dd5,(SP)+ -> L00
 cf28:  41 01 2c 00 07          JE              L00,#2c [FALSE] cf32
 cf2d:  cd 4f 02 a2 9c          STORE           L01,"xcomma"
 cf32:  41 01 2e 00 07          JE              L00,#2e [FALSE] cf3c
 cf37:  cd 4f 02 9d 68          STORE           L01,"then"
 cf3c:  ab 02                   RET             L01

Routine cf40, 0 locals

 cf41:  d0 1f 5e 4e 01 00       LOADB           #5e4e,#01 -> -(SP)
 cf47:  63 42 00 00 07          JG              G32,(SP)+ [FALSE] cf51
 cf4c:  95 42                   INC             G32
 cf4e:  8b ff ff                RET             #ffff
 cf51:  88 33 bc 00             CALL_1S         cef0 -> -(SP)
 cf55:  ab 00                   RET             (SP)+

Routine cf58, 1 local

 cf59:  56 01 04 00             MUL             L00,#04 -> -(SP)
 cf5d:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
 cf61:  d0 2f 5e 4e 00 00       LOADB           #5e4e,(SP)+ -> -(SP)
 cf67:  d4 2f 5d d5 00 00       ADD             #5dd5,(SP)+ -> -(SP)
 cf6d:  ab 00                   RET             (SP)+

Routine cf70, 1 local

 cf71:  56 01 04 00             MUL             L00,#04 -> -(SP)
 cf75:  d0 2f 5e 4e 00 00       LOADB           #5e4e,(SP)+ -> -(SP)
 cf7b:  ab 00                   RET             (SP)+

Routine cf80, 10 locals

 cf81:  2d 02 42                STORE           L01,G32
 cf84:  2d 42 01                STORE           G32,L00
 cf87:  88 33 bc 03             CALL_1S         cef0 -> L02
 cf8b:  2d 42 02                STORE           G32,L01
 cf8e:  d9 2f 2c d0 03 03       CALL_2S         b340 (L02) -> L02
 cf94:  42 03 01 80 04          JL              L02,#01 [TRUE] cf9b
 cf99:  ab 03                   RET             L02
 cf9b:  56 01 04 00             MUL             L00,#04 -> -(SP)
 cf9f:  54 00 01 02             ADD             (SP)+,#01 -> L01
 cfa3:  d0 2f 5e 4e 02 03       LOADB           #5e4e,L01 -> L02
 cfa9:  d4 8f 03 5d d5 05       ADD             L02,#5dd5 -> L04
 cfaf:  55 02 01 00             SUB             L01,#01 -> -(SP)
 cfb3:  d0 2f 5e 4e 00 06       LOADB           #5e4e,(SP)+ -> L05
 cfb9:  e0 2b b1 02 05 06 08    CALL_VS         2c408 (L04,L05) -> L07
 cfc0:  41 08 00 80 04          JE              L07,#00 [TRUE] cfc7
 cfc5:  ab 08                   RET             L07
 cfc7:  42 06 04 80 07          JL              L05,#04 [TRUE] cfd1
 cfcc:  cd 4f 07 03 e8          STORE           L06,#03e8
 cfd1:  41 06 03 00 05          JE              L05,#03 [FALSE] cfd9
 cfd6:  0d 07 64                STORE           L06,#64
 cfd9:  41 06 02 00 05          JE              L05,#02 [FALSE] cfe1
 cfde:  0d 07 0a                STORE           L06,#0a
 cfe1:  41 06 01 00 05          JE              L05,#01 [FALSE] cfe9
 cfe6:  0d 07 01                STORE           L06,#01
 cfe9:  0d 08 00                STORE           L07,#00
 cfec:  0d 04 00                STORE           L03,#00
 cfef:  55 06 01 06             SUB             L05,#01 -> L05
 cff3:  0d 04 00                STORE           L03,#00
 cff6:  63 04 06 80 88          JG              L03,L05 [TRUE] d081
 cffb:  70 05 04 0a             LOADB           L04,L03 -> L09
 cfff:  41 0a 30 00 08          JE              L09,#30 [FALSE] d00a
 d004:  0d 09 00                STORE           L08,#00
 d007:  8c 00 68                JUMP            d070
 d00a:  41 0a 31 00 08          JE              L09,#31 [FALSE] d015
 d00f:  0d 09 01                STORE           L08,#01
 d012:  8c 00 5d                JUMP            d070
 d015:  41 0a 32 00 08          JE              L09,#32 [FALSE] d020
 d01a:  0d 09 02                STORE           L08,#02
 d01d:  8c 00 52                JUMP            d070
 d020:  41 0a 33 00 08          JE              L09,#33 [FALSE] d02b
 d025:  0d 09 03                STORE           L08,#03
 d028:  8c 00 47                JUMP            d070
 d02b:  41 0a 34 00 08          JE              L09,#34 [FALSE] d036
 d030:  0d 09 04                STORE           L08,#04
 d033:  8c 00 3c                JUMP            d070
 d036:  41 0a 35 00 08          JE              L09,#35 [FALSE] d041
 d03b:  0d 09 05                STORE           L08,#05
 d03e:  8c 00 31                JUMP            d070
 d041:  41 0a 36 00 08          JE              L09,#36 [FALSE] d04c
 d046:  0d 09 06                STORE           L08,#06
 d049:  8c 00 26                JUMP            d070
 d04c:  41 0a 37 00 08          JE              L09,#37 [FALSE] d057
 d051:  0d 09 07                STORE           L08,#07
 d054:  8c 00 1b                JUMP            d070
 d057:  41 0a 38 00 08          JE              L09,#38 [FALSE] d062
 d05c:  0d 09 08                STORE           L08,#08
 d05f:  8c 00 10                JUMP            d070
 d062:  41 0a 39 00 08          JE              L09,#39 [FALSE] d06d
 d067:  0d 09 09                STORE           L08,#09
 d06a:  8c 00 05                JUMP            d070
 d06d:  8b fc 18                RET             #fc18
 d070:  76 07 09 00             MUL             L06,L08 -> -(SP)
 d074:  74 08 00 08             ADD             L07,(SP)+ -> L07
 d078:  57 07 0a 07             DIV             L06,#0a -> L06
 d07c:  95 04                   INC             L03
 d07e:  8c ff 77                JUMP            cff6
 d081:  43 06 03 00 07          JG              L05,#03 [FALSE] d08b
 d086:  cd 4f 08 27 10          STORE           L07,#2710
 d08b:  ab 08                   RET             L07

Routine d090, 1 local

 d091:  4a 01 00 00 1e          TEST_ATTR       L00,#00 [FALSE] d0b2
 d096:  61 01 19 80 19          JE              L00,G09 [TRUE] d0b2
 d09b:  d9 2f 34 2e 01 00       CALL_2S         d0b8 (L00) -> -(SP)
 d0a1:  41 00 01 00 08          JE              (SP)+,#01 [FALSE] d0ac
 d0a6:  2d 5d 01                STORE           G4d,L00
 d0a9:  8c 00 05                JUMP            d0af
 d0ac:  2d 5e 01                STORE           G4e,L00
 d0af:  8c 00 05                JUMP            d0b5
 d0b2:  2d 5c 01                STORE           G4c,L00
 d0b5:  b0                      RTRUE

Routine d0b8, 1 local

 d0b9:  4a 01 07 80 03          TEST_ATTR       L00,#07 [TRUE] d0bf
 d0be:  b0                      RTRUE
 d0bf:  b1                      RFALSE

Routine d0c0, 4 locals

 d0c1:  50 01 00 04             LOADB           L00,#00 -> L03
 d0c5:  0d 03 01                STORE           L02,#01
 d0c8:  63 03 04 80 10          JG              L02,L03 [TRUE] d0db
 d0cd:  70 02 03 00             LOADB           L01,L02 -> -(SP)
 d0d1:  e2 ab 01 03 00          STOREB          L00,L02,(SP)+
 d0d6:  95 03                   INC             L02
 d0d8:  8c ff ef                JUMP            d0c8
 d0db:  b0                      RTRUE

Routine d0dc, 4 locals

 d0dd:  61 01 02 00 04          JE              L00,L01 [FALSE] d0e4
 d0e2:  9b 00                   RET             #00
 d0e4:  42 01 00 00 09          JL              L00,#00 [FALSE] d0f0
 d0e9:  42 02 00 80 04          JL              L01,#00 [TRUE] d0f0
 d0ee:  9b 01                   RET             #01
 d0f0:  42 01 00 80 0a          JL              L00,#00 [TRUE] d0fd
 d0f5:  42 02 00 00 05          JL              L01,#00 [FALSE] d0fd
 d0fa:  8b ff ff                RET             #ffff
 d0fd:  c9 8f 01 7f ff 03       AND             L00,#7fff -> L02
 d103:  c9 8f 02 7f ff 04       AND             L01,#7fff -> L03
 d109:  63 03 04 00 04          JG              L02,L03 [FALSE] d110
 d10e:  9b 01                   RET             #01
 d110:  8b ff ff                RET             #ffff

Routine d114, 1 local

 d115:  41 01 00 00 04          JE              L00,#00 [FALSE] d11c
 d11a:  9b 00                   RET             #00
 d11c:  42 01 01 80 09          JL              L00,#01 [TRUE] d128
 d121:  63 01 25 80 04          JG              L00,G15 [TRUE] d128
 d126:  9b 01                   RET             #01
 d128:  e0 23 34 37 01 b6 69 00 CALL_VS         d0dc (L00,S001) -> -(SP)
 d130:  42 00 00 80 04          JL              (SP)+,#00 [TRUE] d137
 d135:  9b 03                   RET             #03
 d137:  e0 23 34 37 01 28 c7 00 CALL_VS         d0dc (L00,#28c7) -> -(SP)
 d13f:  42 00 00 80 04          JL              (SP)+,#00 [TRUE] d146
 d144:  9b 02                   RET             #02
 d146:  9b 00                   RET             #00

Routine d148, 4 locals

 d149:  72 01 02 00             GET_PROP_ADDR   L00,L01 -> -(SP)
 d14d:  2d ff 00                STORE           Gef,(SP)+
 d150:  a0 ff c5                JZ              Gef [TRUE] d156
 d153:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 d156:  e8 bf ff                PUSH            Gef
 d159:  43 00 02 00 0b          JG              (SP)+,#02 [FALSE] d167
 d15e:  e0 2b 34 7a 01 02 00    CALL_VS         d1e8 (L00,L01) -> -(SP)
 d165:  ab 00                   RET             (SP)+
 d167:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d16b:  c1 8f 00 ff ff 00 03    JE              (SP)+,#ffff [FALSE] d173
 d172:  b1                      RFALSE
 d173:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d177:  d9 2f 34 45 00 04       CALL_2S         d114 ((SP)+) -> L03
 d17d:  c1 97 04 00 01 00 29    JE              L03,#00,#01 [FALSE] d1ab
 d184:  b3 ...                  PRINT_RET       "** Expected string/routine as
prop value! **"
 d1ab:  41 04 03 00 0f          JE              L03,#03 [FALSE] d1bd
 d1b0:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d1b4:  ad 00                   PRINT_PADDR     (SP)+
 d1b6:  41 03 00 00 03          JE              L02,#00 [FALSE] d1bc
 d1bb:  bb                      NEW_LINE
 d1bc:  b0                      RTRUE
 d1bd:  e0 2b 34 7a 01 02 00    CALL_VS         d1e8 (L00,L01) -> -(SP)
 d1c4:  ab 00                   RET             (SP)+

Routine d1c8, 3 locals

 d1c9:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d1cd:  d9 2f 34 45 00 03       CALL_2S         d114 ((SP)+) -> L02
 d1d3:  41 03 02 00 0b          JE              L02,#02 [FALSE] d1e1
 d1d8:  e0 2b 34 7a 01 02 00    CALL_VS         d1e8 (L00,L01) -> -(SP)
 d1df:  ab 00                   RET             (SP)+
 d1e1:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d1e5:  ab 00                   RET             (SP)+

Routine d1e8, 8 locals

 d1e9:  41 01 0e 00 0a          JE              L00,#0e [FALSE] d1f6
 d1ee:  41 02 11 80 05          JE              L01,#11 [TRUE] d1f6
 d1f3:  2d 01 1b                STORE           L00,G0b
 d1f6:  71 01 02 00             GET_PROP        L00,L01 -> -(SP)
 d1fa:  c1 87 00 ff ff 00 00 03 JE              (SP)+,#ffff,#00 [FALSE] d203
 d202:  b1                      RFALSE
 d203:  72 01 02 04             GET_PROP_ADDR   L00,L01 -> L03
 d207:  72 01 02 00             GET_PROP_ADDR   L00,L01 -> -(SP)
 d20b:  2d ff 00                STORE           Gef,(SP)+
 d20e:  a0 ff c5                JZ              Gef [TRUE] d214
 d211:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 d214:  2d 05 ff                STORE           L04,Gef
 d217:  2d 07 2f                STORE           L06,G1f
 d21a:  2d 2f 01                STORE           G1f,L00
 d21d:  2d 08 3a                STORE           L07,G2a
 d220:  41 02 04 00 08          JE              L01,#04 [FALSE] d22b
 d225:  2d 3a 39                STORE           G2a,G29
 d228:  8c 00 05                JUMP            d22e
 d22b:  2d 3a 2a                STORE           G2a,G1a
 d22e:  0d 03 00                STORE           L02,#00
 d231:  57 05 02 00             DIV             L04,#02 -> -(SP)
 d235:  62 03 00 00 78          JL              L02,(SP)+ [FALSE] d2b0
 d23a:  6f 04 03 00             LOADW           L03,L02 -> -(SP)
 d23e:  c1 8f 00 ff ff 00 09    JE              (SP)+,#ffff [FALSE] d24c
 d245:  2d 2f 07                STORE           G1f,L06
 d248:  2d 3a 08                STORE           G2a,L07
 d24b:  b1                      RFALSE
 d24c:  6f 04 03 00             LOADW           L03,L02 -> -(SP)
 d250:  d9 2f 34 45 00 06       CALL_2S         d114 ((SP)+) -> L05
 d256:  41 06 02 00 1a          JE              L05,#02 [FALSE] d273
 d25b:  6f 04 03 00             LOADW           L03,L02 -> -(SP)
 d25f:  e0 bf 00 06             CALL_VS         (SP)+ -> L05
 d263:  41 06 00 80 0a          JE              L05,#00 [TRUE] d270
 d268:  2d 2f 07                STORE           G1f,L06
 d26b:  2d 3a 08                STORE           G2a,L07
 d26e:  ab 06                   RET             L05
 d270:  8c 00 3a                JUMP            d2ab
 d273:  41 06 03 00 0c          JE              L05,#03 [FALSE] d282
 d278:  6f 04 03 00             LOADW           L03,L02 -> -(SP)
 d27c:  ad 00                   PRINT_PADDR     (SP)+
 d27e:  bb                      NEW_LINE
 d27f:  8c 00 2b                JUMP            d2ab
 d282:  b2 ...                  PRINT           "** Entry in property list not
routine or string **
"
 d2ab:  95 03                   INC             L02
 d2ad:  8c ff 83                JUMP            d231
 d2b0:  2d 2f 07                STORE           G1f,L06
 d2b3:  2d 3a 08                STORE           G2a,L07
 d2b6:  b1                      RFALSE

Routine d2b8, 0 locals

 d2b9:  c1 8f 14 ff ff 00 0b    JE              G04,#ffff [FALSE] d2c9
 d2c0:  2d 12 17                STORE           G02,G07
 d2c3:  2d 13 18                STORE           G03,G08
 d2c6:  8c 00 0a                JUMP            d2d1
 d2c9:  57 14 3c 12             DIV             G04,#3c -> G02
 d2cd:  58 14 3c 13             MOD             G04,#3c -> G03
 d2d1:  b0                      RTRUE

Routine d2d4, 2 locals

 d2d5:  2d 14 01                STORE           G04,L00
 d2d8:  2d 15 02                STORE           G05,L01
 d2db:  0d 16 00                STORE           G06,#00
 d2de:  42 02 00 00 06          JL              L01,#00 [FALSE] d2e7
 d2e3:  35 00 02 16             SUB             #00,L01 -> G06
 d2e7:  b0                      RTRUE

Routine d2e8, 1 local

 d2e9:  b2 ...                  PRINT           "
[Your score has just gone "
 d2fe:  63 1f 17 00 0e          JG              G0f,G07 [FALSE] d30f
 d303:  75 1f 17 01             SUB             G0f,G07 -> L00
 d307:  b2 ...                  PRINT           "down"
 d30c:  8c 00 09                JUMP            d316
 d30f:  75 17 1f 01             SUB             G07,G0f -> L00
 d313:  b2 ...                  PRINT           "up"
 d316:  b2 ...                  PRINT           " by "
 d31b:  da 2f 99 a2 01          CALL_2N         26688 (L00)
 d320:  b2 ...                  PRINT           " point"
 d325:  43 01 01 00 05          JG              L00,#01 [FALSE] d32d
 d32a:  b2 ...                  PRINT           "s"
 d32d:  b2 ...                  PRINT           ".]
"
 d334:  b0                      RTRUE

Routine d338, 4 locals

 d339:  0f 32 00 26             LOADW           #32,#00 -> G16
 d33d:  0d 19 0f                STORE           G09,#0f
 d340:  d5 1f 02 f5 ff 25       SUB             #02f5,#ff -> G15
 d346:  e3 57 0f 1b 05          PUT_PROP        "yourself",#1b,#05
 d34b:  88 a8 5e 02             CALL_1S         2a178 -> L01
 d34f:  2d 1f 17                STORE           G0f,G07
 d352:  6e 19 11                INSERT_OBJ      G09,G01
 d355:  a3 11 00                GET_PARENT      G01 -> -(SP)
 d358:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] d363
 d35d:  a3 11 11                GET_PARENT      G01 -> G01
 d360:  8c ff f4                JUMP            d355
 d363:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] d367
 d367:  41 01 00 80 0f          JE              L00,#00 [TRUE] d379
 d36c:  4b 01 0c                SET_ATTR        L00,#0c
 d36f:  4c 01 02                CLEAR_ATTR      L00,#02
 d372:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] d376
 d376:  8c ff f0                JUMP            d367
 d379:  41 02 02 80 05          JE              L01,#02 [TRUE] d381
 d37e:  8f 38 9a                CALL_1N         e268
 d381:  a3 19 00                GET_PARENT      G09 -> -(SP)
 d384:  d9 2f 37 b3 00 1a       CALL_2S         decc ((SP)+) -> G0a
 d38a:  41 1a 00 00 08          JE              G0a,#00 [FALSE] d395
 d38f:  2d 1b 11                STORE           G0b,G01
 d392:  0d 11 0e                STORE           G01,#0e
 d395:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 d39a:  0d 01 01                STORE           L00,#01
 d39d:  43 01 64 80 0b          JG              L00,#64 [TRUE] d3ab
 d3a2:  e7 bf 01 02             RANDOM          L00 -> L01
 d3a6:  95 01                   INC             L00
 d3a8:  8c ff f4                JUMP            d39d
 d3ab:  41 1d 00 02 28          JE              G0d,#00 [FALSE] d5d6
 d3b0:  61 17 1f 80 0d          JE              G07,G0f [TRUE] d3c0
 d3b5:  41 20 01 00 05          JE              G10,#01 [FALSE] d3bd
 d3ba:  8f 34 ba                CALL_1N         d2e8
 d3bd:  2d 1f 17                STORE           G0f,G07
 d3c0:  e1 17 5e 8f 00 00       STOREW          #5e8f,#00,#00
 d3c6:  e1 17 5e 8f 01 00       STOREW          #5e8f,#01,#00
 d3cc:  e1 17 5e 8f 02 00       STOREW          #5e8f,#02,#00
 d3d2:  e1 17 5e 8f 03 00       STOREW          #5e8f,#03,#00
 d3d8:  0d 38 00                STORE           G28,#00
 d3db:  da 0f 29 21 5e 8f       CALL_2N         a484 (#5e8f)
 d3e1:  0d 30 00                STORE           G20,#00
 d3e4:  0d 31 00                STORE           G21,#00
 d3e7:  0d 2a 00                STORE           G1a,#00
 d3ea:  0d 35 00                STORE           G25,#00
 d3ed:  2d 37 36                STORE           G27,G26
 d3f0:  0d 36 00                STORE           G26,#00
 d3f3:  cf 1f 5e 8f 00 2a       LOADW           #5e8f,#00 -> G1a
 d3f9:  c1 97 2a 21 23 00 28    JE              G1a,#21,#23 [FALSE] d426
 d400:  cf 1f 5e 8f 02 01       LOADW           #5e8f,#02 -> L00
 d406:  cf 1f 5e 8f 03 00       LOADW           #5e8f,#03 -> -(SP)
 d40c:  e1 1b 5e 8f 02 00       STOREW          #5e8f,#02,(SP)+
 d412:  e1 1b 5e 8f 03 01       STOREW          #5e8f,#03,L00
 d418:  41 2a 21 00 08          JE              G1a,#21 [FALSE] d423
 d41d:  0d 2a 22                STORE           G1a,#22
 d420:  8c 00 05                JUMP            d426
 d423:  0d 2a 24                STORE           G1a,#24
 d426:  41 2a 45 00 1e          JE              G1a,#45 [FALSE] d447
 d42b:  cf 1f 5e 8f 02 00       LOADW           #5e8f,#02 -> -(SP)
 d431:  61 00 19 00 13          JE              (SP)+,G09 [FALSE] d447
 d436:  61 28 19 80 0e          JE              G18,G09 [TRUE] d447
 d43b:  e1 1b 5e 8f 02 28       STOREW          #5e8f,#02,G18
 d441:  2d 28 19                STORE           G18,G09
 d444:  0d 2a 46                STORE           G1a,#46
 d447:  41 2a 47 00 2d          JE              G1a,#47 [FALSE] d477
 d44c:  cf 1f 5e 8f 02 00       LOADW           #5e8f,#02 -> -(SP)
 d452:  61 00 19 80 22          JE              (SP)+,G09 [TRUE] d477
 d457:  61 28 19 00 1d          JE              G18,G09 [FALSE] d477
 d45c:  cf 1f 5e 8f 02 28       LOADW           #5e8f,#02 -> G18
 d462:  cf 1f 5e 8f 03 00       LOADW           #5e8f,#03 -> -(SP)
 d468:  e1 1b 5e 8f 02 00       STOREW          #5e8f,#02,(SP)+
 d46e:  e1 1b 5e 8f 03 19       STOREW          #5e8f,#03,G09
 d474:  0d 2a 22                STORE           G1a,#22
 d477:  c1 95 2a 46 45 44 00 05 JE              G1a,#46,#45,#44 [FALSE] d482
 d47f:  2d 32 2d                STORE           G22,G1d
 d482:  0d 2b 00                STORE           G1b,#00
 d485:  0d 2c 00                STORE           G1c,#00
 d488:  cf 1f 5e 8f 01 01       LOADW           #5e8f,#01 -> L00
 d48e:  42 01 01 80 08          JL              L00,#01 [TRUE] d499
 d493:  cf 1f 5e 8f 02 2b       LOADW           #5e8f,#02 -> G1b
 d499:  42 01 02 80 08          JL              L00,#02 [TRUE] d4a4
 d49e:  cf 1f 5e 8f 03 2c       LOADW           #5e8f,#03 -> G1c
 d4a4:  2d 30 2b                STORE           G20,G1b
 d4a7:  2d 31 2c                STORE           G21,G1c
 d4aa:  41 2b 01 00 05          JE              G1b,#01 [FALSE] d4b2
 d4af:  2d 30 2d                STORE           G20,G1d
 d4b2:  41 2c 01 00 10          JE              G1c,#01 [FALSE] d4c5
 d4b7:  41 2b 01 00 08          JE              G1b,#01 [FALSE] d4c2
 d4bc:  2d 31 2e                STORE           G21,G1e
 d4bf:  8c 00 05                JUMP            d4c5
 d4c2:  2d 31 2d                STORE           G21,G1d
 d4c5:  61 28 19 80 48          JE              G18,G09 [TRUE] d510
 d4ca:  e0 27 34 7a 19 10 02    CALL_VS         d1e8 (G09,#10) -> L01
 d4d1:  41 02 00 00 39          JE              L01,#00 [FALSE] d50d
 d4d6:  e0 27 34 7a 28 10 02    CALL_VS         d1e8 (G18,#10) -> L01
 d4dd:  41 02 00 00 2d          JE              L01,#00 [FALSE] d50d
 d4e2:  c1 8f 2a 01 08 00 11    JE              G1a,#0108 [FALSE] d4f8
 d4e9:  e1 1b 5e 8f 03 28       STOREW          #5e8f,#03,G18
 d4ef:  2d 28 19                STORE           G18,G09
 d4f2:  0d 2a 44                STORE           G1a,#44
 d4f5:  8c ff 8c                JUMP            d482
 d4f8:  e0 23 36 26 28 01 03 00 CALL_VS         d898 (G18,#0103) -> -(SP)
 d500:  41 00 00 00 0a          JE              (SP)+,#00 [FALSE] d50d
 d505:  f9 06 a2 82 01 03 01 28 CALL_VN         28a08 (#0103,#01,G18)
 d50d:  8c 00 b0                JUMP            d5be
 d510:  41 01 00 80 07          JE              L00,#00 [TRUE] d51a
 d515:  41 2b 00 80 08          JE              G1b,#00 [TRUE] d520
 d51a:  8f 35 b9                CALL_1N         d6e4
 d51d:  8c 00 a0                JUMP            d5be
 d520:  0d 35 01                STORE           G25,#01
 d523:  cf 1f 5e af 00 02       LOADW           #5eaf,#00 -> L01
 d529:  41 02 00 00 0c          JE              L01,#00 [FALSE] d538
 d52e:  f9 07 a2 82 01 06 02    CALL_VN         28a08 (#0106,#02)
 d535:  8c fe 8a                JUMP            d3c0
 d538:  41 27 01 00 0c          JE              G17,#01 [FALSE] d547
 d53d:  0d 27 00                STORE           G17,#00
 d540:  f9 07 a2 82 01 06 01    CALL_VN         28a08 (#0106,#01)
 d547:  2d 01 11                STORE           L00,G01
 d54a:  0d 03 01                STORE           L02,#01
 d54d:  63 03 02 80 6e          JG              L02,L01 [TRUE] d5be
 d552:  41 1d 00 80 05          JE              G0d,#00 [TRUE] d55a
 d557:  8c 00 66                JUMP            d5be
 d55a:  61 11 01 80 3a          JE              G01,L00 [TRUE] d597
 d55f:  b2 ...                  PRINT           "(Since something dramatic has
happened, your list of commands has been cut short.)
"
 d594:  8c 00 29                JUMP            d5be
 d597:  cf 2f 5e af 03 04       LOADW           #5eaf,L02 -> L03
 d59d:  da 2f 34 24 04          CALL_2N         d090 (L03)
 d5a2:  da 2f 38 57 04          CALL_2N         e15c (L03)
 d5a7:  b2 ...                  PRINT           ": "
 d5aa:  2d 2b 04                STORE           G1b,L03
 d5ad:  2d 30 04                STORE           G20,L03
 d5b0:  8f 35 b9                CALL_1N         d6e4
 d5b3:  0d 2b 00                STORE           G1b,#00
 d5b6:  0d 30 00                STORE           G20,#00
 d5b9:  95 03                   INC             L02
 d5bb:  8c ff 91                JUMP            d54d
 d5be:  41 36 01 00 05          JE              G26,#01 [FALSE] d5c6
 d5c3:  0d 38 01                STORE           G28,#01
 d5c6:  41 1d 00 00 0a          JE              G0d,#00 [FALSE] d5d3
 d5cb:  41 38 00 00 05          JE              G28,#00 [FALSE] d5d3
 d5d0:  8f 37 6a                CALL_1N         dda8
 d5d3:  8c fd d7                JUMP            d3ab
 d5d6:  41 1d 02 80 05          JE              G0d,#02 [TRUE] d5de
 d5db:  8f aa 36                CALL_1N         2a8d8
 d5de:  41 1d 00 00 05          JE              G0d,#00 [FALSE] d5e6
 d5e3:  8c fd dc                JUMP            d3c0
 d5e6:  b2 ...                  PRINT           "

    "
 d5ed:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
 d5f0:  b2 ...                  PRINT           "***"
 d5f9:  41 1d 01 00 09          JE              G0d,#01 [FALSE] d605
 d5fe:  f9 07 a2 82 01 06 03    CALL_VN         28a08 (#0106,#03)
 d605:  41 1d 02 00 09          JE              G0d,#02 [FALSE] d611
 d60a:  f9 07 a2 82 01 06 04    CALL_VN         28a08 (#0106,#04)
 d611:  43 1d 02 00 0b          JG              G0d,#02 [FALSE] d61f
 d616:  b2 ...                  PRINT           " "
 d619:  8f a8 c5                CALL_1N         2a314
 d61c:  b2 ...                  PRINT           " "
 d61f:  b2 ...                  PRINT           "***"
 d628:  f1 7f 00                SET_TEXT_STYLE  ROMAN
 d62b:  b2 ...                  PRINT           "


"
 d630:  8f 9d b8                CALL_1N         276e0
 d633:  8f 34 ae                CALL_1N         d2b8
 d636:  f9 07 a2 82 01 06 05    CALL_VN         28a08 (#0106,#05)
 d63d:  b2 ...                  PRINT           "> "
 d642:  0d ff 00                STORE           Gef,#00
 d645:  e2 17 5d d5 01 00       STOREB          #5dd5,#01,#00
 d64b:  8f b5 55                CALL_1N         2d554
 d64e:  e4 0f 5d d5 5e 4e ff    READ            #5dd5,#5e4e -> Gef
 d655:  cf 1f 5e 4e 01 01       LOADW           #5e4e,#01 -> L00
 d65b:  c1 83 01 93 cf 93 87 00 03
                               JE              L00,"quit","q" [FALSE] d665
 d664:  ba                      QUIT
 d665:  c1 8f 01 94 95 00 03    JE              L00,"restart" [FALSE] d66d
 d66c:  b7                      RESTART
 d66d:  c1 8f 01 94 9e 00 08    JE              L00,"restore" [FALSE] d67a
 d674:  8f ab ee                CALL_1N         2afb8
 d677:  8c ff be                JUMP            d636
 d67a:  c1 83 01 82 dd 82 d4 00 0e
                               JE              L00,"fullscore","full" [FALSE]
d68f
 d683:  01 00 00 00 09          JE              #00,#00 [FALSE] d68f
 d688:  bb                      NEW_LINE
 d689:  8f a9 d9                CALL_1N         2a764
 d68c:  8c ff a9                JUMP            d636
 d68f:  41 1d 02 00 15          JE              G0d,#02 [FALSE] d6a7
 d694:  c1 8f 01 74 8e 00 0e    JE              L00,"amusing" [FALSE] d6a7
 d69b:  01 00 00 00 09          JE              #00,#00 [FALSE] d6a7
 d6a0:  bb                      NEW_LINE
 d6a1:  8f ab 0c                CALL_1N         2ac30
 d6a4:  8c ff 91                JUMP            d636
 d6a7:  c1 8f 01 9f 84 00 2c    JE              L00,"undo" [FALSE] d6d8
 d6ae:  41 3d 00 00 0c          JE              G2d,#00 [FALSE] d6bd
 d6b3:  f9 07 a2 82 01 06 06    CALL_VN         28a08 (#0106,#06)
 d6ba:  8c ff 7b                JUMP            d636
 d6bd:  41 3d 01 00 05          JE              G2d,#01 [FALSE] d6c5
 d6c2:  8c 00 0b                JUMP            d6ce
 d6c5:  be 0a ff 01             RESTORE_UNDO    -> L00
 d6c9:  41 01 00 00 09          JE              L00,#00 [FALSE] d6d5
 d6ce:  f9 07 a2 82 01 06 07    CALL_VN         28a08 (#0106,#07)
 d6d5:  8c ff 60                JUMP            d636
 d6d8:  f9 07 a2 82 01 06 08    CALL_VN         28a08 (#0106,#08)
 d6df:  8c ff 5d                JUMP            d63d

Routine d6e4, 0 locals

 d6e5:  41 38 01 80 0b          JE              G28,#01 [TRUE] d6f3
 d6ea:  88 35 e7 00             CALL_1S         d79c -> -(SP)
 d6ee:  41 00 00 00 0c          JE              (SP)+,#00 [FALSE] d6fd
 d6f3:  cf 2f 70 dd 2a 00       LOADW           #70dd,G1a -> -(SP)
 d6f9:  e0 bf 00 ff             CALL_VS         (SP)+ -> Gef
 d6fd:  b0                      RTRUE

Routine d700, 7 locals

 d701:  2d 06 58                STORE           L05,G48
 d704:  2d 07 59                STORE           L06,G49
 d707:  2d 58 01                STORE           G48,L00
 d70a:  0d 59 00                STORE           G49,#00
 d70d:  2d 03 28                STORE           L02,G18
 d710:  2d 04 29                STORE           L03,G19
 d713:  2d 05 74                STORE           L04,G64
 d716:  0d 74 06                STORE           G64,#06
 d719:  41 02 00 00 08          JE              L01,#00 [FALSE] d724
 d71e:  2d 28 19                STORE           G18,G09
 d721:  8c 00 05                JUMP            d727
 d724:  2d 28 02                STORE           G18,L01
 d727:  2d 29 28                STORE           G19,G18
 d72a:  a3 29 00                GET_PARENT      G19 -> -(SP)
 d72d:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] d738
 d732:  a3 29 29                GET_PARENT      G19 -> G19
 d735:  8c ff f4                JUMP            d72a
 d738:  f9 29 32 35 11 19 00    CALL_VN         c8d4 (G01,G09,#00)
 d73f:  2d 74 05                STORE           G64,L04
 d742:  2d 28 03                STORE           G18,L02
 d745:  2d 29 04                STORE           G19,L03
 d748:  2d 58 06                STORE           G48,L05
 d74b:  2d 06 59                STORE           L05,G49
 d74e:  2d 59 07                STORE           G49,L06
 d751:  ab 06                   RET             L05

Routine d754, 6 locals

 d755:  2d 03 58                STORE           L02,G48
 d758:  2d 04 74                STORE           L03,G64
 d75b:  2d 05 28                STORE           L04,G18
 d75e:  2d 06 29                STORE           L05,G19
 d761:  2d 58 01                STORE           G48,L00
 d764:  41 02 00 00 08          JE              L01,#00 [FALSE] d76f
 d769:  2d 28 19                STORE           G18,G09
 d76c:  8c 00 05                JUMP            d772
 d76f:  2d 28 02                STORE           G18,L01
 d772:  2d 29 28                STORE           G19,G18
 d775:  a3 29 00                GET_PARENT      G19 -> -(SP)
 d778:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] d783
 d77d:  a3 29 29                GET_PARENT      G19 -> G19
 d780:  8c ff f4                JUMP            d775
 d783:  0d 74 05                STORE           G64,#05
 d786:  f9 29 32 35 29 28 00    CALL_VN         c8d4 (G19,G18,#00)
 d78d:  2d 58 03                STORE           G48,L02
 d790:  2d 74 04                STORE           G64,L03
 d793:  2d 28 05                STORE           G18,L04
 d796:  2d 29 06                STORE           G19,L05
 d799:  b0                      RTRUE

Routine d79c, 0 locals

 d79d:  88 a8 99 00             CALL_1S         2a264 -> -(SP)
 d7a1:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d7a7
 d7a6:  b0                      RTRUE
 d7a7:  e0 27 34 7a 19 10 00    CALL_VS         d1e8 (G09,#10) -> -(SP)
 d7ae:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d7b4
 d7b3:  b0                      RTRUE
 d7b4:  41 11 00 80 0f          JE              G01,#00 [TRUE] d7c6
 d7b9:  e0 27 34 7a 11 02 00    CALL_VS         d1e8 (G01,#02) -> -(SP)
 d7c0:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d7c6
 d7c5:  b0                      RTRUE
 d7c6:  0d 74 03                STORE           G64,#03
 d7c9:  0d 58 00                STORE           G48,#00
 d7cc:  f9 29 32 35 11 19 00    CALL_VN         c8d4 (G01,G09,#00)
 d7d3:  0d 74 00                STORE           G64,#00
 d7d6:  41 58 00 80 03          JE              G48,#00 [TRUE] d7dc
 d7db:  b0                      RTRUE
 d7dc:  43 2b 01 00 0f          JG              G1b,#01 [FALSE] d7ee
 d7e1:  e0 27 34 7a 2b 02 00    CALL_VS         d1e8 (G1b,#02) -> -(SP)
 d7e8:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d7ee
 d7ed:  b0                      RTRUE
 d7ee:  b1                      RFALSE

Routine d7f0, 0 locals

 d7f1:  0d 74 04                STORE           G64,#04
 d7f4:  0d 58 00                STORE           G48,#00
 d7f7:  f9 29 32 35 11 19 00    CALL_VN         c8d4 (G01,G09,#00)
 d7fe:  0d 74 00                STORE           G64,#00
 d801:  41 58 00 80 03          JE              G48,#00 [TRUE] d807
 d806:  b0                      RTRUE
 d807:  41 11 00 80 0f          JE              G01,#00 [TRUE] d819
 d80c:  e0 27 34 7a 11 03 00    CALL_VS         d1e8 (G01,#03) -> -(SP)
 d813:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d819
 d818:  b0                      RTRUE
 d819:  43 2b 01 00 0f          JG              G1b,#01 [FALSE] d82b
 d81e:  e0 27 34 7a 2b 03 00    CALL_VS         d1e8 (G1b,#03) -> -(SP)
 d825:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] d82b
 d82a:  b0                      RTRUE
 d82b:  88 b0 f7 00             CALL_1S         2c3dc -> -(SP)
 d82f:  ab 00                   RET             (SP)+

Routine d834, 7 locals

 d835:  2d 04 2b                STORE           L03,G1b
 d838:  2d 05 2c                STORE           L04,G1c
 d83b:  2d 06 2a                STORE           L05,G1a
 d83e:  2d 07 2f                STORE           L06,G1f
 d841:  2d 2b 02                STORE           G1b,L01
 d844:  2d 2c 03                STORE           G1c,L02
 d847:  2d 30 02                STORE           G20,L01
 d84a:  2d 31 03                STORE           G21,L02
 d84d:  2d 2a 01                STORE           G1a,L00
 d850:  41 38 01 80 0b          JE              G28,#01 [TRUE] d85e
 d855:  88 35 e7 00             CALL_1S         d79c -> -(SP)
 d859:  41 00 00 00 26          JE              (SP)+,#00 [FALSE] d882
 d85e:  c2 8f 2a 01 00 00 1f    JL              G1a,#0100 [FALSE] d882
 d865:  cf 2f 70 dd 2a 00       LOADW           #70dd,G1a -> -(SP)
 d86b:  e0 bf 00 ff             CALL_VS         (SP)+ -> Gef
 d86f:  2d 2f 07                STORE           G1f,L06
 d872:  2d 2b 04                STORE           G1b,L03
 d875:  2d 30 04                STORE           G20,L03
 d878:  2d 2c 05                STORE           G1c,L04
 d87b:  2d 31 05                STORE           G21,L04
 d87e:  2d 2a 06                STORE           G1a,L05
 d881:  b1                      RFALSE
 d882:  2d 2f 07                STORE           G1f,L06
 d885:  2d 2b 04                STORE           G1b,L03
 d888:  2d 30 04                STORE           G20,L03
 d88b:  2d 2c 05                STORE           G1c,L04
 d88e:  2d 31 05                STORE           G21,L04
 d891:  2d 2a 06                STORE           G1a,L05
 d894:  b0                      RTRUE

Routine d898, 2 locals

 d899:  2d 39 02                STORE           G29,L01
 d89c:  e0 27 34 7a 01 04 00    CALL_VS         d1e8 (L00,#04) -> -(SP)
 d8a3:  ab 00                   RET             (SP)+

Routine d8a8, 7 locals

 d8a9:  95 7e                   INC             G6e
 d8ab:  0d 81 00                STORE           G71,#00
 d8ae:  e0 bf 02 04             CALL_VS         L01 -> L03
 d8b2:  2d 05 80                STORE           L04,G70
 d8b5:  b2 ...                  PRINT           "--- "
 d8bc:  ad 05                   PRINT_PADDR     L04
 d8be:  b2 ...                  PRINT           " ---

"
 d8c7:  d9 2f 34 45 01 00       CALL_2S         d114 (L00) -> -(SP)
 d8cd:  41 00 03 00 07          JE              (SP)+,#03 [FALSE] d8d7
 d8d2:  ad 01                   PRINT_PADDR     L00
 d8d4:  8c 00 06                JUMP            d8db
 d8d7:  e0 bf 01 ff             CALL_VS         L00 -> Gef
 d8db:  b2 ...                  PRINT           "
Type a number from 1 to "
 d8ec:  e6 bf 04                PRINT_NUM       L03
 d8ef:  b2 ...                  PRINT           ", 0 to redisplay or press
ENTER.
> "
 d90e:  0d ff 00                STORE           Gef,#00
 d911:  e2 17 5d d5 01 00       STOREB          #5dd5,#01,#00
 d917:  8f b5 55                CALL_1N         2d554
 d91a:  e4 0f 5d d5 5e 4e ff    READ            #5dd5,#5e4e -> Gef
 d921:  cf 1f 5e 4e 01 06       LOADW           #5e4e,#01 -> L05
 d927:  c1 83 06 93 cf 93 87 80 0d
                               JE              L05,"quit","q" [TRUE] d93b
 d930:  d0 1f 5e 4e 01 00       LOADB           #5e4e,#01 -> -(SP)
 d936:  41 00 00 00 16          JE              (SP)+,#00 [FALSE] d94f
 d93b:  96 7e                   DEC             G6e
 d93d:  43 7e 00 00 03          JG              G6e,#00 [FALSE] d943
 d942:  b1                      RFALSE
 d943:  41 1d 00 00 08          JE              G0d,#00 [FALSE] d94e
 d948:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 d94d:  b0                      RTRUE
 d94e:  b1                      RFALSE
 d94f:  d9 1f 33 e0 01 06       CALL_2S         cf80 (#01) -> L05
 d955:  42 06 01 80 07          JL              L05,#01 [TRUE] d95f
 d95a:  63 06 04 00 05          JG              L05,L03 [FALSE] d962
 d95f:  8c ff 7b                JUMP            d8db
 d962:  2d 81 06                STORE           G71,L05
 d965:  e0 bf 03 07             CALL_VS         L02 -> L06
 d969:  41 07 02 00 05          JE              L06,#02 [FALSE] d971
 d96e:  8c ff 3c                JUMP            d8ab
 d971:  41 07 03 00 03          JE              L06,#03 [FALSE] d977
 d976:  b1                      RFALSE
 d977:  8c ff 63                JUMP            d8db

Routine d97c, 11 locals

 d97d:  41 7d 00 00 0a          JE              G6d,#00 [FALSE] d98a
 d982:  f9 2a 36 2a 01 02 03    CALL_VN         d8a8 (L00,L01,L02)
 d989:  b1                      RFALSE
 d98a:  95 7e                   INC             G6e
 d98c:  0d 81 00                STORE           G71,#00
 d98f:  e0 bf 02 04             CALL_VS         L01 -> L03
 d993:  2d 05 80                STORE           L04,G70
 d996:  2d 06 7f                STORE           L05,G6f
 d999:  0d 07 07                STORE           L06,#07
 d99c:  0d 0a 00                STORE           L09,#00
 d99f:  ed 3f ff ff             ERASE_WINDOW    #ffff
 d9a3:  54 04 07 08             ADD             L03,#07 -> L07
 d9a7:  ea bf 08                SPLIT_WINDOW    L07
 d9aa:  10 00 21 08             LOADB           #00,#21 -> L07
 d9ae:  41 08 00 00 05          JE              L07,#00 [FALSE] d9b6
 d9b3:  0d 08 50                STORE           L07,#50
 d9b6:  eb 7f 01                SET_WINDOW      #01
 d9b9:  ef 5f 01 01             SET_CURSOR      #01,#01
 d9bd:  f1 7f 01                SET_TEXT_STYLE  REVERSE
 d9c0:  2d ff 08                STORE           Gef,L07
 d9c3:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] d9d4
 d9c8:  e5 7f 20                PRINT_CHAR      ' '
 d9cb:  55 ff 01 ff             SUB             Gef,#01 -> Gef
 d9cf:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] d9c8
 d9d4:  57 08 02 00             DIV             L07,#02 -> -(SP)
 d9d8:  75 00 06 09             SUB             (SP)+,L05 -> L08
 d9dc:  ef 6f 01 09             SET_CURSOR      #01,L08
 d9e0:  ad 05                   PRINT_PADDR     L04
 d9e2:  ef 5f 02 01             SET_CURSOR      #02,#01
 d9e6:  2d ff 08                STORE           Gef,L07
 d9e9:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] d9fa
 d9ee:  e5 7f 20                PRINT_CHAR      ' '
 d9f1:  55 ff 01 ff             SUB             Gef,#01 -> Gef
 d9f5:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] d9ee
 d9fa:  ef 5f 02 02             SET_CURSOR      #02,#02
 d9fe:  b2 ...                  PRINT           "N = next subject"
 da0d:  55 08 0c 09             SUB             L07,#0c -> L08
 da11:  ef 6f 02 09             SET_CURSOR      #02,L08
 da15:  b2 ...                  PRINT           "P = previous"
 da20:  ef 5f 03 01             SET_CURSOR      #03,#01
 da24:  2d ff 08                STORE           Gef,L07
 da27:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] da38
 da2c:  e5 7f 20                PRINT_CHAR      ' '
 da2f:  55 ff 01 ff             SUB             Gef,#01 -> Gef
 da33:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] da2c
 da38:  ef 5f 03 02             SET_CURSOR      #03,#02
 da3c:  b2 ...                  PRINT           "RETURN = read subject"
 da51:  55 08 11 09             SUB             L07,#11 -> L08
 da55:  ef 6f 03 09             SET_CURSOR      #03,L08
 da59:  41 7e 01 00 14          JE              G6e,#01 [FALSE] da70
 da5e:  b2 ...                  PRINT           "  Q = resume game"
 da6d:  8c 00 11                JUMP            da7f
 da70:  b2 ...                  PRINT           "Q = previous menu"
 da7f:  f1 7f 00                SET_TEXT_STYLE  ROMAN
 da82:  ef 5f 05 02             SET_CURSOR      #05,#02
 da86:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
 da8a:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
 da8e:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
 da93:  d9 2f 34 45 01 00       CALL_2S         d114 (L00) -> -(SP)
 da99:  41 00 03 00 07          JE              (SP)+,#03 [FALSE] daa3
 da9e:  ad 01                   PRINT_PADDR     L00
 daa0:  8c 00 06                JUMP            daa7
 daa3:  e0 bf 01 ff             CALL_VS         L00 -> Gef
 daa7:  61 07 0a 80 17          JE              L06,L09 [TRUE] dac1
 daac:  43 0a 00 00 09          JG              L09,#00 [FALSE] dab8
 dab1:  ef 9f 0a 04             SET_CURSOR      L09,#04
 dab5:  b2 ...                  PRINT           " "
 dab8:  ef 9f 07 04             SET_CURSOR      L06,#04
 dabc:  b2 ...                  PRINT           ">"
 dac1:  2d 0a 07                STORE           L09,L06
 dac4:  f6 57 01 00 00 0b       READ_CHAR       #01,#00,0 -> L0a
 daca:  c1 95 0b 4e 6e 82 00 13 JE              L0a,#4e,#6e,#82 [FALSE] dae3
 dad2:  95 07                   INC             L06
 dad4:  34 07 04 00             ADD             #07,L03 -> -(SP)
 dad8:  61 07 00 00 05          JE              L06,(SP)+ [FALSE] dae0
 dadd:  0d 07 07                STORE           L06,#07
 dae0:  8c ff c6                JUMP            daa7
 dae3:  c1 95 0b 50 70 81 00 10 JE              L0a,#50,#70,#81 [FALSE] daf9
 daeb:  96 07                   DEC             L06
 daed:  41 07 06 00 06          JE              L06,#06 [FALSE] daf6
 daf2:  34 06 04 07             ADD             #06,L03 -> L06
 daf6:  8c ff b0                JUMP            daa7
 daf9:  c1 95 0b 51 71 1b 00 05 JE              L0a,#51,#71,#1b [FALSE] db04
 db01:  8c 00 a7                JUMP            dba9
 db04:  c1 97 0b 0a 0d 00 9d    JE              L0a,#0a,#0d [FALSE] dba6
 db0b:  eb 7f 00                SET_WINDOW      #00
 db0e:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
 db12:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
 db18:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
 db1d:  bb                      NEW_LINE
 db1e:  bb                      NEW_LINE
 db1f:  bb                      NEW_LINE
 db20:  55 07 06 81             SUB             L06,#06 -> G71
 db24:  e0 bf 02 ff             CALL_VS         L01 -> Gef
 db28:  ed 3f ff ff             ERASE_WINDOW    #ffff
 db2c:  ea 7f 01                SPLIT_WINDOW    #01
 db2f:  10 00 21 08             LOADB           #00,#21 -> L07
 db33:  41 08 00 00 05          JE              L07,#00 [FALSE] db3b
 db38:  0d 08 50                STORE           L07,#50
 db3b:  eb 7f 01                SET_WINDOW      #01
 db3e:  ef 5f 01 01             SET_CURSOR      #01,#01
 db42:  f1 7f 01                SET_TEXT_STYLE  REVERSE
 db45:  2d ff 08                STORE           Gef,L07
 db48:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] db59
 db4d:  e5 7f 20                PRINT_CHAR      ' '
 db50:  55 ff 01 ff             SUB             Gef,#01 -> Gef
 db54:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] db4d
 db59:  57 08 02 00             DIV             L07,#02 -> -(SP)
 db5d:  75 00 7f 09             SUB             (SP)+,G6f -> L08
 db61:  ef 6f 01 09             SET_CURSOR      #01,L08
 db65:  ad 80                   PRINT_PADDR     G70
 db67:  f1 7f 00                SET_TEXT_STYLE  ROMAN
 db6a:  eb 7f 00                SET_WINDOW      #00
 db6d:  bb                      NEW_LINE
 db6e:  e0 bf 03 08             CALL_VS         L02 -> L07
 db72:  41 08 02 00 05          JE              L07,#02 [FALSE] db7a
 db77:  8c fe 24                JUMP            d99c
 db7a:  41 08 03 00 05          JE              L07,#03 [FALSE] db82
 db7f:  8c 00 29                JUMP            dba9
 db82:  b2 ...                  PRINT           "
[Please press SPACE.]
"
 db9d:  f6 57 01 00 00 0b       READ_CHAR       #01,#00,0 -> L0a
 dba3:  8c fd f8                JUMP            d99c
 dba6:  8c ff 00                JUMP            daa7
 dba9:  96 7e                   DEC             G6e
 dbab:  43 7e 00 00 03          JG              G6e,#00 [FALSE] dbb1
 dbb0:  b1                      RFALSE
 dbb1:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
 dbb5:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
 dbbb:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
 dbc0:  ef 5f 01 01             SET_CURSOR      #01,#01
 dbc4:  ed 3f ff ff             ERASE_WINDOW    #ffff
 dbc8:  eb 7f 00                SET_WINDOW      #00
 dbcb:  bb                      NEW_LINE
 dbcc:  bb                      NEW_LINE
 dbcd:  bb                      NEW_LINE
 dbce:  41 1d 00 00 08          JE              G0d,#00 [FALSE] dbd9
 dbd3:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 dbd8:  b0                      RTRUE
 dbd9:  b0                      RTRUE

Routine dbdc, 0 locals

 dbdd:  b3 ...                  PRINT_RET       "** Too many timers/daemons!
Increase MAX_TIMERS **"

Routine dc10, 1 local

 dc11:  b2 ...                  PRINT           "** Object "
 dc1e:  da 2f 38 57 01          CALL_2N         e15c (L00)
 dc23:  b3 ...                  PRINT_RET       " has no time_left property!
**"

Routine dc3c, 1 local

 dc3d:  b2 ...                  PRINT           "** Object "
 dc4a:  da 2f 38 57 01          CALL_2N         e15c (L00)
 dc4f:  b3 ...                  PRINT_RET       " both timer and daemon! **"

Routine dc68, 3 locals

 dc69:  0d 03 00                STORE           L02,#00
 dc6c:  62 03 82 00 23          JL              L02,G72 [FALSE] dc92
 dc71:  cf 2f 5d 55 03 00       LOADW           #5d55,L02 -> -(SP)
 dc77:  61 00 01 00 13          JE              (SP)+,L00 [FALSE] dc8d
 dc7c:  d0 2f 5d 95 03 00       LOADB           #5d95,L02 -> -(SP)
 dc82:  41 00 02 00 07          JE              (SP)+,#02 [FALSE] dc8c
 dc87:  da 2f 37 0f 01          CALL_2N         dc3c (L00)
 dc8c:  b1                      RFALSE
 dc8d:  95 03                   INC             L02
 dc8f:  8c ff dc                JUMP            dc6c
 dc92:  0d 03 00                STORE           L02,#00
 dc95:  62 03 82 00 15          JL              L02,G72 [FALSE] dcad
 dc9a:  cf 2f 5d 55 03 00       LOADW           #5d55,L02 -> -(SP)
 dca0:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] dca8
 dca5:  8c 00 1b                JUMP            dcc1
 dca8:  95 03                   INC             L02
 dcaa:  8c ff ea                JUMP            dc95
 dcad:  e8 bf 82                PUSH            G72
 dcb0:  95 82                   INC             G72
 dcb2:  2d 03 00                STORE           L02,(SP)+
 dcb5:  56 03 02 00             MUL             L02,#02 -> -(SP)
 dcb9:  42 00 40 80 05          JL              (SP)+,#40 [TRUE] dcc1
 dcbe:  8f 36 f7                CALL_1N         dbdc
 dcc1:  52 01 17 00             GET_PROP_ADDR   L00,#17 -> -(SP)
 dcc5:  41 00 00 00 07          JE              (SP)+,#00 [FALSE] dccf
 dcca:  da 2f 37 04 01          CALL_2N         dc10 (L00)
 dccf:  e1 2b 5d 55 03 01       STOREW          #5d55,L02,L00
 dcd5:  e2 27 5d 95 03 01       STOREB          #5d95,L02,#01
 dcdb:  e3 9b 01 17 02          PUT_PROP        L00,#17,L01
 dce0:  b0                      RTRUE

Routine dce4, 2 locals

 dce5:  0d 02 00                STORE           L01,#00
 dce8:  62 02 82 00 15          JL              L01,G72 [FALSE] dd00
 dced:  cf 2f 5d 55 02 00       LOADW           #5d55,L01 -> -(SP)
 dcf3:  61 00 01 00 05          JE              (SP)+,L00 [FALSE] dcfb
 dcf8:  8c 00 08                JUMP            dd01
 dcfb:  95 02                   INC             L01
 dcfd:  8c ff ea                JUMP            dce8
 dd00:  b1                      RFALSE
 dd01:  52 01 17 00             GET_PROP_ADDR   L00,#17 -> -(SP)
 dd05:  41 00 00 00 07          JE              (SP)+,#00 [FALSE] dd0f
 dd0a:  da 2f 37 04 01          CALL_2N         dc10 (L00)
 dd0f:  e1 27 5d 55 02 00       STOREW          #5d55,L01,#00
 dd15:  e3 97 01 17 00          PUT_PROP        L00,#17,#00
 dd1a:  b0                      RTRUE

Routine dd1c, 2 locals

 dd1d:  0d 02 00                STORE           L01,#00
 dd20:  62 02 82 00 23          JL              L01,G72 [FALSE] dd46
 dd25:  cf 2f 5d 55 02 00       LOADW           #5d55,L01 -> -(SP)
 dd2b:  61 00 01 00 13          JE              (SP)+,L00 [FALSE] dd41
 dd30:  d0 2f 5d 95 02 00       LOADB           #5d95,L01 -> -(SP)
 dd36:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] dd40
 dd3b:  da 2f 37 0f 01          CALL_2N         dc3c (L00)
 dd40:  b1                      RFALSE
 dd41:  95 02                   INC             L01
 dd43:  8c ff dc                JUMP            dd20
 dd46:  0d 02 00                STORE           L01,#00
 dd49:  62 02 82 00 15          JL              L01,G72 [FALSE] dd61
 dd4e:  cf 2f 5d 55 02 00       LOADW           #5d55,L01 -> -(SP)
 dd54:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] dd5c
 dd59:  8c 00 1b                JUMP            dd75
 dd5c:  95 02                   INC             L01
 dd5e:  8c ff ea                JUMP            dd49
 dd61:  e8 bf 82                PUSH            G72
 dd64:  95 82                   INC             G72
 dd66:  2d 02 00                STORE           L01,(SP)+
 dd69:  56 02 02 00             MUL             L01,#02 -> -(SP)
 dd6d:  42 00 40 80 05          JL              (SP)+,#40 [TRUE] dd75
 dd72:  8f 36 f7                CALL_1N         dbdc
 dd75:  e1 2b 5d 55 02 01       STOREW          #5d55,L01,L00
 dd7b:  e2 27 5d 95 02 02       STOREB          #5d95,L01,#02
 dd81:  b0                      RTRUE

Routine dd84, 2 locals

 dd85:  0d 02 00                STORE           L01,#00
 dd88:  62 02 82 00 15          JL              L01,G72 [FALSE] dda0
 dd8d:  cf 2f 5d 55 02 00       LOADW           #5d55,L01 -> -(SP)
 dd93:  61 00 01 00 05          JE              (SP)+,L00 [FALSE] dd9b
 dd98:  8c 00 08                JUMP            dda1
 dd9b:  95 02                   INC             L01
 dd9d:  8c ff ea                JUMP            dd88
 dda0:  b1                      RFALSE
 dda1:  e1 27 5d 55 02 00       STOREW          #5d55,L01,#00
 dda7:  b0                      RTRUE

Routine dda8, 2 locals

 dda9:  95 18                   INC             G08
 ddab:  c1 8f 14 ff ff 80 21    JE              G04,#ffff [TRUE] ddd1
 ddb2:  42 15 00 80 09          JL              G05,#00 [TRUE] ddbe
 ddb7:  74 14 15 14             ADD             G04,G05 -> G04
 ddbb:  8c 00 0f                JUMP            ddcb
 ddbe:  96 16                   DEC             G06
 ddc0:  41 16 00 00 08          JE              G06,#00 [FALSE] ddcb
 ddc5:  95 14                   INC             G04
 ddc7:  35 00 15 16             SUB             #00,G05 -> G06
 ddcb:  d8 8f 14 05 a0 14       MOD             G04,#05a0 -> G04
 ddd1:  0d 01 00                STORE           L00,#00
 ddd4:  41 1d 00 00 4f          JE              G0d,#00 [FALSE] de26
 ddd9:  62 01 82 00 4a          JL              L00,G72 [FALSE] de26
 ddde:  cf 2f 5d 55 01 02       LOADW           #5d55,L00 -> L01
 dde4:  41 02 00 80 3a          JE              L01,#00 [TRUE] de21
 dde9:  d0 2f 5d 95 01 00       LOADB           #5d95,L00 -> -(SP)
 ddef:  41 00 02 00 0b          JE              (SP)+,#02 [FALSE] ddfd
 ddf4:  f9 27 34 7a 02 19       CALL_VN         d1e8 (L01,#19)
 ddfa:  8c 00 26                JUMP            de21
 ddfd:  51 02 17 00             GET_PROP        L01,#17 -> -(SP)
 de01:  41 00 00 00 10          JE              (SP)+,#00 [FALSE] de14
 de06:  da 2f 37 39 02          CALL_2N         dce4 (L01)
 de0b:  f9 27 34 7a 02 19       CALL_VN         d1e8 (L01,#19)
 de11:  8c 00 0f                JUMP            de21
 de14:  51 02 17 00             GET_PROP        L01,#17 -> -(SP)
 de18:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
 de1c:  e3 9b 02 17 00          PUT_PROP        L01,#17,(SP)+
 de21:  95 01                   INC             L00
 de23:  8c ff b0                JUMP            ddd4
 de26:  41 1d 00 00 17          JE              G0d,#00 [FALSE] de40
 de2b:  0d 74 02                STORE           G64,#02
 de2e:  0d 44 00                STORE           G34,#00
 de31:  da 2f 32 59 11          CALL_2N         c964 (G01)
 de36:  f9 29 32 35 11 19 00    CALL_VN         c8d4 (G01,G09,#00)
 de3d:  0d 74 00                STORE           G64,#00
 de40:  41 1d 00 00 05          JE              G0d,#00 [FALSE] de48
 de45:  8f b0 f5                CALL_1N         2c3d4
 de48:  41 1d 00 00 2a          JE              G0d,#00 [FALSE] de75
 de4d:  8f 37 9e                CALL_1N         de78
 de50:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] de54
 de54:  41 01 00 80 1e          JE              L00,#00 [TRUE] de75
 de59:  4a 01 0c 80 12          TEST_ATTR       L00,#0c [TRUE] de6e
 de5e:  4b 01 0c                SET_ATTR        L00,#0c
 de61:  4a 01 12 00 0a          TEST_ATTR       L00,#12 [FALSE] de6e
 de66:  54 17 04 17             ADD             G07,#04 -> G07
 de6a:  54 22 04 22             ADD             G12,#04 -> G12
 de6e:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] de72
 de72:  8c ff e1                JUMP            de54
 de75:  b0                      RTRUE

Routine de78, 2 locals

 de79:  2d 02 1a                STORE           L01,G0a
 de7c:  a3 19 00                GET_PARENT      G09 -> -(SP)
 de7f:  d9 2f 37 b3 00 1a       CALL_2S         decc ((SP)+) -> G0a
 de85:  41 02 00 00 14          JE              L01,#00 [FALSE] de9c
 de8a:  41 1a 01 00 0f          JE              G0a,#01 [FALSE] de9c
 de8f:  2d 11 1b                STORE           G01,G0b
 de92:  41 01 00 00 07          JE              L00,#00 [FALSE] de9c
 de97:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 de9c:  41 02 01 00 1f          JE              L01,#01 [FALSE] debe
 dea1:  41 1a 00 00 1a          JE              G0a,#00 [FALSE] debe
 dea6:  2d 1b 11                STORE           G0b,G01
 dea9:  0d 11 0e                STORE           G01,#0e
 deac:  41 01 00 00 0f          JE              L00,#00 [FALSE] debe
 deb1:  8f a0 9d                CALL_1N         28274
 deb4:  e0 07 a2 82 01 06 09 00 CALL_VS         28a08 (#0106,#09) -> -(SP)
 debc:  ab 00                   RET             (SP)+
 debe:  41 02 00 00 0a          JE              L01,#00 [FALSE] decb
 dec3:  41 1a 00 00 05          JE              G0a,#00 [FALSE] decb
 dec8:  0d 11 0e                STORE           G01,#0e
 decb:  b0                      RTRUE

Routine decc, 2 locals

 decd:  41 01 00 00 03          JE              L00,#00 [FALSE] ded3
 ded2:  b1                      RFALSE
 ded3:  4a 01 09 00 03          TEST_ATTR       L00,#09 [FALSE] ded9
 ded8:  b0                      RTRUE
 ded9:  a2 01 02 c2             GET_CHILD       L00 -> L01 [TRUE] dedd
 dedd:  41 02 00 80 15          JE              L01,#00 [TRUE] def5
 dee2:  d9 2f 37 c5 02 00       CALL_2S         df14 (L01) -> -(SP)
 dee8:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] deee
 deed:  b0                      RTRUE
 deee:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] def2
 def2:  8c ff ea                JUMP            dedd
 def5:  4a 01 06 80 0d          TEST_ATTR       L00,#06 [TRUE] df05
 defa:  d9 2f 32 4c 01 00       CALL_2S         c930 (L00) -> -(SP)
 df00:  41 00 01 00 0d          JE              (SP)+,#01 [FALSE] df10
 df05:  a3 01 00                GET_PARENT      L00 -> -(SP)
 df08:  d9 2f 37 b3 00 00       CALL_2S         decc ((SP)+) -> -(SP)
 df0e:  ab 00                   RET             (SP)+
 df10:  b1                      RFALSE

Routine df14, 3 locals

 df15:  41 01 00 00 03          JE              L00,#00 [FALSE] df1b
 df1a:  b1                      RFALSE
 df1b:  4a 01 09 00 03          TEST_ATTR       L00,#09 [FALSE] df21
 df20:  b0                      RTRUE
 df21:  4a 01 06 80 0d          TEST_ATTR       L00,#06 [TRUE] df31
 df26:  d9 2f 32 4c 01 00       CALL_2S         c930 (L00) -> -(SP)
 df2c:  41 00 01 00 1e          JE              (SP)+,#01 [FALSE] df4d
 df31:  a2 01 01 c2             GET_CHILD       L00 -> L00 [TRUE] df35
 df35:  41 01 00 80 15          JE              L00,#00 [TRUE] df4d
 df3a:  d9 2f 37 c5 01 00       CALL_2S         df14 (L00) -> -(SP)
 df40:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] df46
 df45:  b0                      RTRUE
 df46:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] df4a
 df4a:  8c ff ea                JUMP            df35
 df4d:  52 01 0a 03             GET_PROP_ADDR   L00,#0a -> L02
 df51:  a3 01 00                GET_PARENT      L00 -> -(SP)
 df54:  41 00 00 80 59          JE              (SP)+,#00 [TRUE] dfb0
 df59:  41 03 00 80 54          JE              L02,#00 [TRUE] dfb0
 df5e:  4f 03 00 00             LOADW           L02,#00 -> -(SP)
 df62:  63 00 25 00 1a          JG              (SP)+,G15 [FALSE] df7f
 df67:  0d 79 00                STORE           G69,#00
 df6a:  0d 78 01                STORE           G68,#01
 df6d:  f9 27 34 7a 01 0a       CALL_VN         d1e8 (L00,#0a)
 df73:  0d 78 00                STORE           G68,#00
 df76:  41 79 01 00 03          JE              G69,#01 [FALSE] df7c
 df7b:  b0                      RTRUE
 df7c:  8c 00 33                JUMP            dfb0
 df7f:  0d 02 00                STORE           L01,#00
 df82:  52 01 0a 00             GET_PROP_ADDR   L00,#0a -> -(SP)
 df86:  2d ff 00                STORE           Gef,(SP)+
 df89:  a0 ff c5                JZ              Gef [TRUE] df8f
 df8c:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
 df8f:  e8 bf ff                PUSH            Gef
 df92:  36 02 02 00             MUL             #02,L01 -> -(SP)
 df96:  62 00 00 00 17          JL              (SP)+,(SP)+ [FALSE] dfb0
 df9b:  6f 03 02 00             LOADW           L02,L01 -> -(SP)
 df9f:  d9 2f 37 c5 00 00       CALL_2S         df14 ((SP)+) -> -(SP)
 dfa5:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] dfab
 dfaa:  b0                      RTRUE
 dfab:  95 02                   INC             L01
 dfad:  8c ff d4                JUMP            df82
 dfb0:  b1                      RFALSE

Routine dfb4, 1 local

 dfb5:  41 01 00 00 0c          JE              L00,#00 [FALSE] dfc4
 dfba:  b2 ...                  PRINT           "is unset"
 dfc1:  8c 00 0c                JUMP            dfce
 dfc4:  b2 ...                  PRINT           "means "
 dfc9:  da 2f 38 4e 01          CALL_2N         e138 (L00)
 dfce:  b0                      RTRUE

Routine dfd0, 0 locals
    Action routine for:
        "nouns"

 dfd1:  b2 ...                  PRINT           "At the moment, "it" "
 dfe0:  da 2f 37 ed 5c          CALL_2N         dfb4 (G4c)
 dfe5:  b2 ...                  PRINT           ", "him" "
 dfee:  da 2f 37 ed 5d          CALL_2N         dfb4 (G4d)
 dff3:  41 19 0f 00 08          JE              G09,#0f [FALSE] dffe
 dff8:  b2 ...                  PRINT           " and"
 dffb:  8c 00 05                JUMP            e001
 dffe:  b2 ...                  PRINT           ","
 e001:  b2 ...                  PRINT           " "her" "
 e008:  da 2f 37 ed 5e          CALL_2N         dfb4 (G4e)
 e00d:  41 19 0f 00 05          JE              G09,#0f [FALSE] e015
 e012:  b3 ...                  PRINT_RET       "."
 e015:  b2 ...                  PRINT           " and "me" means "
 e022:  aa 19                   PRINT_OBJ       G09
 e024:  b3 ...                  PRINT_RET       "."

Routine e028, 3 locals

 e029:  52 01 18 00             GET_PROP_ADDR   L00,#18 -> -(SP)
 e02d:  41 00 00 00 29          JE              (SP)+,#00 [FALSE] e059
 e032:  b3 ...                  PRINT_RET       "** Player objects must have
"number" prop **"
 e059:  61 28 19 00 05          JE              G18,G09 [FALSE] e061
 e05e:  2d 28 01                STORE           G18,L00
 e061:  4c 19 17                CLEAR_ATTR      G09,#17
 e064:  4c 19 02                CLEAR_ATTR      G09,#02
 e067:  2d 03 01                STORE           L02,L00
 e06a:  a3 03 00                GET_PARENT      L02 -> -(SP)
 e06d:  41 00 00 80 10          JE              (SP)+,#00 [TRUE] e080
 e072:  4a 03 00 00 05          TEST_ATTR       L02,#00 [FALSE] e07a
 e077:  4b 03 17                SET_ATTR        L02,#17
 e07a:  a3 03 03                GET_PARENT      L02 -> L02
 e07d:  8c ff ec                JUMP            e06a
 e080:  41 19 0f 00 08          JE              G09,#0f [FALSE] e08b
 e085:  e3 93 19 1c b6 a1       PUT_PROP        G09,#1c,S023
 e08b:  e3 9b 19 18 1b          PUT_PROP        G09,#18,G0b
 e090:  2d 19 01                STORE           G09,L00
 e093:  41 19 0f 00 08          JE              G09,#0f [FALSE] e09e
 e098:  e3 93 19 1c ff ff       PUT_PROP        G09,#1c,#ffff
 e09e:  4b 19 17                SET_ATTR        G09,#17
 e0a1:  4b 19 02                SET_ATTR        G09,#02
 e0a4:  4b 19 00                SET_ATTR        G09,#00
 e0a7:  4b 19 10                SET_ATTR        G09,#10
 e0aa:  2d 03 19                STORE           L02,G09
 e0ad:  a3 03 00                GET_PARENT      L02 -> -(SP)
 e0b0:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] e0bb
 e0b5:  a3 03 03                GET_PARENT      L02 -> L02
 e0b8:  8c ff f4                JUMP            e0ad
 e0bb:  2d 11 03                STORE           G01,L02
 e0be:  51 19 18 1b             GET_PROP        G09,#18 -> G0b
 e0c2:  41 1b 00 00 05          JE              G0b,#00 [FALSE] e0ca
 e0c7:  2d 1b 11                STORE           G0b,G01
 e0ca:  a3 19 00                GET_PARENT      G09 -> -(SP)
 e0cd:  d9 2f 37 b3 00 1a       CALL_2S         decc ((SP)+) -> G0a
 e0d3:  41 1a 00 00 05          JE              G0a,#00 [FALSE] e0db
 e0d8:  0d 11 0e                STORE           G01,#0e
 e0db:  2d 1c 02                STORE           G0c,L01
 e0de:  b0                      RTRUE

Routine e0e0, 2 locals

 e0e1:  55 01 01 00             SUB             L00,#01 -> -(SP)
 e0e5:  0f 00 05 00             LOADW           #00,#05 -> -(SP)
 e0e9:  e1 ab 00 00 02          STOREW          (SP)+,(SP)+,L01
 e0ee:  b0                      RTRUE

Routine e0f0, 1 local

 e0f1:  4f 01 00 00             LOADW           L00,#00 -> -(SP)
 e0f5:  41 00 00 00 19          JE              (SP)+,#00 [FALSE] e111
 e0fa:  b3 ...                  PRINT_RET       "** Table size 0 **"
 e111:  4f 01 00 00             LOADW           L00,#00 -> -(SP)
 e115:  e7 bf 00 00             RANDOM          (SP)+ -> -(SP)
 e119:  6f 01 00 00             LOADW           L00,(SP)+ -> -(SP)
 e11d:  ab 00                   RET             (SP)+

Routine e120, 1 local

 e121:  4a 01 10 80 0c          TEST_ATTR       L00,#10 [TRUE] e130
 e126:  f9 25 34 52 01 14 01    CALL_VN         d148 (L00,#14,#01)
 e12d:  b2 ...                  PRINT           " "
 e130:  da 2f 38 57 01          CALL_2N         e15c (L00)
 e135:  b0                      RTRUE

Routine e138, 1 local

 e139:  4a 01 10 80 07          TEST_ATTR       L00,#10 [TRUE] e143
 e13e:  b2 ...                  PRINT           "the "
 e143:  da 2f 38 57 01          CALL_2N         e15c (L00)
 e148:  b0                      RTRUE

Routine e14c, 1 local

 e14d:  4a 01 10 80 05          TEST_ATTR       L00,#10 [TRUE] e155
 e152:  b2 ...                  PRINT           "The "
 e155:  da 2f 38 57 01          CALL_2N         e15c (L00)
 e15a:  b0                      RTRUE

Routine e15c, 1 local

 e15d:  41 01 00 00 08          JE              L00,#00 [FALSE] e168
 e162:  b2 ...                  PRINT           "nothing"
 e167:  b0                      RTRUE
 e168:  63 01 25 80 07          JG              L00,G15 [TRUE] e172
 e16d:  42 01 00 00 14          JL              L00,#00 [FALSE] e184
 e172:  b2 ...                  PRINT           "<no such object>"
 e183:  b0                      RTRUE
 e184:  61 01 19 00 0a          JE              L00,G09 [FALSE] e191
 e189:  b2 ...                  PRINT           "yourself"
 e190:  b0                      RTRUE
 e191:  52 01 1c 00             GET_PROP_ADDR   L00,#1c -> -(SP)
 e195:  41 00 00 80 10          JE              (SP)+,#00 [TRUE] e1a8
 e19a:  e0 25 34 52 01 1c 01 00 CALL_VS         d148 (L00,#1c,#01) -> -(SP)
 e1a2:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] e1a8
 e1a7:  b0                      RTRUE
 e1a8:  aa 01                   PRINT_OBJ       L00
 e1aa:  b0                      RTRUE

Routine e1ac, 1 local

 e1ad:  2d ff 01                STORE           Gef,L00
 e1b0:  41 ff 05 00 0a          JE              Gef,#05 [FALSE] e1bd
 e1b5:  b2 ...                  PRINT           "north"
 e1ba:  8c 00 aa                JUMP            e265
 e1bd:  41 ff 06 00 0a          JE              Gef,#06 [FALSE] e1ca
 e1c2:  b2 ...                  PRINT           "south"
 e1c7:  8c 00 9d                JUMP            e265
 e1ca:  41 ff 07 00 0a          JE              Gef,#07 [FALSE] e1d7
 e1cf:  b2 ...                  PRINT           "east"
 e1d4:  8c 00 90                JUMP            e265
 e1d7:  41 ff 08 00 0a          JE              Gef,#08 [FALSE] e1e4
 e1dc:  b2 ...                  PRINT           "west"
 e1e1:  8c 00 83                JUMP            e265
 e1e4:  41 ff 09 00 0c          JE              Gef,#09 [FALSE] e1f3
 e1e9:  b2 ...                  PRINT           "northeast"
 e1f0:  8c 00 74                JUMP            e265
 e1f3:  41 ff 0b 00 0c          JE              Gef,#0b [FALSE] e202
 e1f8:  b2 ...                  PRINT           "northwest"
 e1ff:  8c 00 65                JUMP            e265
 e202:  41 ff 0a 00 0c          JE              Gef,#0a [FALSE] e211
 e207:  b2 ...                  PRINT           "southeast"
 e20e:  8c 00 56                JUMP            e265
 e211:  41 ff 0c 00 0c          JE              Gef,#0c [FALSE] e220
 e216:  b2 ...                  PRINT           "southwest"
 e21d:  8c 00 47                JUMP            e265
 e220:  41 ff 0d 00 08          JE              Gef,#0d [FALSE] e22b
 e225:  b2 ...                  PRINT           "up"
 e228:  8c 00 3c                JUMP            e265
 e22b:  41 ff 0e 00 0a          JE              Gef,#0e [FALSE] e238
 e230:  b2 ...                  PRINT           "down"
 e235:  8c 00 2f                JUMP            e265
 e238:  41 ff 0f 00 08          JE              Gef,#0f [FALSE] e243
 e23d:  b2 ...                  PRINT           "in"
 e240:  8c 00 24                JUMP            e265
 e243:  41 ff 10 00 08          JE              Gef,#10 [FALSE] e24e
 e248:  b2 ...                  PRINT           "out"
 e24b:  8c 00 19                JUMP            e265
 e24e:  b3 ...                  PRINT_RET       "** No such direction **"
 e265:  b0                      RTRUE

Routine e268, 1 local

 e269:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
 e26c:  8d b6 69                PRINT_PADDR     S001
 e26f:  f1 7f 00                SET_TEXT_STYLE  ROMAN
 e272:  8d b6 6b                PRINT_PADDR     S002
 e275:  b2 ...                  PRINT           "Release "
 e27c:  0f 00 01 00             LOADW           #00,#01 -> -(SP)
 e280:  c9 8f 00 03 ff 00       AND             (SP)+,#03ff -> -(SP)
 e286:  e6 bf 00                PRINT_NUM       (SP)+
 e289:  b2 ...                  PRINT           " / Serial number "
 e298:  0d 01 12                STORE           L00,#12
 e29b:  42 01 18 00 0e          JL              L00,#18 [FALSE] e2ac
 e2a0:  30 00 01 00             LOADB           #00,L00 -> -(SP)
 e2a4:  e5 bf 00                PRINT_CHAR      (SP)+
 e2a7:  95 01                   INC             L00
 e2a9:  8c ff f1                JUMP            e29b
 e2ac:  b2 ...                  PRINT           " / Inform v"
 e2b7:  b2 ...                  PRINT           "1600"
 e2be:  b2 ...                  PRINT           " Library "
 e2c7:  8d b6 7e                PRINT_PADDR     S004
 e2ca:  bb                      NEW_LINE
 e2cb:  43 26 00 00 27          JG              G16,#00 [FALSE] e2f5
 e2d0:  b2 ...                  PRINT           "Standard interpreter "
 e2dd:  d7 8f 26 01 00 00       DIV             G16,#0100 -> -(SP)
 e2e3:  e6 bf 00                PRINT_NUM       (SP)+
 e2e6:  b2 ...                  PRINT           "."
 e2e9:  d8 8f 26 01 00 00       MOD             G16,#0100 -> -(SP)
 e2ef:  e6 bf 00                PRINT_NUM       (SP)+
 e2f2:  b2 ...                  PRINT           "
"
 e2f5:  b0                      RTRUE

Routine e2f8, 0 locals
    Action routine for:
        "version"

 e2f9:  8f 38 9a                CALL_1N         e268
 e2fc:  b2 ...                  PRINT           "Interpreter "
 e305:  10 00 1e 00             LOADB           #00,#1e -> -(SP)
 e309:  e6 bf 00                PRINT_NUM       (SP)+
 e30c:  b2 ...                  PRINT           " Version "
 e315:  10 00 1f 00             LOADB           #00,#1f -> -(SP)
 e319:  e5 bf 00                PRINT_CHAR      (SP)+
 e31c:  b2 ...                  PRINT           " / "
 e321:  b2 ...                  PRINT           "Library serial number "
 e332:  8d b6 7c                PRINT_PADDR     S003
 e335:  b2 ...                  PRINT           "
"
 e338:  b0                      RTRUE

Routine e33c, 0 locals

 e33d:  41 3a 00 00 0e          JE              G2a,#00 [FALSE] e34e
 e342:  41 1d 00 00 08          JE              G0d,#00 [FALSE] e34d
 e347:  8f ab 3c                CALL_1N         2acf0
 e34a:  b2 ...                  PRINT           "  "
 e34d:  b1                      RFALSE
 e34e:  41 3a 18 00 44          JE              G2a,#18 [FALSE] e395
 e353:  da 1f 97 a4 00          CALL_2N         25e90 (#00)
 e358:  b2 ...                  PRINT           "You are "
 e35f:  c1 8f 11 01 8a 00 19    JE              G01,#018a [FALSE] e37d
 e366:  b2 ...                  PRINT           "bathed in a curious white
light, and "
 e37d:  41 40 01 00 0d          JE              G30,#01 [FALSE] e38d
 e382:  b3 ...                  PRINT_RET       "carrying nothing."
 e38d:  b2 ...                  PRINT           "carrying"
 e394:  b0                      RTRUE
 e395:  41 3a 1c 00 14          JE              G2a,#1c [FALSE] e3ac
 e39a:  41 40 04 00 0e          JE              G30,#04 [FALSE] e3ab
 e39f:  ca 8f 30 00 1c 00 07    TEST_ATTR       G20,#001c [FALSE] e3ab
 e3a6:  da 1f 97 a4 10          CALL_2N         25e90 (#10)
 e3ab:  b1                      RFALSE
 e3ac:  41 3a 26 00 32          JE              G2a,#26 [FALSE] e3e1
 e3b1:  41 40 02 00 2c          JE              G30,#02 [FALSE] e3e0
 e3b6:  c1 97 8c 08 0a 00 25    JE              G7c,#08,#0a [FALSE] e3e0
 e3bd:  b3 ...                  PRINT_RET       "You drift in that direction,
but without gaining any ground."
 e3e0:  b1                      RFALSE
 e3e1:  41 3a 60 00 9a          JE              G2a,#60 [FALSE] e47e
 e3e6:  c6 2f 00 3a 11 80 03    JIN             "Austin",G01 [TRUE] e3ee
 e3ed:  b1                      RFALSE
 e3ee:  41 8c 0b 00 15          JE              G7c,#0b [FALSE] e406
 e3f3:  b3 ...                  PRINT_RET       "Austin is quite unruffled."
 e406:  b2 ...                  PRINT           "For some reason, Austin is
startled and springs for his life "
 e42d:  da 1f 97 a4 07          CALL_2N         25e90 (#07)
 e432:  c1 8f 11 00 47 00 41    JE              G01,#0047 [FALSE] e478
 e439:  c6 0f 00 94 00 48 00 39 JIN             "charcoal sketch","slide
projector" [FALSE] e478
 e441:  ca 1f 00 49 02 80 32    TEST_ATTR       "south wall",#02 [TRUE] e478
 e448:  ce 0f 00 3a 01 8c       INSERT_OBJ      "Austin","Causeway"
 e44e:  da 1f 9d bb 24          CALL_2N         276ec (#24)
 e453:  da 0f 37 47 01 b3       CALL_2N         dd1c (#01b3)
 e459:  b3 ...                  PRINT_RET       "right up through the south
wall and into Alexandria!"
 e478:  da 1f 48 7e 01          CALL_2N         121f8 (#01)
 e47d:  b1                      RFALSE
 e47e:  41 3a 57 00 3c          JE              G2a,#57 [FALSE] e4bd
 e483:  ca 1f 00 6f 08 00 35    TEST_ATTR       "antiquated wireless",#08
[FALSE] e4bd
 e48a:  c6 2f 00 6f 11 80 11    JIN             "antiquated wireless",G01
[TRUE] e4a0
 e491:  c6 0f 00 6f 00 6b 00 26 JIN             "antiquated wireless","Aunt
Jemima's Lair" [FALSE] e4bd
 e499:  c1 8f 11 00 70 00 1f    JE              G01,#0070 [FALSE] e4bd
 e4a0:  b3 ...                  PRINT_RET       "You feel your brain turning to
rice pudding."
 e4bd:  b1                      RFALSE

Routine e4c0, 0 locals

 e4c1:  41 3a 2a 00 a3          JE              G2a,#2a [FALSE] e567
 e4c6:  4a 2f 22 00 55          TEST_ATTR       G1f,#22 [FALSE] e51e
 e4cb:  b3 ...                  PRINT_RET       "A featureless mahogany rod,
whose purpose is oblique. Or almost featureless: a little silver plaque is left
blank at one end."
 e51e:  4a 2f 1d 00 03          TEST_ATTR       G1f,#1d [FALSE] e524
 e523:  b1                      RFALSE
 e524:  b2 ...                  PRINT           "The silver plaque on this
mahogany rod proclaims it as "
 e547:  da 2f 38 4e 2f          CALL_2N         e138 (G1f)
 e54c:  b2 ...                  PRINT           "."
 e54f:  4a 30 26 00 13          TEST_ATTR       G20,#26 [FALSE] e565
 e554:  b3 ...                  PRINT_RET       "  It is fully charged up."
 e565:  bb                      NEW_LINE
 e566:  b0                      RTRUE
 e567:  b1                      RFALSE

Routine e568, 2 locals

 e569:  c1 8f 57 01 04 00 12    JE              G47,#0104 [FALSE] e580
 e570:  4a 58 22 00 0a          TEST_ATTR       G48,#22 [FALSE] e57d
 e575:  4a 59 22 00 05          TEST_ATTR       G49,#22 [FALSE] e57d
 e57a:  8b ff ff                RET             #ffff
 e57d:  8b ff fe                RET             #fffe
 e580:  01 01 01 00 2d          JE              #01,#01 [FALSE] e5b0
 e585:  88 33 bc 02             CALL_1S         cef0 -> L01
 e589:  e0 2b 33 84 2f 02 00    CALL_VS         ce10 (G1f,L01) -> -(SP)
 e590:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] e59a
 e595:  95 01                   INC             L00
 e597:  8c 00 15                JUMP            e5ad
 e59a:  c1 8f 02 95 40 00 0c    JE              L01,"rods" [FALSE] e5ab
 e5a1:  cd 4f 57 01 05          STORE           G47,#0105
 e5a6:  95 01                   INC             L00
 e5a8:  8c 00 04                JUMP            e5ad
 e5ab:  ab 01                   RET             L00
 e5ad:  8c ff d2                JUMP            e580
 e5b0:  b1                      RFALSE

Routine e5b4, 0 locals

 e5b5:  4a 2f 22 00 14          TEST_ATTR       G1f,#22 [FALSE] e5cc
 e5ba:  b2 ...                  PRINT           "featureless mahogany rod"
 e5cb:  b0                      RTRUE
 e5cc:  4a 86 1c 80 13          TEST_ATTR       G76,#1c [TRUE] e5e2
 e5d1:  4a 2f 1d 00 07          TEST_ATTR       G1f,#1d [FALSE] e5db
 e5d6:  b2 ...                  PRINT           "High "
 e5db:  b2 ...                  PRINT           "Rod of "
 e5e2:  b1                      RFALSE

Routine e5e4, 0 locals

 e5e5:  41 83 02 00 10          JE              G73,#02 [FALSE] e5f8
 e5ea:  4a 2f 26 00 0b          TEST_ATTR       G1f,#26 [FALSE] e5f8
 e5ef:  b2 ...                  PRINT           " (charged)"
 e5f8:  b1                      RFALSE

Routine e5fc, 0 locals

 e5fd:  b2 ...                  PRINT           "An adamantine rod, bearing a
sculpted "
 e616:  c1 8f 2f 00 1c 00 05    JE              G1f,#001c [FALSE] e620
 e61d:  b2 ...                  PRINT           "hand"
 e620:  c1 8f 2f 00 1e 00 07    JE              G1f,#001e [FALSE] e62c
 e627:  b2 ...                  PRINT           "heart"
 e62c:  c1 8f 2f 00 1d 00 07    JE              G1f,#001d [FALSE] e638
 e633:  b2 ...                  PRINT           "skull"
 e638:  b3 ...                  PRINT_RET       " on one end, and inscribed
with its title."

Routine e658, 0 locals

 e659:  b3 ...                  PRINT_RET       "You are knocked off your feet
with the power of one of the High Rods, but it is too puissant for a mortal
such as you are."

Routine e6a4, 1 local

 e6a5:  41 83 01 00 51          JE              G73,#01 [FALSE] e6f9
 e6aa:  41 01 01 00 14          JE              L00,#01 [FALSE] e6c1
 e6af:  b2 ...                  PRINT           "the High Rods of "
 e6be:  8c 00 0d                JUMP            e6cc
 e6c1:  b2 ...                  PRINT           "the Rods of "
 e6cc:  d4 0f 00 08 10 00 00    ADD             #0008,#1000 -> -(SP)
 e6d3:  68 84 00 84             OR              G74,(SP)+ -> G74
 e6d7:  c9 8f 84 00 01 00       AND             G74,#0001 -> -(SP)
 e6dd:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] e6e8
 e6e2:  d5 8f 84 00 01 84       SUB             G74,#0001 -> G74
 e6e8:  c9 8f 84 00 02 00       AND             G74,#0002 -> -(SP)
 e6ee:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] e6f9
 e6f3:  d5 8f 84 00 02 84       SUB             G74,#0002 -> G74
 e6f9:  b1                      RFALSE

Routine e6fc, 0 locals

 e6fd:  d9 1f 39 a9 01 00       CALL_2S         e6a4 (#01) -> -(SP)
 e703:  ab 00                   RET             (SP)+

Routine e708, 1 local

 e709:  4c 01 22                CLEAR_ATTR      L00,#22
 e70c:  51 01 20 00             GET_PROP        L00,#20 -> -(SP)
 e710:  52 01 01 00             GET_PROP_ADDR   L00,#01 -> -(SP)
 e714:  e1 9b 00 02 00          STOREW          (SP)+,#02,(SP)+
 e719:  51 01 20 00             GET_PROP        L00,#20 -> -(SP)
 e71d:  52 01 01 00             GET_PROP_ADDR   L00,#01 -> -(SP)
 e721:  e1 9b 00 03 00          STOREW          (SP)+,#03,(SP)+
 e726:  e3 93 01 14 b6 b1       PUT_PROP        L00,#14,S028
 e72c:  e3 97 01 0e 00          PUT_PROP        L00,#0e,#00
 e731:  e3 93 01 0c 39 a9       PUT_PROP        L00,#0c,#39a9
 e737:  b0                      RTRUE

Routine e738, 0 locals

 e739:  61 31 19 00 34          JE              G21,G09 [FALSE] e770
 e73e:  0d 1d 01                STORE           G0d,#01
 e741:  b3 ...                  PRINT_RET       "Oh dear. Like Mad Isaac before
you, you have spontaneously combusted!"
 e770:  c1 8f 31 00 3a 00 24    JE              G21,#003a [FALSE] e799
 e777:  da 1f 97 a4 06          CALL_2N         25e90 (#06)
 e77c:  b3 ...                  PRINT_RET       "You don't really want to
vapourise Austin."
 e799:  c1 8f 31 01 e9 00 ba    JE              G21,#01e9 [FALSE] e858
 e7a0:  ca 1f 01 b0 08 00 10    TEST_ATTR       "adamantine skull",#08 [FALSE]
e7b5
 e7a7:  ca 1f 01 92 08 00 09    TEST_ATTR       "adamantine heart",#08 [FALSE]
e7b5
 e7ae:  ca 1f 01 f0 08 80 2d    TEST_ATTR       "adamantine hand",#08 [TRUE]
e7e0
 e7b5:  b3 ...                  PRINT_RET       "The bones jerk and rattle, but
seem unable to come together into life."
 e7e0:  89 01 e9                REMOVE_OBJ      "adamantine statue"
 e7e3:  ce 0f 01 ea 01 e8       INSERT_OBJ      "adamantine knight","West Side
Chapel"
 e7e9:  da 1f 9d bb 2a          CALL_2N         276ec (#2a)
 e7ee:  cd 4f 5d 01 ea          STORE           G4d,#01ea
 e7f3:  b3 ...                  PRINT_RET       "The adamantine knight leaps
up, invigorated by the fire in his skeletal eyes, a new spark in his belly!  He
bows gravely, in the elaborate style of a mime artist."
 e858:  c1 8f 31 01 ea 00 13    JE              G21,#01ea [FALSE] e870
 e85f:  b3 ...                  PRINT_RET       "Adamantine is fireproof."
 e870:  c1 8f 31 01 3f 00 29    JE              G21,#013f [FALSE] e89e
 e877:  b3 ...                  PRINT_RET       "The wood seems to have been
treated somehow, and is fireproof."
 e89e:  4a 31 00 00 43          TEST_ATTR       G21,#00 [FALSE] e8e4
 e8a3:  b3 ...                  PRINT_RET       "For heaven's sake, you're only
looking for an out-of-date map. Murder does seem a little extreme."
 e8e4:  c1 8f 31 00 e7 00 f8    JE              G21,#00e7 [FALSE] e9e1
 e8eb:  ca 1f 00 e7 0e 00 29    TEST_ATTR       "wall of thorns",#0e [FALSE]
e919
 e8f2:  b3 ...                  PRINT_RET       "The wall wriggles in
discomfort to avoid further devastation."
 e919:  cb 1f 00 e7 0e          SET_ATTR        "wall of thorns",#0e
 e91e:  b3 ...                  PRINT_RET       "Fire leaps out from the rod
into the heart of the thorn wall, which screams out as it burns, revealing a
great hole through the wild flames. You catch a tantalising glimpse of a great
Temple, before the wall heals back. But it is unable to recover entirely, and a
charred gap is left to the south. You could probably squeeze through it."
 e9e1:  c1 8f 31 00 37 00 3d    JE              G21,#0037 [FALSE] ea23
 e9e8:  b2 ...                  PRINT           "The melting point of this
glass is very high, and amazingly it withstands the bolt of fire.
"
 ea1f:  8f aa 21                CALL_1N         2a884
 ea22:  b1                      RFALSE
 ea23:  c1 83 31 00 cd 00 ce 00 20
                               JE              G21,#00cd,#00ce [FALSE] ea4a
 ea2c:  0d 1d 01                STORE           G0d,#01
 ea2f:  b3 ...                  PRINT_RET       "(Perhaps predictably) the bomb
explodes!"
 ea4a:  4a 31 11 80 07          TEST_ATTR       G21,#11 [TRUE] ea54
 ea4f:  4a 31 13 00 26          TEST_ATTR       G21,#13 [FALSE] ea78
 ea54:  0d 1d 01                STORE           G0d,#01
 ea57:  b3 ...                  PRINT_RET       "You start a great
conflagration, and then perish in it!"
 ea78:  a9 31                   REMOVE_OBJ      G21
 ea7a:  b2 ...                  PRINT           "A bolt of fire leaps from the
rod and consumes "
 ea95:  da 2f 38 4e 31          CALL_2N         e138 (G21)
 ea9a:  b3 ...                  PRINT_RET       " utterly!"

Routine eaa4, 0 locals

 eaa5:  61 31 19 00 13          JE              G21,G09 [FALSE] eabb
 eaaa:  b3 ...                  PRINT_RET       "You feel a sudden chill."
 eabb:  4a 31 00 00 23          TEST_ATTR       G21,#00 [FALSE] eae1
 eac0:  b2 ...                  PRINT           "For a fleeting moment, "
 ead1:  da 2f 38 4e 31          CALL_2N         e138 (G21)
 ead6:  b3 ...                  PRINT_RET       " freezes up."
 eae1:  4a 31 1d 00 6a          TEST_ATTR       G21,#1d [FALSE] eb4e
 eae6:  4a 31 08 00 11          TEST_ATTR       G21,#08 [FALSE] eafa
 eaeb:  b3 ...                  PRINT_RET       "It's already cold."
 eafa:  4b 31 08                SET_ATTR        G21,#08
 eafd:  b3 ...                  PRINT_RET       "There is an enormous hissing
of steam, creating wildly swirling mists, after whose parting an apparently
cool rod is left behind."
 eb4e:  b3 ...                  PRINT_RET       "Nothing obvious happens."

Routine eb60, 2 locals

 eb61:  61 31 19 80 13          JE              G21,G09 [TRUE] eb77
 eb66:  b3 ...                  PRINT_RET       "Nothing obvious happens."
 eb77:  c1 8f 11 01 8a 00 78    JE              G01,#018a [FALSE] ebf4
 eb7e:  ce 2f 01 89 19          INSERT_OBJ      "glowing golden orb",G09
 eb83:  b2 ...                  PRINT           "Although nothing seems to
happen to you, the whole golden sphere gracefully contracts, pulling itself
tight until it sits comfortably in the palm of your hand. You blink.
"
 ebe8:  2d 11 99                STORE           G01,G89
 ebeb:  6e 19 9a                INSERT_OBJ      G09,G8a
 ebee:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 ebf3:  b0                      RTRUE
 ebf4:  8f 6c ff                CALL_1N         1b3fc
 ebf7:  b2 ...                  PRINT           "You are engulfed in a cloud of
spinning white lights, like insects. When the swarm clears, you find yourself
transported...
"
 ec44:  41 8c 07 00 0c          JE              G7c,#07 [FALSE] ec53
 ec49:  cd 4f 02 00 8a          STORE           L01,#008a
 ec4e:  99 1b                   REMOVE_OBJ      "Returning"
 ec50:  8c 00 31                JUMP            ec82
 ec53:  e7 7f 04 01             RANDOM          #04 -> L00
 ec57:  41 8e 01 00 05          JE              G7e,#01 [FALSE] ec5f
 ec5c:  0d 01 01                STORE           L00,#01
 ec5f:  cd 4f 02 00 23          STORE           L01,#0023
 ec64:  41 01 02 00 07          JE              L00,#02 [FALSE] ec6e
 ec69:  cd 4f 02 00 2f          STORE           L01,#002f
 ec6e:  41 01 03 00 07          JE              L00,#03 [FALSE] ec78
 ec73:  cd 4f 02 00 67          STORE           L01,#0067
 ec78:  41 01 04 00 07          JE              L00,#04 [FALSE] ec82
 ec7d:  cd 4f 02 00 39          STORE           L01,#0039
 ec82:  da 2f 9d 20 02          CALL_2N         27480 (L01)
 ec87:  b0                      RTRUE

Routine ec88, 0 locals

 ec89:  61 31 19 00 29          JE              G21,G09 [FALSE] ecb5
 ec8e:  b3 ...                  PRINT_RET       "You feel suddenly obedient,
and briefly fancy a dog biscuit."
 ecb5:  c1 8f 31 00 3a 00 2d    JE              G21,#003a [FALSE] ece7
 ecbc:  b3 ...                  PRINT_RET       "Alas, Austin is far, far too
undomesticated. It has no effect."
 ece7:  c1 8f 31 01 41 00 35    JE              G21,#0141 [FALSE] ed21
 ecee:  b3 ...                  PRINT_RET       "Guided by some animal sixth
sense, the squirrel gracefully jumps out of the way."
 ed21:  c1 8f 31 00 df 80 13    JE              G21,#00df [TRUE] ed39
 ed28:  b3 ...                  PRINT_RET       "Nothing obvious happens."
 ed39:  cb 1f 00 df 08          SET_ATTR        "herd of goats",#08
 ed3e:  da 1f 97 a4 18          CALL_2N         25e90 (#18)
 ed43:  b3 ...                  PRINT_RET       "The goats suddenly look up at
you with awe, although they resume their former interest in eating the grass
quite quickly."

Routine ed8c, 0 locals

 ed8d:  61 31 19 00 21          JE              G21,G09 [FALSE] edb1
 ed92:  b3 ...                  PRINT_RET       "You acquire a sudden sun tan,
but it soon fades."
 edb1:  c1 8f 31 00 3a 00 21    JE              G21,#003a [FALSE] edd7
 edb8:  b3 ...                  PRINT_RET       "Austin is already ginger,
which is near enough."
 edd7:  c1 8f 31 01 ea 00 2d    JE              G21,#01ea [FALSE] ee09
 edde:  b3 ...                  PRINT_RET       "He shrugs it off. (Isn't
adamantine impressive enough for you?)"
 ee09:  c1 8f 31 01 82 00 2a    JE              G21,#0182 [FALSE] ee38
 ee10:  cb 1f 01 82 0e          SET_ATTR        "metal wall",#0e
 ee15:  b3 ...                  PRINT_RET       "At once, the bronze polishes
up to the shine of a mirror."
 ee38:  c1 8f 31 01 79 80 13    JE              G21,#0179 [TRUE] ee50
 ee3f:  b3 ...                  PRINT_RET       "Nothing obvious happens."
 ee50:  ca 1f 01 79 0e 00 13    TEST_ATTR       "bronze mural",#0e [FALSE] ee68
 ee57:  b3 ...                  PRINT_RET       "Nothing further happens."
 ee68:  cb 1f 01 79 0e          SET_ATTR        "bronze mural",#0e
 ee6d:  b3 ...                  PRINT_RET       "With an awful heaving,
wrenching noise, the mural slides a little sideways, opening up a murky
downward passage which can't have been used for centuries."

Routine eed0, 0 locals

 eed1:  61 31 19 00 5c          JE              G21,G09 [FALSE] ef30
 eed6:  ca 1f 01 87 0d 00 27    TEST_ATTR       "big electrician's switch",#0d
[FALSE] ef02
 eedd:  b3 ...                  PRINT_RET       "You feel no different. Perhaps
there's no such thing as luck."
 ef02:  4b 30 08                SET_ATTR        G20,#08
 ef05:  b3 ...                  PRINT_RET       "You feel optimistic and lucky.
Mind you, you feel that most times."
 ef30:  c1 8f 31 00 3a 00 1b    JE              G21,#003a [FALSE] ef50
 ef37:  b3 ...                  PRINT_RET       "Austin is already too lucky by
half."
 ef50:  c1 8f 31 01 ea 00 29    JE              G21,#01ea [FALSE] ef7e
 ef57:  b3 ...                  PRINT_RET       "Reassembled after all these
years... how lucky can you get?"
 ef7e:  c1 8f 31 01 be 00 1c    JE              G21,#01be [FALSE] ef9f
 ef85:  cb 1f 01 be 24          SET_ATTR        "gambling sailor",#24
 ef8a:  b3 ...                  PRINT_RET       "The sailor shudders suddenly."
 ef9f:  c1 8f 31 01 bf 00 22    JE              G21,#01bf [FALSE] efc6
 efa6:  cb 1f 01 bf 24          SET_ATTR        "inscribed die",#24
 efab:  b3 ...                  PRINT_RET       "The die rattles a little, then
settles."
 efc6:  b3 ...                  PRINT_RET       "Nothing obvious happens."

Routine efd8, 0 locals

 efd9:  c1 8f 31 00 df 00 bf    JE              G21,#00df [FALSE] f09d
 efe0:  ca 1f 00 df 08 80 27    TEST_ATTR       "herd of goats",#08 [TRUE] f00c
 efe7:  b3 ...                  PRINT_RET       "The goats mill around too much
to aim at one accurately."
 f00c:  b3 ...                  PRINT_RET       "Still obedient to your intent,
the goats part so that one stands alone. Using this Rod, you vapourise it
instantaneously, and the rest contentedly return.

Do you think there might be a moral to draw here about the use, and abuse, of
power?"
 f09d:  c1 8f 31 00 3a 00 24    JE              G21,#003a [FALSE] f0c6
 f0a4:  da 1f 97 a4 06          CALL_2N         25e90 (#06)
 f0a9:  b3 ...                  PRINT_RET       "You don't really want to
sacrifice Austin."
 f0c6:  c1 8f 31 01 ea 00 1d    JE              G21,#01ea [FALSE] f0e8
 f0cd:  b3 ...                  PRINT_RET       "Would be a shame, after all
that surgery."
 f0e8:  4a 31 0c 00 33          TEST_ATTR       G21,#0c [FALSE] f11e
 f0ed:  a9 31                   REMOVE_OBJ      G21
 f0ef:  b2 ...                  PRINT           "You decide you can manage
without "
 f104:  da 2f 38 4e 31          CALL_2N         e138 (G21)
 f109:  b3 ...                  PRINT_RET       ", which you annihilate with
the Rod."
 f11e:  c1 8f 11 01 8a 01 85    JE              G01,#018a [FALSE] f2a8
 f125:  c1 8f 31 01 8b 01 7e    JE              G21,#018b [FALSE] f2a8
 f12c:  ca 1f 01 8a 08 80 ac    TEST_ATTR       "Inside the Orb",#08 [TRUE]
f1dd
 f133:  0d 1d 09                STORE           G0d,#09
 f136:  b3 ...                  PRINT_RET       "The Black pieces make a rash
break out of their defences, sacrificing a piece in vain and going down to a
rapid defeat as a result.

The White Queen rises from the board, an avenging angel's smile on her face,
and swings a broadsword of burning light across your body..."
 f1dd:  ce 2f 01 89 19          INSERT_OBJ      "glowing golden orb",G09
 f1e2:  cb 1f 01 89 08          SET_ATTR        "glowing golden orb",#08
 f1e7:  da 1f 9d bb 11          CALL_2N         276ec (#11)
 f1ec:  e3 13 01 89 12 b7 24    PUT_PROP        "glowing golden orb",#12,S043
 f1f3:  b2 ...                  PRINT           "The White pieces advance:
first a bishop, then a knight is sacrificed, clearing away the wall of pawns
which surround the Black king so that a dazzling checkmate can be executed!

You fade out of the orb as oddly as you came, struck by the way it now almost
pulsates in your palm.
"
 f29c:  6e 19 9a                INSERT_OBJ      G09,G8a
 f29f:  2d 11 99                STORE           G01,G89
 f2a2:  da 1f 36 0d 29          CALL_2N         d834 (#29)
 f2a7:  b0                      RTRUE
 f2a8:  61 31 19 00 76          JE              G21,G09 [FALSE] f321
 f2ad:  0d 1d 01                STORE           G0d,#01
 f2b0:  b3 ...                  PRINT_RET       "You feel a noble surge of
pride as your body is incinerated by the Rod. At least you died for some
terribly important cause, although exactly what it was seems to have slipped
your mind."
 f321:  b3 ...                  PRINT_RET       "Nothing obvious happens."

Routine f334, 0 locals

 f335:  61 31 19 00 2c          JE              G21,G09 [FALSE] f364
 f33a:  0d 8f 01                STORE           G7f,#01
 f33d:  b3 ...                  PRINT_RET       "Nothing obvious happens. You
curse eloquently in Celtic."
 f364:  c1 8f 31 00 af 00 7d    JE              G21,#00af [FALSE] f3e6
 f36b:  b3 ...                  PRINT_RET       "Nice idea. Now the
kiosk-keeper also knows a smattering of Celtic. Unfortunately his national
pride is too strong. You'll have to try something else - you have carte blanche
to solve this problem."
 f3e6:  b3 ...                  PRINT_RET       "Nothing obvious happens."

Routine f3f8, 0 locals

 f3f9:  c1 8f 31 01 ea 00 1f    JE              G21,#01ea [FALSE] f41d
 f400:  b3 ...                  PRINT_RET       "The knight jumps on the spot
(landing loudly)."
 f41d:  c1 8f 31 01 18 00 3e    JE              G21,#0118 [FALSE] f460
 f424:  e3 13 01 18 11 b7 2f    PUT_PROP        "potted shrub",#11,S044
 f42b:  b3 ...                  PRINT_RET       "The shrub bursts into bloom,
flowering all over in dozens of delicate red moons."
 f460:  c1 8f 31 01 2f 00 29    JE              G21,#012f [FALSE] f48e
 f467:  b3 ...                  PRINT_RET       "The marble jerks, as if
straining to grow, but falls back dead."
 f48e:  c1 8f 31 00 e1 00 98    JE              G21,#00e1 [FALSE] f52b
 f495:  83 00 e2 00             GET_PARENT      "fig" -> -(SP)
 f499:  41 00 00 80 27          JE              (SP)+,#00 [TRUE] f4c3
 f49e:  b3 ...                  PRINT_RET       "The tree tried hard, but in
the end it couldn't give a fig."
 f4c3:  ce 2f 00 e2 19          INSERT_OBJ      "fig",G09
 f4c8:  b3 ...                  PRINT_RET       "The tree strains especially
hard, and manages to produce another fig, which ripens and falls... you jump
forward and catch the fruit just before it would splatter to earth."
 f52b:  61 31 19 00 4b          JE              G21,G09 [FALSE] f579
 f530:  b3 ...                  PRINT_RET       "Your hair stands momentarily
on end, as if it wants to stalk up out of your head, but happily it decides
against."
 f579:  c1 8f 31 01 1c 00 30    JE              G21,#011c [FALSE] f5ae
 f580:  c1 8f 11 01 1b 00 29    JE              G01,#011b [FALSE] f5ae
 f587:  b3 ...                  PRINT_RET       "The tree shakes and shivers,
but thankfully remains intact."
 f5ae:  c1 8f 31 00 e7 00 61    JE              G21,#00e7 [FALSE] f614
 f5b5:  b3 ...                  PRINT_RET       "Whoosh!

The thorn wall grows another twenty feet high, then collapses in on itself,
settling back like a beast. It is thicker and nastier than ever."
 f614:  c1 8f 31 01 25 80 13    JE              G21,#0125 [TRUE] f62c
 f61b:  b3 ...                  PRINT_RET       "Nothing obvious happens."
 f62c:  ca 1f 01 25 0e 00 13    TEST_ATTR       "runner-bean plant",#0e [FALSE]
f644
 f633:  b3 ...                  PRINT_RET       "Nothing further happens."
 f644:  cb 1f 01 25 0e          SET_ATTR        "runner-bean plant",#0e
 f649:  b2 ...                  PRINT           "
Warning: something extremely cliched is about to happen. When you think you
have composed yourself and can stand it, press ENTER. "
 f69c:  e5 7f 3e                PRINT_CHAR      '>'
 f69f:  e2 17 5d d5 01 00       STOREB          #5dd5,#01,#00
 f6a5:  8f b5 55                CALL_1N         2d554
 f6a8:  e4 0f 5d d5 5e 4e ff    READ            #5dd5,#5e4e -> Gef
 f6af:  bb                      NEW_LINE
 f6b0:  b3 ...                  PRINT_RET       "Suddenly an enormous beanstalk
sprouts out of the ground, exactly as per fairy tale, reaching up high into the
sky!  You yawn convulsively."

Routine f708, 1 local

 f709:  c1 8f 31 01 ea 00 2f    JE              G21,#01ea [FALSE] f73d
 f710:  b3 ...                  PRINT_RET       "Oh, the knight has been nearer
the infinite than you could ever take him."
 f73d:  61 31 19 00 1f          JE              G21,G09 [FALSE] f75f
 f742:  b3 ...                  PRINT_RET       "You acquire no especial sense
of the infinite."
 f75f:  c1 8f 11 00 8a 00 09    JE              G01,#008a [FALSE] f76d
 f766:  c1 8f 31 00 8c 80 13    JE              G21,#008c [TRUE] f77e
 f76d:  b3 ...                  PRINT_RET       "Nothing obvious happens."
 f77e:  d1 1f 00 8b 17 01       GET_PROP        "circular arc",#17 -> L00
 f784:  da 1f 97 a4 1e          CALL_2N         25e90 (#1e)
 f789:  42 01 09 00 5f          JL              L00,#09 [FALSE] f7eb
 f78e:  b3 ...                  PRINT_RET       "You feel the air charge with
excitement, and the symbol glows fiercely gold for a moment, but then the power
drains away into one of the empty sockets in the arc."
 f7eb:  4a 30 08 00 15          TEST_ATTR       G20,#08 [FALSE] f803
 f7f0:  b3 ...                  PRINT_RET       "Nothing happens this time."
 f803:  b2 ...                  PRINT           "The air charges with
excitement, and the symbol glows fiercely gold, then begins to spin, faster and
faster into a pearly golden light with bathes you with the flow of pure magic.
"
 f86a:  ca 1f 00 8d 08 80 37    TEST_ATTR       "spherical opening",#08 [TRUE]
f8a6
 f871:  b3 ...                  PRINT_RET       "But it is still too weak!  You
half-hear, half-imagine a whisper of druids..."
 f8a6:  b2 ...                  PRINT           "Everything becomes a daze and
then you find yourself...
"
 f8cb:  4b 30 08                SET_ATTR        G20,#08
 f8ce:  8f 3e 35                CALL_1N         f8d4
 f8d1:  b0                      RTRUE

Routine f8d4, 2 locals

 f8d5:  0d 8c 07                STORE           G7c,#07
 f8d8:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] f8dc
 f8dc:  cc 1f 00 73 1a          CLEAR_ATTR      "daisy chain",#1a
 f8e1:  41 01 00 80 14          JE              L00,#00 [TRUE] f8f8
 f8e6:  a1 01 02 c2             GET_SIBLING     L00 -> L01 [TRUE] f8ea
 f8ea:  4c 01 1a                CLEAR_ATTR      L00,#1a
 f8ed:  ce 8f 01 00 8a          INSERT_OBJ      L00,"Infinity Symbol"
 f8f2:  2d 01 02                STORE           L00,L01
 f8f5:  8c ff eb                JUMP            f8e1
 f8f8:  ce 2f 01 49 19          INSERT_OBJ      "historical pamphlet",G09
 f8fd:  da 0f 9d 20 01 47       CALL_2N         27480 (#0147)
 f903:  b0                      RTRUE

Routine f904, 3 locals

 f905:  c1 8f 3a 01 03 01 be    JE              G2a,#0103 [FALSE] fac8
 f90c:  0d 03 01                STORE           L02,#01
 f90f:  c6 0f 00 53 00 96 00 09 JIN             "painting of Mad Isaac
Meldrewe","White Hallway" [FALSE] f91e
 f917:  ca 1f 00 53 0c 00 05    TEST_ATTR       "painting of Mad Isaac
Meldrewe",#0c [FALSE] f921
 f91e:  0d 03 00                STORE           L02,#00
 f921:  c1 8f 2f 00 53 00 34    JE              G1f,#0053 [FALSE] f95a
 f928:  41 03 00 00 2f          JE              L02,#00 [FALSE] f95a
 f92d:  b3 ...                  PRINT_RET       "A breeze ripples the canvas of
the unanchored painting, but that's all."
 f95a:  41 2a 75 80 05          JE              G1a,#75 [TRUE] f962
 f95f:  8c 01 6f                JUMP            facf
 f962:  0d 01 00                STORE           L00,#00
 f965:  c1 8f 11 01 03 00 05    JE              G01,#0103 [FALSE] f96f
 f96c:  0d 01 01                STORE           L00,#01
 f96f:  c1 8f 11 01 20 00 05    JE              G01,#0120 [FALSE] f979
 f976:  0d 01 02                STORE           L00,#02
 f979:  c1 8f 11 01 78 00 05    JE              G01,#0178 [FALSE] f983
 f980:  0d 01 03                STORE           L00,#03
 f983:  c1 8f 11 00 9d 00 05    JE              G01,#009d [FALSE] f98d
 f98a:  0d 01 04                STORE           L00,#04
 f98d:  c1 8f 11 00 b9 00 05    JE              G01,#00b9 [FALSE] f997
 f994:  0d 01 05                STORE           L00,#05
 f997:  c1 8f 11 01 9b 00 05    JE              G01,#019b [FALSE] f9a1
 f99e:  0d 01 06                STORE           L00,#06
 f9a1:  c1 8f 11 00 96 00 05    JE              G01,#0096 [FALSE] f9ab
 f9a8:  0d 01 07                STORE           L00,#07
 f9ab:  41 01 00 00 05          JE              L00,#00 [FALSE] f9b3
 f9b0:  8c 01 1e                JUMP            facf
 f9b3:  ca 1f 00 b0 0c 00 3f    TEST_ATTR       "tourist map of Paris",#0c
[FALSE] f9f7
 f9ba:  b3 ...                  PRINT_RET       "Nothing happens!  Already the
druids' magic fades from the earth, and you cannot help feeling saddened."
 f9f7:  cd 4f 02 01 f6          STORE           L01,#01f6
 f9fc:  4a 02 18 00 0e          TEST_ATTR       L01,#18 [FALSE] fa0d
 fa01:  c1 8f 02 00 96 00 5d    JE              L01,#0096 [FALSE] fa63
 fa08:  41 03 00 00 58          JE              L02,#00 [FALSE] fa63
 fa0d:  e8 bf 01                PUSH            L00
 fa10:  95 01                   INC             L00
 fa12:  41 00 08 00 05          JE              (SP)+,#08 [FALSE] fa1a
 fa17:  0d 01 01                STORE           L00,#01
 fa1a:  41 01 01 00 07          JE              L00,#01 [FALSE] fa24
 fa1f:  cd 4f 02 01 03          STORE           L01,#0103
 fa24:  41 01 02 00 07          JE              L00,#02 [FALSE] fa2e
 fa29:  cd 4f 02 01 20          STORE           L01,#0120
 fa2e:  41 01 03 00 07          JE              L00,#03 [FALSE] fa38
 fa33:  cd 4f 02 01 78          STORE           L01,#0178
 fa38:  41 01 04 00 07          JE              L00,#04 [FALSE] fa42
 fa3d:  cd 4f 02 00 9d          STORE           L01,#009d
 fa42:  41 01 05 00 07          JE              L00,#05 [FALSE] fa4c
 fa47:  cd 4f 02 00 b9          STORE           L01,#00b9
 fa4c:  41 01 06 00 07          JE              L00,#06 [FALSE] fa56
 fa51:  cd 4f 02 01 9b          STORE           L01,#019b
 fa56:  41 01 07 00 07          JE              L00,#07 [FALSE] fa60
 fa5b:  cd 4f 02 00 96          STORE           L01,#0096
 fa60:  8c ff 9b                JUMP            f9fc
 fa63:  61 02 11 00 2d          JE              L01,G01 [FALSE] fa93
 fa68:  b3 ...                  PRINT_RET       "A swirl of wind almost bowls
you over, but nothing else happens."
 fa93:  b2 ...                  PRINT           "A swirl of wind snakes out
from "
 faa8:  da 2f 38 4e 2f          CALL_2N         e138 (G1f)
 faad:  b2 ...                  PRINT           " and whisks you away to...
"
 fac2:  da 2f 9d 20 02          CALL_2N         27480 (L01)
 fac7:  b0                      RTRUE
 fac8:  c1 97 3a 46 44 00 19    JE              G2a,#46,#44 [FALSE] fae6
 facf:  b3 ...                  PRINT_RET       "There is, unsurprisingly, no
reply."
 fae6:  b1                      RFALSE

Routine fae8, 0 locals

 fae9:  41 3a 2a 00 25          JE              G2a,#2a [FALSE] fb11
 faee:  51 2f 05 00             GET_PROP        G1f,#05 -> -(SP)
 faf2:  41 00 00 80 1b          JE              (SP)+,#00 [TRUE] fb10
 faf7:  b2 ...                  PRINT           "A beautifully realistic
picture. "
 fb10:  b1                      RFALSE
 fb11:  b1                      RFALSE

Routine fb14, 2 locals

 fb15:  c1 8f 57 01 04 00 05    JE              G47,#0104 [FALSE] fb1f
 fb1c:  8b ff fe                RET             #fffe
 fb1f:  01 01 01 00 2d          JE              #01,#01 [FALSE] fb4f
 fb24:  88 33 bc 02             CALL_1S         cef0 -> L01
 fb28:  e0 2b 33 84 2f 02 00    CALL_VS         ce10 (G1f,L01) -> -(SP)
 fb2f:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] fb39
 fb34:  95 01                   INC             L00
 fb36:  8c 00 15                JUMP            fb4c
 fb39:  c1 8f 02 79 71 00 0c    JE              L01,"cards" [FALSE] fb4a
 fb40:  cd 4f 57 01 05          STORE           G47,#0105
 fb45:  95 01                   INC             L00
 fb47:  8c 00 04                JUMP            fb4c
 fb4a:  ab 01                   RET             L00
 fb4c:  8c ff d2                JUMP            fb1f
 fb4f:  b1                      RFALSE

Routine fb50, 0 locals

 fb51:  4a 86 1e 00 3a          TEST_ATTR       G76,#1e [FALSE] fb8e
 fb56:  c9 8f 84 10 00 00       AND             G74,#1000 -> -(SP)
 fb5c:  41 00 00 00 2f          JE              (SP)+,#00 [FALSE] fb8e
 fb61:  d4 0f 10 00 00 08 00    ADD             #1000,#0008 -> -(SP)
 fb68:  68 84 00 84             OR              G74,(SP)+ -> G74
 fb6c:  c9 8f 84 00 02 00       AND             G74,#0002 -> -(SP)
 fb72:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] fb7d
 fb77:  d5 8f 84 00 02 84       SUB             G74,#0002 -> G74
 fb7d:  c9 8f 84 00 01 00       AND             G74,#0001 -> -(SP)
 fb83:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] fb8e
 fb88:  d5 8f 84 00 01 84       SUB             G74,#0001 -> G74
 fb8e:  b1                      RFALSE

Routine fb90, 0 locals

 fb91:  88 33 bc 00             CALL_1S         cef0 -> -(SP)
 fb95:  c1 80 00 78 12 a0 41 9e 5b 00 09
                               JE              (SP)+,"books","volumes","tomes"
[FALSE] fba7
 fba0:  cd 4f 57 01 05          STORE           G47,#0105
 fba5:  9b 01                   RET             #01
 fba7:  96 42                   DEC             G32
 fba9:  8b ff ff                RET             #ffff

Routine fbac, 0 locals

 fbad:  c1 8f 3a 01 01 00 49    JE              G2a,#0101 [FALSE] fbfb
 fbb4:  a2 2f 00 c2             GET_CHILD       G1f -> -(SP) [TRUE] fbb8
 fbb8:  41 00 00 80 17          JE              (SP)+,#00 [TRUE] fbd2
 fbbd:  b3 ...                  PRINT_RET       "There's a battery in already."
 fbd2:  4a 30 1f 80 25          TEST_ATTR       G20,#1f [TRUE] fbfa
 fbd7:  b3 ...                  PRINT_RET       "Not surprisingly, it won't fit
in the battery compartment."
 fbfa:  b1                      RFALSE
 fbfb:  c1 97 3a 40 31 00 1d    JE              G2a,#40,#31 [FALSE] fc1d
 fc02:  b3 ...                  PRINT_RET       "There's no switch, just a
battery compartment."
 fc1d:  b1                      RFALSE

Routine fc20, 2 locals

 fc21:  41 3a 2e 00 44          JE              G2a,#2e [FALSE] fc68
 fc26:  4a 2f 09 00 26          TEST_ATTR       G1f,#09 [FALSE] fc4f
 fc2b:  4c 2f 09                CLEAR_ATTR      G1f,#09
 fc2e:  b3 ...                  PRINT_RET       "The torch goes out as you open
the battery compartment."
 fc4f:  b3 ...                  PRINT_RET       "You open the battery
compartment of the torch."
 fc68:  41 3a 30 01 85          JE              G2a,#30 [FALSE] fdf0
 fc6d:  b2 ...                  PRINT           "You close the battery
compartment of the torch"
 fc86:  a2 2f 01 c2             GET_CHILD       G1f -> L00 [TRUE] fc8a
 fc8a:  c1 8f 01 00 69 00 f3    JE              L00,#0069 [FALSE] fd82
 fc91:  41 8c 01 00 ad          JE              G7c,#01 [FALSE] fd41
 fc96:  0d 1d 03                STORE           G0d,#03
 fc99:  b3 ...                  PRINT_RET       ", and it explodes with light,
becomes hot enough to melt, falls to the floor, catches fire and burns down
most of the attic...

It may be some consolation that since you spend your holiday in the local
hospital burns unit, you are never inconvenienced much by not finding the map."
 fd3e:  8c 00 43                JUMP            fd82
 fd41:  99 20                   REMOVE_OBJ      "electric torch"
 fd43:  b3 ...                  PRINT_RET       ", and it explodes with light,
becomes hot enough to melt, falls from your grasp and perishes away to
nothing."
 fd82:  c1 8f 01 00 4c 00 07    JE              L00,#004c [FALSE] fd8e
 fd89:  da 1f 9d bb 01          CALL_2N         276ec (#01)
 fd8e:  c1 83 01 00 21 00 4c 00 58
                               JE              L00,#0021,#004c [FALSE] fded
 fd97:  51 01 17 02             GET_PROP        L00,#17 -> L01
 fd9b:  41 02 00 00 25          JE              L01,#00 [FALSE] fdc3
 fda0:  b3 ...                  PRINT_RET       ", but the battery must be dead
because nothing happens."
 fdc3:  4b 2f 09                SET_ATTR        G1f,#09
 fdc6:  43 02 05 00 13          JG              L01,#05 [FALSE] fddc
 fdcb:  b3 ...                  PRINT_RET       ", and it lights up brightly."
 fddc:  b3 ...                  PRINT_RET       ", and it lights up feebly."
 fded:  b3 ...                  PRINT_RET       "."
 fdf0:  b1                      RFALSE

Routine fdf4, 2 locals

 fdf5:  4a 2f 0d 80 03          TEST_ATTR       G1f,#0d [TRUE] fdfb
 fdfa:  b1                      RFALSE
 fdfb:  a2 2f 01 c2             GET_CHILD       G1f -> L00 [TRUE] fdff
 fdff:  41 01 00 00 03          JE              L00,#00 [FALSE] fe05
 fe04:  b1                      RFALSE
 fe05:  51 01 17 00             GET_PROP        L00,#17 -> -(SP)
 fe09:  55 00 01 02             SUB             (SP)+,#01 -> L01
 fe0d:  42 02 c8 00 07          JL              L01,#c8 [FALSE] fe17
 fe12:  e3 9b 01 17 02          PUT_PROP        L00,#17,L01
 fe17:  41 02 02 00 19          JE              L01,#02 [FALSE] fe33
 fe1c:  b2 ...                  PRINT           "
The torch flickers ominously.
"
 fe33:  41 02 00 00 1d          JE              L01,#00 [FALSE] fe53
 fe38:  b2 ...                  PRINT           "
The torch finally dies out.
"
 fe4b:  0c 20 09                CLEAR_ATTR      "electric torch",#09
 fe4e:  da 1f 97 a4 08          CALL_2N         25e90 (#08)
 fe53:  b1                      RFALSE

Routine fe54, 0 locals

 fe55:  41 3a 48 00 08          JE              G2a,#48 [FALSE] fe60
 fe5a:  da 1f 9d bb 16          CALL_2N         276ec (#16)
 fe5f:  b1                      RFALSE
 fe60:  b1                      RFALSE

Routine fe64, 0 locals

 fe65:  41 3a 2c 00 37          JE              G2a,#2c [FALSE] fe9f
 fe6a:  ca 1f 00 27 02 80 03    TEST_ATTR       "antique jewellery box",#02
[TRUE] fe72
 fe71:  b1                      RFALSE
 fe72:  cc 1f 00 27 02          CLEAR_ATTR      "antique jewellery box",#02
 fe77:  ce 1f 00 27 23          INSERT_OBJ      "antique jewellery box","Attic"
 fe7c:  b3 ...                  PRINT_RET       "You discover a lady's
jewellery box under the trapdoor!"
 fe9f:  b1                      RFALSE

Routine fea0, 0 locals

 fea1:  41 3a 2e 00 06          JE              G2a,#2e [FALSE] feaa
 fea6:  4b 2f 09                SET_ATTR        G1f,#09
 fea9:  b1                      RFALSE
 feaa:  41 3a 30 00 74          JE              G2a,#30 [FALSE] ff21
 feaf:  4c 2f 09                CLEAR_ATTR      G1f,#09
 feb2:  ca 1f 00 27 02 00 3f    TEST_ATTR       "antique jewellery box",#02
[FALSE] fef6
 feb9:  cc 1f 00 27 02          CLEAR_ATTR      "antique jewellery box",#02
 febe:  ce 1f 00 27 23          INSERT_OBJ      "antique jewellery box","Attic"
 fec3:  b3 ...                  PRINT_RET       "You close the trapdoor,
surprised to see that something shiny was obscured by it."
 fef6:  b3 ...                  PRINT_RET       "You close the trapdoor once
more. No more jewellery boxes though."
 ff21:  b1                      RFALSE

Routine ff24, 0 locals

 ff25:  41 3a 2b 00 75          JE              G2a,#2b [FALSE] ff9d
 ff2a:  b2 ...                  PRINT           "That was the first place you
tried, hours and hours ago now"
 ff4d:  ca 1f 00 26 02 00 48    TEST_ATTR       "History of the Meldrews (vol.
II)",#02 [FALSE] ff9a
 ff54:  b2 ...                  PRINT           ", and there's nothing there
but that boring old book. You pick it up anyway, bored as you are"
 ff8b:  da 1f 97 a4 21          CALL_2N         25e90 (#21)
 ff90:  cc 1f 00 26 02          CLEAR_ATTR      "History of the Meldrews (vol.
II)",#02
 ff95:  ce 2f 00 26 19          INSERT_OBJ      "History of the Meldrews (vol.
II)",G09
 ff9a:  b3 ...                  PRINT_RET       "."
 ff9d:  b1                      RFALSE

Routine ffa0, 1 local

 ffa1:  41 3a 2d 0f 05          JE              G2a,#2d [FALSE] 10ea9
 ffa6:  2d 42 3b                STORE           G32,G2b
 ffa9:  88 33 bc 01             CALL_1S         cef0 -> L00
 ffad:  c1 80 01 8a d8 98 df 86 c4 00 06
                               JE              L00,"mad","sir","honourabl"
[FALSE] ffbc
 ffb8:  88 33 bc 01             CALL_1S         cef0 -> L00
 ffbc:  2d ff 01                STORE           Gef,L00
 ffbf:  c1 80 ff 8b b0 8d 3c 97 9b 00 2a
                               JE              Gef,"me","myself","self" [FALSE]
fff2
 ffca:  da 1f 97 a4 30          CALL_2N         25e90 (#30)
 ffcf:  b3 ...                  PRINT_RET       "Perhaps you may one day earn a
place in vol. III."
 fff2:  c1 8f ff 90 db 00 2f    JE              Gef,"peter" [FALSE] 10026
 fff9:  b3 ...                  PRINT_RET       "Modestly, the author (died
1940 or so?) missed himself out."
10026:  c1 8f ff 88 47 00 1b    JE              Gef,"jemima" [FALSE] 10046
1002d:  b3 ...                  PRINT_RET       "She's far too recent to be
included."
10046:  c1 8f ff 88 1a 01 97    JE              Gef,"isaac" [FALSE] 101e2
1004d:  b3 ...                  PRINT_RET       "Mad Isaac (1705-1792) went in
for mystic experiments of all kinds, and was a noted antiquarian. He believed
that the Meldrew family had an ancestral curse, dooming each member to
undertake a futile quest. The only way to break the curse, he thought, was for
one of them to actually succeed... unfortunately he died in peculiar
circumstances before finding out how.

Then again, he also believed that King Arthur's wizard Merlin was buried not in
a Tintagel cave, as is usually claimed, but somewhere in the back garden (near
where the motorway is now), and that the moon is a giant pair of black and
white discs towed through the night sky by a team of angels."
101e2:  c1 8f ff 7f 86 00 ed    JE              Gef,"ebenezer" [FALSE] 102d4
101e9:  b3 ...                  PRINT_RET       "It seems Ebenezer (1846-1908),
the younger of a pair of twins, threw up a promising career in the East India
Company one day, took a packet steamer to Cape Colony and simply marched off
into the bush on a quest to find a legendary river. His maps were used for
several years after, and a province was named after him for a while, but the
locals call it something else now."
102d4:  c1 8f ff 95 49 01 1b    JE              Gef,"roger" [FALSE] 103f4
102db:  b3 ...                  PRINT_RET       "Roger (1846-1913), the elder
of a pair of twins, was very Victorian indeed, especially in his disapproval of
his beautiful young wife's literary career. He thought her romances so immoral
that he refused to allow the family name to appear on them. A prominent local
vestryman, his own writing was confined to a great many monographs on the
problems of municipal drainage, but he died before his grand National Sewerage
Plan was complete."
103f4:  c1 83 ff 79 44 a1 73 00 b3
                               JE              Gef,"capabilit","willard"
[FALSE] 104ae
103fd:  b3 ...                  PRINT_RET       ""Capability" Meldrew
(1761-1817) became a mildly celebrated landscape gardener, starting a brief
fashion for crypts and memorials as garden ornaments (he claimed it was closer
to nature). Very little of his work now survives. His real name, incidentally,
was Willard."
104ae:  c1 8f ff 85 e3 01 83    JE              Gef,"henri" [FALSE] 10636
104b5:  b3 ...                  PRINT_RET       "Very little is known about
Henri, who lived at some time in the fifteenth century. As a young man he
fought at Agincourt, and seems to have been some kind of combat engineer. The
story goes that he acquired his nickname, The Black Post, from a joke made by
the King when he was standing up to his waist in a ditch. He must have been
proud of it because his coat of arms bears his name written down the left hand
side, and Black Post down the right.

In his later years he became morbidly possessed, and (according to legend)
spent his declining years working on his own tomb, which he insisted would be
of celestial importance."
10636:  c1 8f ff 85 b6 00 d1    JE              Gef,"helene" [FALSE] 1070c
1063d:  b3 ...                  PRINT_RET       "Helene Meldrew (1902-) is a
noted painter and sculptress. Her relations with the family were broken off in
the 20s when she married Anton and ran off to Paris to study art, but she has
recently returned to the House, in search (as she puts it) of "the perfect
blue, the blue of the sky, the blue of water". We wish her well."
1070c:  c1 83 ff 75 0c 99 b7 00 cf
                               JE              Gef,"anton","smyslov" [FALSE]
107e2
10715:  b3 ...                  PRINT_RET       "Anton Smyslov shouldn't really
be in the book, even if he did marry Helene, but there is a brief passage,
since he was so famous - he was a chess grandmaster, and won the Paris Open
five years running in the 1930s. His speciality was bold sacrificial attacks,
but he was also notorious for eating blueberry yoghurt at the board."
107e2:  c1 8f ff 74 58 01 4f    JE              Gef,"alison" [FALSE] 10936
107e9:  b3 ...                  PRINT_RET       "Under the pseudonym Marie
Swelldon, your ancestress Alison (1871-1930) wrote several mildly successful
romances. She obsessively collected lucky charms, and advertised in newspapers
for double-headed coins and the like (although she never traced a rumoured find
of a five-leafed clover, somewhere in County Donegal).

In order to write in tranquillity and to avoid her husband, it was she who
installed the fake wall at the far south end of the attic east wing, and each
afternoon she would sneak upstairs to push it aside."
10936:  c1 8f ff 88 6b 02 58    JE              Gef,"joshua" [FALSE] 10b93
1093d:  b2 ...                  PRINT           "Oh dear, the deeply
regrettable Sir Joshua Meldrewe (1710-1776). Member of the Dilletanti Society
and the Hell-Fire Club, and a politician (chancellor of the exchequer 1762-3;
"probably the least competent minister ever to hold that office" - Oxford
History of England, vol. xii).

"
10a04:  b3 ...                  PRINT_RET       "His father disinherited him
for wildly excessive living (he almost invariably wore jewelled buttons worth
at least a thousand pounds) and for marrying a lady of easy virtue while on the
run from a prison in France, where he was sentenced to be beheaded. In order to
stop his sister getting the fortune, he went back to Italy and advertised for a
pregnant bride to provide a male heir. This nefarious plot was foiled when he
choked to death on a chicken-bone.

It is said that he stole the money anyway near the end, and certainly some gold
went missing. (He also managed to get the family stripped of its baronetcy by
cheating at piquet with the Prince of Wales.)"
10b93:  c1 8f ff 85 53 01 2b    JE              Gef,"hartley" [FALSE] 10cc3
10b9a:  b3 ...                  PRINT_RET       "Your distant great-uncle
Hartley was a tiresomely enthusiastic amateur Egyptologist who, every
Christmas, used to sit you on his knee and drone on about trenches and writings
and the fellaheen. It was all a bit of a fraud, you now discover, since he only
actually went to Egypt once - there was such a scandal about his refusal to
donate his best find to the British Museum that he was never allowed to
excavate again, though he spent years writing in vain to the Egyptian
government."
10cc3:  c1 8f ff 83 91 00 63    JE              Gef,"gerard" [FALSE] 10d2b
10cca:  b3 ...                  PRINT_RET       "Roger's eldest son Gerard
(1898-1916) was killed in the Battle of the Somme. His mother, "Marie
Swelldon", gave up writing afterwards."
10d2b:  c1 8f ff 76 1a 00 25    JE              Gef,"austin" [FALSE] 10d55
10d32:  b3 ...                  PRINT_RET       "Austin's quite venerable for a
cat, but not that old."
10d55:  c1 8f ff 9e 40 01 09    JE              Gef,"tobias" [FALSE] 10e63
10d5c:  b3 ...                  PRINT_RET       "Tobias Meldrew (1801-1870) was
Professor of Theology at Christminster, 1850-66. He set himself the task of
proving the existence of God from first principles, a task which he announced
in 1860 that he had accomplished with the aid of ten thousand intermediate
lemmas. The derision which greeted his attempts to publish the mammoth work
eventually drove him insane, and he spent the last four years of his life in
the madhouse."
10e63:  b3 ...                  PRINT_RET       "Annoyingly there's no index
(there was going to be a consolidated one in vol. I) and you can't find what
you want."
10ea8:  b1                      RFALSE
10ea9:  b1                      RFALSE

Routine 10eac, 0 locals

10ead:  c6 2f 00 b0 19 80 11    JIN             "tourist map of Paris",G09
[TRUE] 10ec3
10eb4:  c6 0f 00 b0 00 4f 00 bb JIN             "tourist map of Paris","canvas
rucksack" [FALSE] 10f75
10ebc:  c6 2f 00 4f 19 00 b4    JIN             "canvas rucksack",G09 [FALSE]
10f75
10ec3:  0d 1d 02                STORE           G0d,#02
10ec6:  b3 ...                  PRINT_RET       "You have succeeded in shaking
off the Curse of the Meldrews: for the first time in sixty generations, a
Meldrew has found the useless object he was doomed to seek!  Unfortunately on
the way to the airport you realise that you left the map on the kitchen table
in all the rush, but never mind, you're on holiday now."
10f75:  0d 1d 03                STORE           G0d,#03
10f78:  b3 ...                  PRINT_RET       "Yes, probably just as well to
give up looking, and heaven knows there's enough packing to do, what with the
rest of the family in uproar. Oh well."

Routine 10fd4, 0 locals

10fd5:  41 3a 49 00 f4          JE              G2a,#49 [FALSE] 110cc
10fda:  ca 1f 01 f6 02 80 2b    TEST_ATTR       "carbolic soap",#02 [TRUE]
1100a
10fe1:  b3 ...                  PRINT_RET       "Racked with guilt over your
bad language, you are unable to nod off."
1100a:  c6 8f 19 00 2c 80 03    JIN             G09,"camp bed" [TRUE] 11012
11011:  b1                      RFALSE
11012:  c6 2f 00 3a 11 00 4b    JIN             "Austin",G01 [FALSE] 11062
11019:  b3 ...                  PRINT_RET       "Austin leaps up onto the bed,
jumps around for a bit, and then falls back onto the floor. You are unable to
get any sleep."
11062:  ca 1f 00 2c 08 00 17    TEST_ATTR       "camp bed",#08 [FALSE] 1107e
11069:  b3 ...                  PRINT_RET       "You doze awhile, but that's
all."
1107e:  cb 1f 00 2c 08          SET_ATTR        "camp bed",#08
11083:  b2 ...                  PRINT           "You sleep unexpectedly deeply,
but just as you think you are starting to wake up, you experience a sudden...
"
110c8:  8f 79 e9                CALL_1N         1e7a4
110cb:  b0                      RTRUE
110cc:  b1                      RFALSE

Routine 110d0, 1 local

110d1:  41 3a 2d 08 37          JE              G2a,#2d [FALSE] 1190b
110d6:  2d 42 3b                STORE           G32,G2b
110d9:  88 33 bc 01             CALL_1S         cef0 -> L00
110dd:  ca 1f 00 f0 08 00 52    TEST_ATTR       "Homer",#08 [FALSE] 11134
110e4:  d1 1f 00 f0 17 00       GET_PROP        "Homer",#17 -> -(SP)
110ea:  42 00 03 00 47          JL              (SP)+,#03 [FALSE] 11134
110ef:  c6 2f 00 f0 11 00 40    JIN             "Homer",G01 [FALSE] 11134
110f6:  8f 6a 7d                CALL_1N         1a9f4
110f9:  b2 ...                  PRINT           ""Well, if you're going to
cheat, forget it," says Homer loudly as he falls asleep.

"
11134:  c1 8f 01 83 01 00 33    JE              L00,"galita" [FALSE] 1116c
1113b:  b3 ...                  PRINT_RET       "Minor deity of tombs,
reincarnated from a fly who flew into setting amber."
1116c:  c1 8f 01 8b ef 00 25    JE              L00,"menelaus" [FALSE] 11196
11173:  b3 ...                  PRINT_RET       "General in Trojan War, and
brother of Agamemnon."
11196:  c1 8f 01 74 22 00 25    JE              L00,"agamemnon" [FALSE] 111c0
1119d:  b3 ...                  PRINT_RET       "General in Trojan War, and
brother of Menelaus."
111c0:  c1 8f 01 75 6f 00 0f    JE              L00,"ares" [FALSE] 111d4
111c7:  b3 ...                  PRINT_RET       "Greek god of war."
111d4:  c1 8f 01 7a 6d 00 1d    JE              L00,"chlamys" [FALSE] 111f6
111db:  b3 ...                  PRINT_RET       "An emperor's (rectangular)
cloak."
111f6:  c1 8f 01 87 1e 00 0f    JE              L00,"husbandry" [FALSE] 1120a
111fd:  b3 ...                  PRINT_RET       "Not this dictionary!"
1120a:  c1 8f 01 84 cc 00 13    JE              L00,"hades" [FALSE] 11222
11211:  b3 ...                  PRINT_RET       "Underworld of spirits."
11222:  c1 8f 01 73 e3 00 19    JE              L00,"adamantin" [FALSE] 11240
11229:  b3 ...                  PRINT_RET       "Hardest stone known to the
ancients."
11240:  c1 83 01 87 66 8e bf 00 0f
                               JE              L00,"iliad","odyssey" [FALSE]
11256
11249:  b3 ...                  PRINT_RET       "Epic by Homer."
11256:  c1 8f 01 85 bf 00 1d    JE              L00,"helicon" [FALSE] 11278
1125d:  b3 ...                  PRINT_RET       "Mythical mountain of poets and
muses."
11278:  c1 8f 01 85 ec 00 21    JE              L00,"hephaestu" [FALSE] 1129e
1127f:  b3 ...                  PRINT_RET       "Greek god of blacksmiths and
master of metals."
1129e:  c1 8f 01 90 15 00 31    JE              L00,"pan" [FALSE] 112d4
112a5:  b3 ...                  PRINT_RET       "Greek god of pastures and
shepherds; player of the syrinx, or pipes."
112d4:  c1 8f 01 7d 73 00 15    JE              L00,"demeter" [FALSE] 112ee
112db:  b3 ...                  PRINT_RET       "Greek goddess of plenty."
112ee:  c1 8f 01 92 28 00 19    JE              L00,"poseidon" [FALSE] 1130c
112f5:  b3 ...                  PRINT_RET       "Greek god of the sea, and of
horses."
1130c:  c1 83 01 75 39 8a ab 00 1b
                               JE              L00,"apollo","loxias" [FALSE]
1132e
11315:  b3 ...                  PRINT_RET       "Greek god of words, music and
poetry."
1132e:  c1 8f 01 a2 ff 00 13    JE              L00,"zeus" [FALSE] 11346
11335:  b3 ...                  PRINT_RET       "Greek ruler of the gods."
11346:  c1 8f 01 89 b8 00 31    JE              L00,"leda" [FALSE] 1137c
1134d:  b3 ...                  PRINT_RET       "Mortal woman seduced by Zeus,
who appeared to her in the form of a swan."
1137c:  c1 8f 01 85 fe 00 13    JE              L00,"hera" [FALSE] 11394
11383:  b3 ...                  PRINT_RET       "Jealous wife of Zeus."
11394:  c1 8f 01 75 30 00 15    JE              L00,"aphrodite" [FALSE] 113ae
1139b:  b3 ...                  PRINT_RET       "Greek goddess of beauty."
113ae:  c1 8f 01 75 e4 00 15    JE              L00,"athene" [FALSE] 113c8
113b5:  b3 ...                  PRINT_RET       "Greek goddess of wisdom."
113c8:  c1 8f 01 7e 0c 00 29    JE              L00,"diana" [FALSE] 113f6
113cf:  b3 ...                  PRINT_RET       "Goddess of hunting, the
underworld (with Pluto) and the moon."
113f6:  c1 8f 01 97 92 00 1d    JE              L00,"selenae" [FALSE] 11418
113fd:  b3 ...                  PRINT_RET       "Mythical island mountain home
of Diana."
11418:  c1 8f 01 9a 23 00 45    JE              L00,"sosostris" [FALSE] 11462
1141f:  b3 ...                  PRINT_RET       "Mythical pharoah of Egypt,
after whom a curious cult rose: sometimes confused with Alexander the Great."
11462:  c1 8f 01 91 ce 00 2b    JE              L00,"pluto" [FALSE] 11492
11469:  b3 ...                  PRINT_RET       "Canine Walt Disney character,
after whom the planet is named."
11492:  c1 8f 01 7e 42 00 19    JE              L00,"dionysus" [FALSE] 114b0
11499:  b3 ...                  PRINT_RET       "Greek god of wine, and
revelry."
114b0:  c1 80 01 82 e6 7c b6 80 5e 00 4f
                               JE
L00,"furies","curses","eumenides" [FALSE] 11508
114bb:  b3 ...                  PRINT_RET       "Eternally pursuing Greek
goddesses, they enforced divine rules by punishing the families of miscreants
through all time."
11508:  c1 8f 01 8f 07 00 2d    JE              L00,"omphalos" [FALSE] 1153a
1150f:  b3 ...                  PRINT_RET       "Fabled to be the stone at the
centre (literally "navel") of the world."
1153a:  c1 83 01 8f 46 93 7e 00 49
                               JE              L00,"oracle","pythian" [FALSE]
1158a
11543:  b3 ...                  PRINT_RET       "Priestess of Apollo: her
predictions were legendary for their accuracy, and also their difficulty to
interpret."
1158a:  c1 8f 01 90 ed 00 39    JE              L00,"pharos" [FALSE] 115c8
11591:  b3 ...                  PRINT_RET       "Lighthouse-tower. The great
one at Alexandria was one of the Seven Wonders of the World."
115c8:  c1 8f 01 73 fe 00 2b    JE              L00,"aeschylus" [FALSE] 115f8
115cf:  b3 ...                  PRINT_RET       "The first great tragic
playwright (525 - c.456 BC)."
115f8:  c1 8f 01 88 fb 00 49    JE              L00,"kraken" [FALSE] 11646
115ff:  b3 ...                  PRINT_RET       "Legendary sea-monster of
Poseidon (though the word derives from the Norwegian - not a lot of people know
that)."
11646:  c1 8f 01 74 bb 00 39    JE              L00,"andromeda" [FALSE] 11684
1164d:  b3 ...                  PRINT_RET       "Maiden sacrificed to a
sea-monster, according to myth eventually saved by Perseus."
11684:  c1 8f 01 90 c0 00 19    JE              L00,"perseus" [FALSE] 116a2
1168b:  b3 ...                  PRINT_RET       "Greek hero and slayer of
monsters."
116a2:  c1 8f 01 9c 90 00 15    JE              L00,"syrinx" [FALSE] 116bc
116a9:  b3 ...                  PRINT_RET       "Pan-pipes: reed-cut."
116bc:  c1 8f 01 86 bb 00 63    JE              L00,"homer" [FALSE] 11724
116c3:  b3 ...                  PRINT_RET       "Earliest poet of the Greek
tradition, legendarily blind: nothing is known about him, except that he
(supposedly) wrote the "Iliad" and the "Odyssey"."
11724:  c1 83 01 7f b3 80 3a 00 6d
                               JE              L00,"ekmek","eraina" [FALSE]
11798
1172d:  b3 ...                  PRINT_RET       "The Ekmek Special is a
delicacy still served to this day by the Eraina Taverna, Free School Lane,
Cambridge, England. Much prized by itinerant mathematicians."
11798:  c1 8f 01 79 05 00 3f    JE              L00,"callimach" [FALSE] 117dc
1179f:  b3 ...                  PRINT_RET       "Cataloguer of the Alexandrian
library: most famous of all the wittily brief epigrammatic poets."
117dc:  c1 8f 01 75 42 00 25    JE              L00,"apolloniu" [FALSE] 11806
117e3:  b3 ...                  PRINT_RET       "Librarian, mathematician, epic
poet, politician."
11806:  c1 8f 01 75 b7 00 1f    JE              L00,"arthur" [FALSE] 1182a
1180d:  b3 ...                  PRINT_RET       "Half-mythical High King of the
Britons."
1182a:  c1 83 01 8c 01 8c 0a 00 23
                               JE              L00,"merlin","merlyn" [FALSE]
11854
11833:  b3 ...                  PRINT_RET       "Half-mythical wizard to the
court of King Arthur."
11854:  c1 8f 01 74 4f 00 27    JE              L00,"alexandri" [FALSE] 11880
1185b:  b3 ...                  PRINT_RET       "City on the Nile Delta founded
by Alexander the Great."
11880:  c1 8f 01 74 46 00 27    JE              L00,"alexander" [FALSE] 118ac
11887:  b3 ...                  PRINT_RET       "Macedonian who conquered the
known world in his twenties."
118ac:  c1 8f 01 93 12 00 2f    JE              L00,"ptolemy" [FALSE] 118e0
118b3:  b3 ...                  PRINT_RET       "General of Alexander the
Great, governed and later inherited Egypt."
118e0:  c1 83 01 8e b6 9f 60 00 11
                               JE              L00,"odysseus","ulysses" [FALSE]
118f8
118e9:  b3 ...                  PRINT_RET       "Wasn't he a sailor?"
118f8:  b3 ...                  PRINT_RET       "Sorry, there's nothing on
that."
1190b:  b1                      RFALSE

Routine 1190c, 0 locals

1190d:  41 3a 50 03 00          JE              G2a,#50 [FALSE] 11c10
11912:  ca 1f 00 56 1a 00 11    TEST_ATTR       "gas mask",#1a [FALSE] 11928
11919:  b3 ...                  PRINT_RET       "With the gas mask on?"
11928:  b2 ...                  PRINT           "Fweep!  Fweep!
"
11937:  c6 2f 00 3a 11 00 23    JIN             "Austin",G01 [FALSE] 1195f
1193e:  b2 ...                  PRINT           "
Austin is startled, but too lazy to look up.
"
1195f:  c1 8f 11 01 39 00 2d    JE              G01,#0139 [FALSE] 11991
11966:  b3 ...                  PRINT_RET       "
The sparrows swoop down and around you, but rapidly lose interest."
11991:  c1 8f 11 01 3b 01 1d    JE              G01,#013b [FALSE] 11ab3
11998:  ca 1f 01 3a 08 00 17    TEST_ATTR       "flock of sparrows",#08 [FALSE]
119b4
1199f:  b3 ...                  PRINT_RET       "
But the sparrows cannot hear."
119b4:  ca 1f 01 3d 0c 00 1b    TEST_ATTR       "gold watch on a chain",#0c
[FALSE] 119d4
119bb:  b3 ...                  PRINT_RET       "
But the sparrows are wise to that one."
119d4:  cb 1f 01 3d 0c          SET_ATTR        "gold watch on a chain",#0c
119d9:  cb 1f 01 3a 08          SET_ATTR        "flock of sparrows",#08
119de:  89 01 41                REMOVE_OBJ      "irate squirrel friend"
119e1:  da 1f 9d bb 1d          CALL_2N         276ec (#1d)
119e6:  b3 ...                  PRINT_RET       "
The sparrows swoop down onto the roof, battering against the glass. In the
process the gold watch comes loose, and falls to the ground with a
disconcerting thud.

It just misses the squirrel, who bolts away, startled.

The sudden motion once more disturbs the flighty sparrows, who take to the
skies. You feel rather deserted all of a sudden."
11ab3:  c1 83 11 00 dd 00 fe 00 3d
                               JE              G01,#00dd,#00fe [FALSE] 11af7
11abc:  b3 ...                  PRINT_RET       "
The sacred falcon of Apollo wheels high in the sky over the cave mouth, but
then flies away."
11af7:  c1 8f 11 01 96 00 83    JE              G01,#0196 [FALSE] 11b7f
11afe:  c6 1f 01 98 00 00 7c    JIN             "unexciting tombstone",#00
[FALSE] 11b7f
11b05:  ce 0f 01 99 01 96       INSERT_OBJ      "cloak of many
colours","Necropolis"
11b0b:  ce 0f 01 98 01 96       INSERT_OBJ      "unexciting
tombstone","Necropolis"
11b11:  e3 13 01 96 0e 01 98    PUT_PROP        "Necropolis",#0e,#0198
11b18:  b3 ...                  PRINT_RET       "
The birds of prey swoop, startled, down to an unexciting tombstone which you
hadn't noticed before; but after a moment they relax and slip away into the
darkness."
11b7f:  c1 8f 11 01 d9 00 8b    JE              G01,#01d9 [FALSE] 11c0f
11b86:  c6 0f 01 dc 01 d9 00 83 JIN             "corn crake","Hollow" [FALSE]
11c0f
11b8e:  b3 ...                  PRINT_RET       "Although seemingly
distractable, the corn crake must be stone deaf. (You vaguely recall reading
somewhere that corn crakes are the noisiest birds in Ireland, famous for
keeping farm-hands awake at night.)"
11c0f:  b0                      RTRUE
11c10:  b1                      RFALSE

Routine 11c14, 0 locals

11c15:  41 3a 2e 00 3a          JE              G2a,#2e [FALSE] 11c52
11c1a:  99 33                   REMOVE_OBJ      "gift-wrapped parcel"
11c1c:  ce 2f 00 36 19          INSERT_OBJ      "postcard of the
Champs-Elysees",G09
11c21:  ce 2f 00 34 19          INSERT_OBJ      "box of chocolates",G09
11c26:  ce 2f 00 35 11          INSERT_OBJ      "wrapping paper with reindeer
on",G01
11c2b:  b3 ...                  PRINT_RET       "You tear open the parcel to
find a box of chocolates and a card."
11c52:  b1                      RFALSE

Routine 11c54, 0 locals

11c55:  41 3a 2a 00 8f          JE              G2a,#2a [FALSE] 11ce7
11c5a:  c1 8f 11 00 3b 00 88    JE              G01,#003b [FALSE] 11ce7
11c61:  ca 1f 00 3b 09 00 81    TEST_ATTR       "Dark Room",#09 [FALSE] 11ce7
11c68:  da 1f 9d bb 00          CALL_2N         276ec (#00)
11c6d:  da 1f 97 a4 1f          CALL_2N         25e90 (#1f)
11c72:  b3 ...                  PRINT_RET       "
No... wait. The eerie lamp-light is bringing out a message in invisible ink:

   Hamburg 1420

   Ticket 7.-

The seven is crossed through in continental fashion."
11ce7:  b1                      RFALSE

Routine 11ce8, 0 locals

11ce9:  4a 2f 0b 80 16          TEST_ATTR       G1f,#0b [TRUE] 11d02
11cee:  b2 ...                  PRINT           "cracked medicine bottle"
11cff:  8c 00 2d                JUMP            11d2d
11d02:  b2 ...                  PRINT           "guaranteed-unbreakable
medicine bottle with a child-proof lock"
11d2d:  b0                      RTRUE

Routine 11d30, 0 locals

11d31:  41 3a 42 00 53          JE              G2a,#42 [FALSE] 11d87
11d36:  b3 ...                  PRINT_RET       "You become extremely violent
in your attempt, but the glass resists all attacks. Whatever would it take to
break the dratted thing?"
11d87:  41 3a 2e 00 8f          JE              G2a,#2e [FALSE] 11e19
11d8c:  4a 2f 0b 80 03          TEST_ATTR       G1f,#0b [TRUE] 11d92
11d91:  b1                      RFALSE
11d92:  b3 ...                  PRINT_RET       "You try absolutely everything.
Pushing the top down, turning it, pulling it, putting it on the floor and
jumping up and down on it, everything. It is resolutely adult-proof. Whatever
would it take to break the dratted thing?"
11e19:  c1 8f 3a 01 01 00 2e    JE              G2a,#0101 [FALSE] 11e4c
11e20:  4a 2f 0e 00 28          TEST_ATTR       G1f,#0e [FALSE] 11e4b
11e25:  c1 8f 30 00 38 80 21    JE              G20,#0038 [TRUE] 11e4b
11e2c:  b3 ...                  PRINT_RET       "The neck is too narrow to fit
anything but the pill."
11e4b:  b1                      RFALSE
11e4c:  b1                      RFALSE

Routine 11e50, 0 locals

11e51:  41 3a 48 00 21          JE              G2a,#48 [FALSE] 11e75
11e56:  4c 19 08                CLEAR_ATTR      G09,#08
11e59:  0d 9c 01                STORE           G8c,#01
11e5c:  b3 ...                  PRINT_RET       "It tastes alarmingly of
chocolate."
11e75:  b1                      RFALSE

Routine 11e78, 0 locals

11e79:  c6 2f 00 3a 2f 00 08    JIN             "Austin",G1f [FALSE] 11e86
11e80:  da 0f 37 47 00 3a       CALL_2N         dd1c (#003a)
11e86:  b1                      RFALSE

Routine 11e88, 0 locals

11e89:  c1 95 3a 5a 59 4d 00 1f JE              G2a,#5a,#59,#4d [FALSE] 11eae
11e91:  b3 ...                  PRINT_RET       "Austin curls about your foot
implacably."
11eae:  41 3a 13 00 27          JE              G2a,#13 [FALSE] 11ed8
11eb3:  b3 ...                  PRINT_RET       "Austin sidles out of reach
resentfully, then belches."
11ed8:  41 3a 3c 00 21          JE              G2a,#3c [FALSE] 11efc
11edd:  b3 ...                  PRINT_RET       "Austin hisses and will not be
pulled by the tail."
11efc:  41 3a 3d 00 21          JE              G2a,#3d [FALSE] 11f20
11f01:  b3 ...                  PRINT_RET       "Perhaps you should say which
way to push Austin."
11f20:  41 3a 3e 00 bb          JE              G2a,#3e [FALSE] 11fde
11f25:  41 11 23 00 0d          JE              G01,#23 [FALSE] 11f35
11f2a:  c1 95 2c 02 04 03 00 05 JE              G1c,#02,#04,#03 [FALSE] 11f35
11f32:  8c 00 a4                JUMP            11fd7
11f35:  c1 8f 11 00 67 00 0c    JE              G01,#0067 [FALSE] 11f46
11f3c:  c1 97 2c 05 03 00 05    JE              G1c,#05,#03 [FALSE] 11f46
11f43:  8c 00 93                JUMP            11fd7
11f46:  c1 8f 11 00 6b 00 0c    JE              G01,#006b [FALSE] 11f57
11f4d:  c1 97 2c 05 04 00 05    JE              G1c,#05,#04 [FALSE] 11f57
11f54:  8c 00 82                JUMP            11fd7
11f57:  41 11 2f 00 0c          JE              G01,#2f [FALSE] 11f66
11f5c:  c1 97 2c 02 07 00 05    JE              G1c,#02,#07 [FALSE] 11f66
11f63:  8c 00 73                JUMP            11fd7
11f66:  41 11 2a 00 0a          JE              G01,#2a [FALSE] 11f73
11f6b:  41 2c 05 00 05          JE              G1c,#05 [FALSE] 11f73
11f70:  8c 00 66                JUMP            11fd7
11f73:  41 11 39 00 0d          JE              G01,#39 [FALSE] 11f83
11f78:  c1 95 2c 08 03 05 00 05 JE              G1c,#08,#03,#05 [FALSE] 11f83
11f80:  8c 00 56                JUMP            11fd7
11f83:  c1 93 11 39 00 3b 00 0a JE              G01,#39,#003b [FALSE] 11f93
11f8b:  41 2c 04 00 05          JE              G1c,#04 [FALSE] 11f93
11f90:  8c 00 46                JUMP            11fd7
11f93:  c1 8f 11 00 4a 00 0a    JE              G01,#004a [FALSE] 11fa2
11f9a:  41 2c 05 00 05          JE              G1c,#05 [FALSE] 11fa2
11f9f:  8c 00 37                JUMP            11fd7
11fa2:  c1 8f 11 00 40 00 0c    JE              G01,#0040 [FALSE] 11fb3
11fa9:  c1 97 2c 02 03 00 05    JE              G1c,#02,#03 [FALSE] 11fb3
11fb0:  8c 00 26                JUMP            11fd7
11fb3:  c1 8f 11 00 47 00 0a    JE              G01,#0047 [FALSE] 11fc2
11fba:  41 2c 02 00 05          JE              G1c,#02 [FALSE] 11fc2
11fbf:  8c 00 17                JUMP            11fd7
11fc2:  b3 ...                  PRINT_RET       "Austin refuses to go that
way."
11fd7:  8f a2 33                CALL_1N         288cc
11fda:  4b 2f 0c                SET_ATTR        G1f,#0c
11fdd:  b0                      RTRUE
11fde:  b1                      RFALSE

Routine 11fe0, 0 locals

11fe1:  41 3a 3e 00 1b          JE              G2a,#3e [FALSE] 11fff
11fe6:  b3 ...                  PRINT_RET       "Austin reluctantly accompanies
you."
11fff:  b1                      RFALSE

Routine 12000, 0 locals

12001:  41 3a 42 00 43          JE              G2a,#42 [FALSE] 12047
12006:  b3 ...                  PRINT_RET       "It is so pathetically easy to
kick Austin that you never quite have the heart. Thus he outwits you again."
12047:  c1 87 3a 01 03 44 00 19 JE              G2a,#0103,#44 [FALSE] 12066
1204f:  b3 ...                  PRINT_RET       "I can see you've never had a
cat."
12066:  41 3a 46 00 21          JE              G2a,#46 [FALSE] 1208a
1206b:  b3 ...                  PRINT_RET       "Austin belches splendidly by
way of reply."
1208a:  41 3a 54 00 23          JE              G2a,#54 [FALSE] 120b0
1208f:  b3 ...                  PRINT_RET       "Austin (just) tolerates this
show of affection."
120b0:  c1 97 3a 22 24 00 9b    JE              G2a,#22,#24 [FALSE] 12150
120b7:  c1 8f 30 00 7a 00 32    JE              G20,#007a [FALSE] 120ee
120be:  8f aa 21                CALL_1N         2a884
120c1:  b3 ...                  PRINT_RET       "Some cats do like the smell of
chicken bones, but Austin doesn't."
120ee:  c1 8f 30 00 83 00 22    JE              G20,#0083 [FALSE] 12115
120f5:  ce 2f 00 83 11          INSERT_OBJ      "robot mouse",G01
120fa:  b3 ...                  PRINT_RET       "Austin claws it to the ground,
captiously."
12115:  4a 30 05 00 1d          TEST_ATTR       G20,#05 [FALSE] 12135
1211a:  b3 ...                  PRINT_RET       "For once, Austin is not really
hungry."
12135:  b2 ...                  PRINT           "Austin is unimpressed with "
12148:  da 2f 38 4e 30          CALL_2N         e138 (G20)
1214d:  b3 ...                  PRINT_RET       "."
12150:  b1                      RFALSE

Routine 12154, 1 local

12155:  4a 2f 0c 00 06          TEST_ATTR       G1f,#0c [FALSE] 1215e
1215a:  4c 2f 0c                CLEAR_ATTR      G1f,#0c
1215d:  b1                      RFALSE
1215e:  c1 97 8c 01 0b 80 03    JE              G7c,#01,#0b [TRUE] 12166
12165:  b1                      RFALSE
12166:  41 8c 0b 00 86          JE              G7c,#0b [FALSE] 121ef
1216b:  26 3a 11 80 03          JIN             "Austin",G01 [TRUE] 12171
12170:  b1                      RFALSE
12171:  b2 ...                  PRINT           "
Austin "
1217a:  e7 7f 06 01             RANDOM          #06 -> L00
1217e:  41 01 01 00 0d          JE              L00,#01 [FALSE] 1218e
12183:  b2 ...                  PRINT           "preens himself"
1218e:  41 01 02 00 09          JE              L00,#02 [FALSE] 1219a
12193:  b2 ...                  PRINT           "wriggles"
1219a:  41 01 03 00 0b          JE              L00,#03 [FALSE] 121a8
1219f:  b2 ...                  PRINT           "springs about"
121a8:  41 01 04 00 07          JE              L00,#04 [FALSE] 121b2
121ad:  b2 ...                  PRINT           "frisks"
121b2:  41 01 05 00 07          JE              L00,#05 [FALSE] 121bc
121b7:  b2 ...                  PRINT           "purrs"
121bc:  41 01 06 00 07          JE              L00,#06 [FALSE] 121c6
121c1:  b2 ...                  PRINT           "hisses"
121c6:  e7 7f 03 01             RANDOM          #03 -> L00
121ca:  41 01 01 00 0b          JE              L00,#01 [FALSE] 121d8
121cf:  b3 ...                  PRINT_RET       " contentedly."
121d8:  41 01 02 00 09          JE              L00,#02 [FALSE] 121e4
121dd:  b3 ...                  PRINT_RET       " happily."
121e4:  b3 ...                  PRINT_RET       " cheerfully."
121ef:  da 1f 48 7e 00          CALL_2N         121f8 (#00)
121f4:  b1                      RFALSE

Routine 121f8, 4 locals

121f9:  93 3a 02                GET_PARENT      "Austin" -> L01
121fc:  cd 4f 04 ff ff          STORE           L03,#ffff
12201:  41 01 01 00 08          JE              L00,#01 [FALSE] 1220c
12206:  2d 02 11                STORE           L01,G01
12209:  8c 02 9f                JUMP            124a9
1220c:  c1 8f 02 00 70 00 ac    JE              L01,#0070 [FALSE] 122bd
12213:  ce 4f 3a 00 6b          INSERT_OBJ      "Austin","Aunt Jemima's Lair"
12218:  c1 8f 11 00 70 00 47    JE              G01,#0070 [FALSE] 12264
1221f:  b3 ...                  PRINT_RET       "
Jemima catches sight of Austin, and without warning jumps on the spot,
startling him. He springs away, hissing."
12264:  c1 8f 11 00 6b 00 53    JE              G01,#006b [FALSE] 122bc
1226b:  b3 ...                  PRINT_RET       "
Austin springs in from the potting room like a scalded cat, but hastily
rearranges himself to his usual "cool slob" demeanour."
122bc:  b1                      RFALSE
122bd:  e7 7f 0a 03             RANDOM          #0a -> L02
122c1:  43 03 08 00 05          JG              L02,#08 [FALSE] 122c9
122c6:  8c 01 49                JUMP            12410
122c9:  61 02 11 80 03          JE              L01,G01 [TRUE] 122cf
122ce:  b1                      RFALSE
122cf:  c6 2f 00 83 11 00 4d    JIN             "robot mouse",G01 [FALSE] 12321
122d6:  b3 ...                  PRINT_RET       "
Austin plays with the robot mouse, kicking it wildly across the floorboards. It
beeps piteously, hoping to be rescued."
12321:  c1 8f 11 00 4a 00 3a    JE              G01,#004a [FALSE] 12360
12328:  e7 7f 02 00             RANDOM          #02 -> -(SP)
1232c:  41 00 01 00 31          JE              (SP)+,#01 [FALSE] 12360
12331:  b3 ...                  PRINT_RET       "
Austin scuffles with the insulation rolls, as if trying to bury something."
12360:  c1 8f 11 00 3b 00 36    JE              G01,#003b [FALSE] 1239b
12367:  e7 7f 02 00             RANDOM          #02 -> -(SP)
1236b:  41 00 01 00 2d          JE              (SP)+,#01 [FALSE] 1239b
12370:  b3 ...                  PRINT_RET       "
Austin jumps up at the cord, but falls back down again, growling."
1239b:  41 03 01 00 0f          JE              L02,#01 [FALSE] 123ad
123a0:  b3 ...                  PRINT_RET       "
Austin yawns."
123ad:  41 03 02 00 21          JE              L02,#02 [FALSE] 123d1
123b2:  b3 ...                  PRINT_RET       "
Austin rolls over on his back and stretches."
123d1:  41 03 03 00 19          JE              L02,#03 [FALSE] 123ed
123d6:  b3 ...                  PRINT_RET       "
Austin looks ineffable again."
123ed:  41 03 04 00 1f          JE              L02,#04 [FALSE] 1240f
123f2:  b3 ...                  PRINT_RET       "
Austin purrs and licks one of his paws."
1240f:  b1                      RFALSE
12410:  41 02 29 00 2c          JE              L01,#29 [FALSE] 1243f
12415:  0a 24 0e 80 27          TEST_ATTR       "hinged trapdoor",#0e [TRUE]
1243f
1241a:  41 11 23 00 21          JE              G01,#23 [FALSE] 1243e
1241f:  b3 ...                  PRINT_RET       "
There is a faint scratching noise at the trapdoor."
1243e:  b1                      RFALSE
1243f:  41 02 29 00 2d          JE              L01,#29 [FALSE] 1246f
12444:  0e 3a 23                INSERT_OBJ      "Austin","Attic"
12447:  41 11 23 00 25          JE              G01,#23 [FALSE] 1246f
1244c:  b3 ...                  PRINT_RET       "
Austin, your ginger cat, jumps up through the trap door."
1246f:  41 02 23 00 37          JE              L01,#23 [FALSE] 124a9
12474:  0a 24 0e 00 32          TEST_ATTR       "hinged trapdoor",#0e [FALSE]
124a9
12479:  41 03 0a 00 2d          JE              L02,#0a [FALSE] 124a9
1247e:  0e 3a 29                INSERT_OBJ      "Austin","House"
12481:  41 11 23 00 25          JE              G01,#23 [FALSE] 124a9
12486:  b3 ...                  PRINT_RET       "
Austin, bored again, disappears through the trap door."
124a9:  41 02 23 00 20          JE              L01,#23 [FALSE] 124cc
124ae:  e7 7f 03 03             RANDOM          #03 -> L02
124b2:  41 03 01 00 05          JE              L02,#01 [FALSE] 124ba
124b7:  0d 04 2f                STORE           L03,#2f
124ba:  41 03 02 00 07          JE              L02,#02 [FALSE] 124c4
124bf:  cd 4f 04 00 67          STORE           L03,#0067
124c4:  41 03 03 00 05          JE              L02,#03 [FALSE] 124cc
124c9:  0d 04 2a                STORE           L03,#2a
124cc:  41 02 2a 00 05          JE              L01,#2a [FALSE] 124d4
124d1:  0d 04 23                STORE           L03,#23
124d4:  41 02 2f 00 10          JE              L01,#2f [FALSE] 124e7
124d9:  41 03 09 00 08          JE              L02,#09 [FALSE] 124e4
124de:  0d 04 23                STORE           L03,#23
124e1:  8c 00 05                JUMP            124e7
124e4:  0d 04 39                STORE           L03,#39
124e7:  41 02 39 00 2c          JE              L01,#39 [FALSE] 12516
124ec:  e7 7f 04 03             RANDOM          #04 -> L02
124f0:  41 03 01 00 05          JE              L02,#01 [FALSE] 124f8
124f5:  0d 04 2f                STORE           L03,#2f
124f8:  41 03 02 00 07          JE              L02,#02 [FALSE] 12502
124fd:  cd 4f 04 00 4a          STORE           L03,#004a
12502:  41 03 03 00 07          JE              L02,#03 [FALSE] 1250c
12507:  cd 4f 04 00 3b          STORE           L03,#003b
1250c:  41 03 04 00 07          JE              L02,#04 [FALSE] 12516
12511:  cd 4f 04 00 40          STORE           L03,#0040
12516:  c1 8f 02 00 4a 00 05    JE              L01,#004a [FALSE] 12520
1251d:  0d 04 39                STORE           L03,#39
12520:  c1 8f 02 00 3b 00 05    JE              L01,#003b [FALSE] 1252a
12527:  0d 04 39                STORE           L03,#39
1252a:  c1 8f 02 00 40 00 5a    JE              L01,#0040 [FALSE] 12589
12531:  ca 1f 00 48 0d 00 33    TEST_ATTR       "slide projector",#0d [FALSE]
12569
12538:  41 9b 00 80 2e          JE              G8b,#00 [TRUE] 12569
1253d:  41 01 00 00 29          JE              L00,#00 [FALSE] 12569
12542:  c1 8f 11 00 40 00 21    JE              G01,#0040 [FALSE] 12568
12549:  b3 ...                  PRINT_RET       "
Austin seems fascinated by the beam of light."
12568:  b1                      RFALSE
12569:  e7 7f 03 03             RANDOM          #03 -> L02
1256d:  41 03 01 00 05          JE              L02,#01 [FALSE] 12575
12572:  0d 04 39                STORE           L03,#39
12575:  41 03 02 00 07          JE              L02,#02 [FALSE] 1257f
1257a:  cd 4f 04 00 43          STORE           L03,#0043
1257f:  41 03 03 00 07          JE              L02,#03 [FALSE] 12589
12584:  cd 4f 04 00 47          STORE           L03,#0047
12589:  c1 8f 02 00 43 00 07    JE              L01,#0043 [FALSE] 12595
12590:  cd 4f 04 00 40          STORE           L03,#0040
12595:  c1 8f 02 00 47 00 38    JE              L01,#0047 [FALSE] 125d2
1259c:  ca 1f 00 48 0d 00 2c    TEST_ATTR       "slide projector",#0d [FALSE]
125cd
125a3:  41 01 00 00 27          JE              L00,#00 [FALSE] 125cd
125a8:  c1 8f 11 00 47 00 1f    JE              G01,#0047 [FALSE] 125cc
125af:  b3 ...                  PRINT_RET       "
Austin stares curiously at the slideshow."
125cc:  b1                      RFALSE
125cd:  cd 4f 04 00 40          STORE           L03,#0040
125d2:  c1 8f 02 00 67 00 18    JE              L01,#0067 [FALSE] 125ef
125d9:  e7 7f 02 03             RANDOM          #02 -> L02
125dd:  41 03 01 00 05          JE              L02,#01 [FALSE] 125e5
125e2:  0d 04 23                STORE           L03,#23
125e5:  41 03 02 00 07          JE              L02,#02 [FALSE] 125ef
125ea:  cd 4f 04 00 6b          STORE           L03,#006b
125ef:  c1 8f 02 00 6b 00 1a    JE              L01,#006b [FALSE] 1260e
125f6:  e7 7f 02 03             RANDOM          #02 -> L02
125fa:  41 03 01 00 07          JE              L02,#01 [FALSE] 12604
125ff:  cd 4f 04 00 70          STORE           L03,#0070
12604:  41 03 02 00 07          JE              L02,#02 [FALSE] 1260e
12609:  cd 4f 04 00 67          STORE           L03,#0067
1260e:  c1 8f 04 ff ff 00 03    JE              L03,#ffff [FALSE] 12616
12615:  b1                      RFALSE
12616:  2e 3a 04                INSERT_OBJ      "Austin",L03
12619:  c1 ab 11 02 04 01 6d    JE              G01,L01,L03 [FALSE] 1278b
12620:  41 01 00 00 96          JE              L00,#00 [FALSE] 126b9
12625:  b2 ...                  PRINT           "
Austin "
1262e:  e7 7f 0a 03             RANDOM          #0a -> L02
12632:  41 03 01 00 07          JE              L02,#01 [FALSE] 1263c
12637:  b2 ...                  PRINT           "sidles"
1263c:  41 03 02 00 07          JE              L02,#02 [FALSE] 12646
12641:  b2 ...                  PRINT           "ambles"
12646:  41 03 03 00 09          JE              L02,#03 [FALSE] 12652
1264b:  b2 ...                  PRINT           "strolls"
12652:  41 03 04 00 07          JE              L02,#04 [FALSE] 1265c
12657:  b2 ...                  PRINT           "runs"
1265c:  41 03 05 00 07          JE              L02,#05 [FALSE] 12666
12661:  b2 ...                  PRINT           "oozes"
12666:  41 03 06 00 09          JE              L02,#06 [FALSE] 12672
1266b:  b2 ...                  PRINT           "scurries"
12672:  41 03 07 00 09          JE              L02,#07 [FALSE] 1267e
12677:  b2 ...                  PRINT           "tiptoes"
1267e:  41 03 08 00 07          JE              L02,#08 [FALSE] 12688
12683:  b2 ...                  PRINT           "leaps"
12688:  41 03 09 00 07          JE              L02,#09 [FALSE] 12692
1268d:  b2 ...                  PRINT           "crawls"
12692:  41 03 0a 00 07          JE              L02,#0a [FALSE] 1269c
12697:  b2 ...                  PRINT           "rolls"
1269c:  61 11 02 00 0f          JE              G01,L01 [FALSE] 126ae
126a1:  b2 ...                  PRINT           " away to "
126a8:  2d 03 04                STORE           L02,L03
126ab:  8c 00 0a                JUMP            126b6
126ae:  b2 ...                  PRINT           " in from "
126b3:  2d 03 02                STORE           L02,L01
126b6:  8c 00 08                JUMP            126bf
126b9:  b2 ...                  PRINT           "to "
126bc:  2d 03 04                STORE           L02,L03
126bf:  b2 ...                  PRINT           "the "
126c4:  41 03 23 00 09          JE              L02,#23 [FALSE] 126d0
126c9:  b3 ...                  PRINT_RET       "attic."
126d0:  41 03 2f 00 0f          JE              L02,#2f [FALSE] 126e2
126d5:  b3 ...                  PRINT_RET       "furniture store."
126e2:  c1 8f 03 00 67 00 09    JE              L02,#0067 [FALSE] 126f0
126e9:  b3 ...                  PRINT_RET       "winery."
126f0:  41 03 2a 00 11          JE              L02,#2a [FALSE] 12704
126f5:  b3 ...                  PRINT_RET       "servant's bedroom."
12704:  c1 8f 03 00 6b 00 0d    JE              L02,#006b [FALSE] 12716
1270b:  b3 ...                  PRINT_RET       "conservatory."
12716:  c1 8f 03 00 70 00 0b    JE              L02,#0070 [FALSE] 12726
1271d:  b3 ...                  PRINT_RET       "potting room."
12726:  41 03 39 00 0b          JE              L02,#39 [FALSE] 12734
1272b:  b3 ...                  PRINT_RET       "east landing."
12734:  c1 8f 03 00 4a 00 09    JE              L02,#004a [FALSE] 12742
1273b:  b3 ...                  PRINT_RET       "annexe."
12742:  c1 8f 03 00 3b 00 0b    JE              L02,#003b [FALSE] 12752
12749:  b3 ...                  PRINT_RET       "dark room."
12752:  c1 8f 03 00 40 00 0d    JE              L02,#0040 [FALSE] 12764
12759:  b3 ...                  PRINT_RET       "observatory."
12764:  c1 8f 03 00 47 00 0d    JE              L02,#0047 [FALSE] 12776
1276b:  b3 ...                  PRINT_RET       "souvenirs room."
12776:  c1 8f 03 00 43 00 0b    JE              L02,#0043 [FALSE] 12786
1277d:  b3 ...                  PRINT_RET       "book store."
12786:  b3 ...                  PRINT_RET       "cold."
1278b:  b0                      RTRUE

Routine 1278c, 0 locals

1278d:  41 3a 29 00 55          JE              G2a,#29 [FALSE] 127e5
12792:  4a 2f 09 00 4f          TEST_ATTR       G1f,#09 [FALSE] 127e4
12797:  b2 ...                  PRINT           "
The room is filled with an eerie, reddish light. You feel gloomy and can't help
thinking about aviation accident statistics.
"
127e4:  b1                      RFALSE
127e5:  b1                      RFALSE

Routine 127e8, 0 locals

127e9:  41 3a 3c 00 50          JE              G2a,#3c [FALSE] 1283c
127ee:  b2 ...                  PRINT           "Click!  "
127f7:  0a 3b 09 00 15          TEST_ATTR       "Dark Room",#09 [FALSE] 1280f
127fc:  0c 3b 09                CLEAR_ATTR      "Dark Room",#09
127ff:  89 00 3e                REMOVE_OBJ      "red lamp"
12802:  b3 ...                  PRINT_RET       "The lamp goes out."
1280f:  0b 3b 09                SET_ATTR        "Dark Room",#09
12812:  ce 1f 00 3e 3b          INSERT_OBJ      "red lamp","Dark Room"
12817:  b3 ...                  PRINT_RET       "A developing lamp comes on,
emitting an eerie red light."
1283c:  b1                      RFALSE

Routine 12840, 0 locals

12841:  c1 8f 3a 01 01 00 89    JE              G2a,#0101 [FALSE] 128cf
12848:  0d ff 00                STORE           Gef,#00
1284b:  a2 2f 00 49             GET_CHILD       G1f -> -(SP) [FALSE] 12856
1284f:  95 ff                   INC             Gef
12851:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 1284f
12856:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
1285a:  41 00 02 00 15          JE              (SP)+,#02 [FALSE] 12872
1285f:  b3 ...                  PRINT_RET       "The flash is full already."
12872:  c1 8f 30 00 ce 00 03    JE              G20,#00ce [FALSE] 1287a
12879:  b1                      RFALSE
1287a:  4a 30 1f 80 1b          TEST_ATTR       G20,#1f [TRUE] 12898
1287f:  b3 ...                  PRINT_RET       "Only batteries and timers will
fit in."
12898:  a2 2f 00 c2             GET_CHILD       G1f -> -(SP) [TRUE] 1289c
1289c:  4a 00 1f 00 2f          TEST_ATTR       (SP)+,#1f [FALSE] 128ce
128a1:  b3 ...                  PRINT_RET       "There is already a battery
inside, and there's only room now for a timer."
128ce:  b1                      RFALSE
128cf:  b1                      RFALSE

Routine 128d0, 0 locals

128d1:  41 3a 29 00 65          JE              G2a,#29 [FALSE] 12939
128d6:  ca 1f 00 48 0d 00 07    TEST_ATTR       "slide projector",#0d [FALSE]
128e2
128dd:  41 9b 00 00 03          JE              G8b,#00 [FALSE] 128e3
128e2:  b1                      RFALSE
128e3:  b2 ...                  PRINT           "
A beam of white light runs into the room from the slide projector to the south,
and hits the "
12916:  ca 1f 00 42 08 80 0f    TEST_ATTR       "solid glass ball",#08 [TRUE]
1292a
1291d:  b3 ...                  PRINT_RET       "opaque glass ball."
1292a:  b2 ...                  PRINT           "glass ball, which "
12935:  8f 4a 4f                CALL_1N         1293c
12938:  b0                      RTRUE
12939:  b1                      RFALSE

Routine 1293c, 1 local

1293d:  82 00 48 01 c2          GET_CHILD       "slide projector" -> L00 [TRUE]
12942
12942:  41 01 00 00 27          JE              L00,#00 [FALSE] 1296c
12947:  b3 ...                  PRINT_RET       "diffracts it into a beautiful
spectrum across the ceiling."
1296c:  c1 8f 01 00 c0 00 27    JE              L00,#00c0 [FALSE] 12998
12973:  b3 ...                  PRINT_RET       "throws it into a straight rod
of white light across one wall."
12998:  c1 8f 01 00 be 00 2f    JE              L00,#00be [FALSE] 129cc
1299f:  b3 ...                  PRINT_RET       "spins it about wildly, as if
it were a strobe light at a discotheque."
129cc:  c1 8f 01 00 bf 00 35    JE              L00,#00bf [FALSE] 12a06
129d3:  b3 ...                  PRINT_RET       "amplifies it into a powerful
yellow searchlight which slowly turns about the room."
12a06:  c1 8f 01 01 e3 00 1d    JE              L00,#01e3 [FALSE] 12a28
12a0d:  b3 ...                  PRINT_RET       "throws it in a crescent
against one wall."
12a28:  b2 ...                  PRINT           "somehow bends it so that it
strikes the mural at the sign of "
12a4b:  c1 8f 01 01 32 00 0b    JE              L00,#0132 [FALSE] 12a5b
12a52:  b3 ...                  PRINT_RET       "Scorpio."
12a5b:  c1 8f 01 00 c1 00 09    JE              L00,#00c1 [FALSE] 12a69
12a62:  b3 ...                  PRINT_RET       "Virgo."
12a69:  c1 8f 01 00 c2 00 0b    JE              L00,#00c2 [FALSE] 12a79
12a70:  b3 ...                  PRINT_RET       "Aquarius."
12a79:  c1 8f 01 00 a4 00 09    JE              L00,#00a4 [FALSE] 12a87
12a80:  b3 ...                  PRINT_RET       "Cancer."
12a87:  c1 8f 01 00 a6 00 09    JE              L00,#00a6 [FALSE] 12a95
12a8e:  b3 ...                  PRINT_RET       "Pisces."
12a95:  c1 8f 01 00 a5 00 16    JE              L00,#00a5 [FALSE] 12ab0
12a9c:  b2 ...                  PRINT           "Capricorn.
"
12aa7:  8f 4a b0                CALL_1N         12ac0
12aaa:  da 1f 9d bb 17          CALL_2N         276ec (#17)
12aaf:  b0                      RTRUE
12ab0:  c1 8f 01 00 94 00 07    JE              L00,#0094 [FALSE] 12abc
12ab7:  b3 ...                  PRINT_RET       "Leo."
12abc:  b0                      RTRUE

Routine 12ac0, 0 locals

12ac1:  c6 0f 00 51 00 4e 00 03 JIN             "fire escape","Dead End"
[FALSE] 12aca
12ac9:  b1                      RFALSE
12aca:  e3 13 00 4e 07 00 51    PUT_PROP        "Dead End",#07,#0051
12ad1:  e3 13 00 4e 0e 00 51    PUT_PROP        "Dead End",#0e,#0051
12ad8:  ce 0f 00 51 00 4e       INSERT_OBJ      "fire escape","Dead End"
12ade:  e3 13 01 d6 0d 00 4e    PUT_PROP        "Beside the Drive",#0d,#004e
12ae5:  e3 13 01 d6 08 00 4e    PUT_PROP        "Beside the Drive",#08,#004e
12aec:  cb 1f 00 4e 09          SET_ATTR        "Dead End",#09
12af1:  b3 ...                  PRINT_RET       "
Your footfall causes the crystal ball to wobble fractionally, just enough for
the beam of light to cross the smoke detector. Click! and then some electronic
bleeping. Little servo motors fire lethargically into life, then collapse in
exhaustion. The alarm soon runs down to a tiny drone, then silence.

But there's quite a loud report from off to the east somewhere."

Routine 12bd0, 1 local

12bd1:  41 3a 5a 00 5b          JE              G2a,#5a [FALSE] 12c2f
12bd6:  4b 2f 08                SET_ATTR        G1f,#08
12bd9:  41 9b 01 00 3e          JE              G8b,#01 [FALSE] 12c1a
12bde:  ca 1f 00 48 0d 00 37    TEST_ATTR       "slide projector",#0d [FALSE]
12c1a
12be5:  b2 ...                  PRINT           "You polish the ball to a nice
shine, and get out of the way of the beam. Now the glass ball "
12c16:  8f 4a 4f                CALL_1N         1293c
12c19:  b0                      RTRUE
12c1a:  b3 ...                  PRINT_RET       "You polish the ball to a nice
shine."
12c2f:  c1 97 3a 2a 2b 01 f3    JE              G2a,#2a,#2b [FALSE] 12e27
12c36:  4a 2f 08 80 1b          TEST_ATTR       G1f,#08 [TRUE] 12c54
12c3b:  b3 ...                  PRINT_RET       "The ball is scratched and
misted up."
12c54:  da 1f 97 a4 20          CALL_2N         25e90 (#20)
12c59:  e7 7f 0c 01             RANDOM          #0c -> L00
12c5d:  b2 ...                  PRINT           "In the ball mists swirl, then
part to show "
12c78:  41 01 01 00 13          JE              L00,#01 [FALSE] 12c8e
12c7d:  b3 ...                  PRINT_RET       "a reflection of your face."
12c8e:  41 01 02 00 1f          JE              L00,#02 [FALSE] 12cb0
12c93:  b3 ...                  PRINT_RET       "a dizzying aerial view of
Meldrew Hall gardens."
12cb0:  41 01 03 00 1f          JE              L00,#03 [FALSE] 12cd2
12cb5:  b3 ...                  PRINT_RET       "confused pictures of a tree
being planted."
12cd2:  41 01 04 00 2f          JE              L00,#04 [FALSE] 12d04
12cd7:  b3 ...                  PRINT_RET       "an image of a typist, home
from work and wandering about her bedsit room."
12d04:  41 01 05 00 1d          JE              L00,#05 [FALSE] 12d24
12d09:  b3 ...                  PRINT_RET       "a dark picture of a museum
display case."
12d24:  41 01 06 00 35          JE              L00,#06 [FALSE] 12d5c
12d29:  b3 ...                  PRINT_RET       "an Old Master painting,
perhaps a Watteau, of a scene from classical mythology."
12d5c:  41 01 07 00 27          JE              L00,#07 [FALSE] 12d86
12d61:  b3 ...                  PRINT_RET       "an oddly-angled view of a
Roman villa half in ruins."
12d86:  41 01 08 00 1f          JE              L00,#08 [FALSE] 12da8
12d8b:  b3 ...                  PRINT_RET       "a flickery view of faces round
a camp fire."
12da8:  41 01 09 00 19          JE              L00,#09 [FALSE] 12dc4
12dad:  b3 ...                  PRINT_RET       "a dark, spooky view of a
crypt."
12dc4:  41 01 0a 00 25          JE              L00,#0a [FALSE] 12dec
12dc9:  b3 ...                  PRINT_RET       "a dreamy, enclosed view of
somewhere half-familiar."
12dec:  41 01 0b 00 19          JE              L00,#0b [FALSE] 12e08
12df1:  b3 ...                  PRINT_RET       "a sketch of a great marble
palace."
12e08:  41 01 0c 00 1b          JE              L00,#0c [FALSE] 12e26
12e0d:  b3 ...                  PRINT_RET       "a vision of English
countryside."
12e26:  b1                      RFALSE
12e27:  b1                      RFALSE

Routine 12e28, 0 locals

12e29:  41 3a 71 00 2e          JE              G2a,#71 [FALSE] 12e5a
12e2e:  c1 8f 31 00 78 80 20    JE              G21,#0078 [TRUE] 12e53
12e35:  da 2f 38 53 31          CALL_2N         e14c (G21)
12e3a:  b3 ...                  PRINT_RET       " proves inadequate as a
plumbing tool."
12e53:  f9 1b 36 0d 3f 2f       CALL_VN         d834 (#3f,G1f)
12e59:  b0                      RTRUE
12e5a:  c1 97 3a 5b 3f 00 e2    JE              G2a,#5b,#3f [FALSE] 12f41
12e61:  ca 1f 00 78 08 00 17    TEST_ATTR       "steel wrench",#08 [FALSE]
12e7d
12e68:  b3 ...                  PRINT_RET       "The joint is fairly safe
already."
12e7d:  c6 2f 00 78 19 80 62    JIN             "steel wrench",G09 [TRUE] 12ee4
12e84:  c6 2f 00 71 19 00 38    JIN             "old gardeners' gloves",G09
[FALSE] 12ec1
12e8b:  ca 1f 00 71 1a 00 31    TEST_ATTR       "old gardeners' gloves",#1a
[FALSE] 12ec1
12e92:  b3 ...                  PRINT_RET       "Even with gloves on you are
unable to tighten the joint without some sort of tool."
12ec1:  b3 ...                  PRINT_RET       "With your bare hands, you are
unable to tighten the joint."
12ee4:  cb 1f 00 78 08          SET_ATTR        "steel wrench",#08
12ee9:  da 1f 9d bb 0d          CALL_2N         276ec (#0d)
12eee:  cc 1f 00 46 02          CLEAR_ATTR      "book of Twenties poetry",#02
12ef3:  cb 1f 00 46 0c          SET_ATTR        "book of Twenties poetry",#0c
12ef8:  cc 1f 00 45 02          CLEAR_ATTR      "romantic novel",#02
12efd:  cb 1f 00 45 0c          SET_ATTR        "romantic novel",#0c
12f02:  b3 ...                  PRINT_RET       "You tighten the joint with the
wrench, just enough for the books to fall away without a gushing explosion of
water."
12f41:  b1                      RFALSE

Routine 12f44, 0 locals

12f45:  41 3a 13 00 0e          JE              G2a,#13 [FALSE] 12f56
12f4a:  ca 1f 00 78 08 80 06    TEST_ATTR       "steel wrench",#08 [TRUE] 12f55
12f51:  8f 4c 28                CALL_1N         130a0
12f54:  b0                      RTRUE
12f55:  b1                      RFALSE
12f56:  41 3a 2a 00 2c          JE              G2a,#2a [FALSE] 12f85
12f5b:  ca 1f 00 78 08 80 1f    TEST_ATTR       "steel wrench",#08 [TRUE] 12f7f
12f62:  b3 ...                  PRINT_RET       "You can't read it while it's
holding the pipe up."
12f7f:  da 1f 97 a4 23          CALL_2N         25e90 (#23)
12f84:  b1                      RFALSE
12f85:  b1                      RFALSE

Routine 12f88, 0 locals

12f89:  41 3a 13 00 0e          JE              G2a,#13 [FALSE] 12f9a
12f8e:  ca 1f 00 78 08 80 06    TEST_ATTR       "steel wrench",#08 [TRUE] 12f99
12f95:  8f 4c 28                CALL_1N         130a0
12f98:  b0                      RTRUE
12f99:  b1                      RFALSE
12f9a:  41 3a 2a 01 01          JE              G2a,#2a [FALSE] 1309e
12f9f:  ca 1f 00 78 08 80 1f    TEST_ATTR       "steel wrench",#08 [TRUE] 12fc3
12fa6:  b3 ...                  PRINT_RET       "You can't read it while it's
holding the pipe up."
12fc3:  41 11 0e 00 45          JE              G01,#0e [FALSE] 1300b
12fc8:  b3 ...                  PRINT_RET       "1920s poetry may be literarily
enlightening, but not literally. It is, in fact, too dark to make out the
print."
1300b:  c1 8f 11 01 01 00 39    JE              G01,#0101 [FALSE] 13049
13012:  b3 ...                  PRINT_RET       "The glare of the sun off the
ocean is too bright to make out the words without giving you a headache."
13049:  b2 ...                  PRINT           "Publishers talk a lot of
nonsense about readers being transported away by books, but somehow you have
arrived in the...
"
13094:  2e 46 11                INSERT_OBJ      "book of Twenties poetry",G01
13097:  da 0f 9d 20 00 9a       CALL_2N         27480 (#009a)
1309d:  b0                      RTRUE
1309e:  b1                      RFALSE

Routine 130a0, 0 locals

130a1:  0d 1d 03                STORE           G0d,#03
130a4:  b3 ...                  PRINT_RET       "As you pull the book away, the
pipe bursts and sprays water everywhere, drenching you, rendering the book
unreadable, leaking through the ceiling into the bedrooms below and causing an
enormous furore. You are obliged to spend the rest of the afternoon getting a
plumber at short notice."

Routine 1314c, 1 local

1314d:  b2 ...                  PRINT           "the picture on "
13158:  da 2f 38 4e 01          CALL_2N         e138 (L00)
1315d:  51 01 05 00             GET_PROP        L00,#05 -> -(SP)
13161:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 13169
13166:  b3 ...                  PRINT_RET       "."
13169:  b3 ...                  PRINT_RET       ", beautifully magnified and
amazingly life-like. Why, you'd hardly know there was a wall there at all."

Routine 131a8, 1 local

131a9:  41 3a 2a 00 49          JE              G2a,#2a [FALSE] 131f5
131ae:  41 30 03 00 43          JE              G20,#03 [FALSE] 131f4
131b3:  ca 1f 00 48 0d 00 3c    TEST_ATTR       "slide projector",#0d [FALSE]
131f4
131ba:  82 00 48 01 c2          GET_CHILD       "slide projector" -> L00 [TRUE]
131bf
131bf:  41 01 00 00 1d          JE              L00,#00 [FALSE] 131df
131c4:  b3 ...                  PRINT_RET       "The south wall is lit up by
the projector."
131df:  b2 ...                  PRINT           "The south wall shows "
131ee:  da 2f 4c 53 01          CALL_2N         1314c (L00)
131f3:  b0                      RTRUE
131f4:  b1                      RFALSE
131f5:  b1                      RFALSE

Routine 131f8, 1 local

131f9:  41 3a 29 00 93          JE              G2a,#29 [FALSE] 1328f
131fe:  ca 1f 00 48 0d 80 03    TEST_ATTR       "slide projector",#0d [TRUE]
13206
13205:  b1                      RFALSE
13206:  82 00 48 01 c2          GET_CHILD       "slide projector" -> L00 [TRUE]
1320b
1320b:  41 01 00 00 22          JE              L00,#00 [FALSE] 13230
13210:  b2 ...                  PRINT           "
The south wall is lit up by the projector.
"
1322d:  8c 00 18                JUMP            13246
13230:  b2 ...                  PRINT           "
The south wall displays "
13241:  da 2f 4d ab 01          CALL_2N         136ac (L00)
13246:  41 9b 01 00 45          JE              G8b,#01 [FALSE] 1328e
1324b:  b3 ...                  PRINT_RET       "
A beam of white light points directly backward from the projector, through the
north doorway into the Observatory."
1328e:  b0                      RTRUE
1328f:  b1                      RFALSE

Routine 13290, 0 locals

13291:  f9 13 36 0d 15 00 49    CALL_VN         d834 (#15,#0049)
13298:  b0                      RTRUE

Routine 1329c, 0 locals

1329d:  c1 8f 3a 01 01 00 a3    JE              G2a,#0101 [FALSE] 13345
132a4:  a2 2f 00 c2             GET_CHILD       G1f -> -(SP) [TRUE] 132a8
132a8:  41 00 00 80 15          JE              (SP)+,#00 [TRUE] 132c0
132ad:  b3 ...                  PRINT_RET       "There's a slide in already."
132c0:  41 30 36 00 1f          JE              G20,#36 [FALSE] 132e2
132c5:  b2 ...                  PRINT           "The postcard is just too large
to fit.
"
132de:  8f aa 21                CALL_1N         2a884
132e1:  b0                      RTRUE
132e2:  c1 8f 30 00 93 00 17    JE              G20,#0093 [FALSE] 132fe
132e9:  b2 ...                  PRINT           "The frame is too bulky.
"
132fa:  8f aa 21                CALL_1N         2a884
132fd:  b0                      RTRUE
132fe:  c1 83 30 00 94 01 32 00 03
                               JE              G20,#0094,#0132 [FALSE] 13308
13307:  b1                      RFALSE
13308:  4a 30 1e 80 39          TEST_ATTR       G20,#1e [TRUE] 13344
1330d:  b3 ...                  PRINT_RET       "It won't fit. There's only
room for something flat and the size of, say, a playing card."
13344:  b1                      RFALSE
13345:  41 3a 3f 00 9b          JE              G2a,#3f [FALSE] 133e3
1334a:  41 9b 01 00 2f          JE              G8b,#01 [FALSE] 1337c
1334f:  0d 9b 00                STORE           G8b,#00
13352:  4a 2f 0d 00 20          TEST_ATTR       G1f,#0d [FALSE] 13375
13357:  0c 40 09                CLEAR_ATTR      "Disused Observatory",#09
1335a:  b3 ...                  PRINT_RET       "The sharp beam of light cuts
out again."
13375:  b3 ...                  PRINT_RET       "Click."
1337c:  0d 9b 01                STORE           G8b,#01
1337f:  4a 2f 0d 00 5a          TEST_ATTR       G1f,#0d [FALSE] 133dc
13384:  0b 40 09                SET_ATTR        "Disused Observatory",#09
13387:  b3 ...                  PRINT_RET       "A sharp beam of white light
appears backward out of the projector. As you step out of the beam, it extends
dead straight through the north doorway."
133dc:  b3 ...                  PRINT_RET       "Click."
133e3:  b1                      RFALSE

Routine 133e4, 1 local

133e5:  c1 8f 3a 01 01 00 0e    JE              G2a,#0101 [FALSE] 133f8
133ec:  4a 2f 0d 00 08          TEST_ATTR       G1f,#0d [FALSE] 133f7
133f1:  da 2f 4d c2 30          CALL_2N         13708 (G20)
133f6:  b0                      RTRUE
133f7:  b1                      RFALSE
133f8:  c1 8f 3a 01 00 00 0e    JE              G2a,#0100 [FALSE] 1340b
133ff:  4a 2f 0d 00 08          TEST_ATTR       G1f,#0d [FALSE] 1340a
13404:  da 1f 4d c2 00          CALL_2N         13708 (#00)
13409:  b0                      RTRUE
1340a:  b1                      RFALSE
1340b:  41 3a 40 00 83          JE              G2a,#40 [FALSE] 13491
13410:  0b 47 09                SET_ATTR        "Souvenirs Room",#09
13413:  41 9b 01 00 05          JE              G8b,#01 [FALSE] 1341b
13418:  0b 40 09                SET_ATTR        "Disused Observatory",#09
1341b:  92 48 01 c2             GET_CHILD       "slide projector" -> L00 [TRUE]
1341f
1341f:  41 01 00 00 69          JE              L00,#00 [FALSE] 1348b
13424:  b2 ...                  PRINT           "The south wall is lit up. "
13435:  41 9b 01 00 51          JE              G8b,#01 [FALSE] 13489
1343a:  b2 ...                  PRINT           "Also, a narrow white beam of
light extends backwards from the projector, pointing out up through the
Observatory doorway to the north."
13489:  bb                      NEW_LINE
1348a:  b0                      RTRUE
1348b:  da 2f 4d c2 01          CALL_2N         13708 (L00)
13490:  b0                      RTRUE
13491:  41 3a 31 00 0e          JE              G2a,#31 [FALSE] 134a2
13496:  0c 47 09                CLEAR_ATTR      "Souvenirs Room",#09
13499:  0c 40 09                CLEAR_ATTR      "Disused Observatory",#09
1349c:  cb 1f 00 49 02          SET_ATTR        "south wall",#02
134a1:  b1                      RFALSE
134a2:  b1                      RFALSE

Routine 134a4, 1 local

134a5:  41 3a 15 02 02          JE              G2a,#15 [FALSE] 136aa
134aa:  92 48 01 c2             GET_CHILD       "slide projector" -> L00 [TRUE]
134ae
134ae:  41 01 00 00 11          JE              L00,#00 [FALSE] 134c2
134b3:  b3 ...                  PRINT_RET       "You can't go that way."
134c2:  c1 8f 01 00 c0 00 39    JE              L00,#00c0 [FALSE] 13500
134c9:  b3 ...                  PRINT_RET       "You are unable to enter the
picture. It isn't very realistic, more a stylised figure-eight."
13500:  b2 ...                  PRINT           "You walk confidently into the
south wall...
"
1351d:  4a 01 08 00 21          TEST_ATTR       L00,#08 [FALSE] 13541
13522:  b3 ...                  PRINT_RET       "But are unable to enter the
scene for a second time."
13541:  c1 8f 01 00 a4 00 75    JE              L00,#00a4 [FALSE] 135bb
13548:  b2 ...                  PRINT           "
And find yourself in a golden cornfield on a sunny afternoon. You have just
time to admire the ears of wheat before the scythe of the Grim Reaper cuts your
soul from your body.
"
135b5:  da 2f 4d d6 01          CALL_2N         13758 (L00)
135ba:  b0                      RTRUE
135bb:  c1 8f 01 00 a6 00 5d    JE              L00,#00a6 [FALSE] 1361d
135c2:  b2 ...                  PRINT           "
You are underwater, in the wreck of a ship, surrounded by the skeletons of its
former crew, whom you abruptly join as your air runs out.
"
13617:  da 2f 4d d6 01          CALL_2N         13758 (L00)
1361c:  b0                      RTRUE
1361d:  c1 8f 01 00 a5 00 7b    JE              L00,#00a5 [FALSE] 1369d
13624:  b2 ...                  PRINT           "
And find yourself stepping off a cliff. All is well for a moment, and then like
a cartoon character you notice there is no ground beneath you and you plummet
to a stony death far below.
"
13697:  da 2f 4d d6 01          CALL_2N         13758 (L00)
1369c:  b0                      RTRUE
1369d:  4b 01 08                SET_ATTR        L00,#08
136a0:  51 01 05 00             GET_PROP        L00,#05 -> -(SP)
136a4:  da 2f 9d 20 00          CALL_2N         27480 ((SP)+)
136a9:  b0                      RTRUE
136aa:  b1                      RFALSE

Routine 136ac, 1 local

136ad:  b2 ...                  PRINT           "the picture on "
136b8:  da 2f 38 4e 01          CALL_2N         e138 (L00)
136bd:  51 01 05 00             GET_PROP        L00,#05 -> -(SP)
136c1:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 136c9
136c6:  b3 ...                  PRINT_RET       "."
136c9:  b3 ...                  PRINT_RET       ", beautifully magnified and
amazingly life-like. Why, you'd hardly know there was a wall there at all."

Routine 13708, 1 local

13709:  41 01 00 80 2e          JE              L00,#00 [TRUE] 1373a
1370e:  51 01 05 00             GET_PROP        L00,#05 -> -(SP)
13712:  41 00 00 80 0e          JE              (SP)+,#00 [TRUE] 13723
13717:  51 01 05 00             GET_PROP        L00,#05 -> -(SP)
1371b:  e3 5b 49 05 00          PUT_PROP        "south wall",#05,(SP)+
13720:  0c 49 02                CLEAR_ATTR      "south wall",#02
13723:  b2 ...                  PRINT           "The south wall lights up with
"
13734:  da 2f 4d ab 01          CALL_2N         136ac (L00)
13739:  b0                      RTRUE
1373a:  0b 49 02                SET_ATTR        "south wall",#02
1373d:  b3 ...                  PRINT_RET       "The south wall becomes blank
again."

Routine 13758, 1 local

13759:  b2 ...                  PRINT           "

    "
13760:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
13763:  b2 ...                  PRINT           "*** You have died ***"
1377c:  f1 7f 00                SET_TEXT_STYLE  ROMAN
1377f:  b2 ...                  PRINT           "

Or have you?  No... this isn't quite the end. You see an intense blue-white
light at the end of what seems a tunnel, and drift toward it until you realise
that you are staring, dazed, into the light of the slide projector, and have
hardly moved at all.
"
13818:  4b 01 08                SET_ATTR        L00,#08
1381b:  b0                      RTRUE

Routine 1381c, 0 locals

1381d:  b2 ...                  PRINT           "This tight annexe at the
eastern end of the house is piled up with old loft insulation rolls, left over
from the last time the job was done (whenever that was). A gap between the
tiles of the roof (which you really must mend before winter) lets a little
natural light in"
138b4:  d1 1f 00 4e 0e 00       GET_PROP        "Dead End",#0e -> -(SP)
138ba:  41 00 00 00 1f          JE              (SP)+,#00 [FALSE] 138dc
138bf:  b3 ...                  PRINT_RET       ", but the attics to the west
and south are dark."
138dc:  b3 ...                  PRINT_RET       " and the dead end south is
bright with sunlight through a square open hatchway in the roof."

Routine 13910, 0 locals

13911:  c1 97 3a 26 15 00 a7    JE              G2a,#26,#15 [FALSE] 139bd
13918:  06 21 20 00 6b          JIN             "old smudged battery","electric
torch" [FALSE] 13986
1391d:  c1 93 30 02 00 4d 00 63 JE              G20,#02,#004d [FALSE] 13986
13925:  b3 ...                  PRINT_RET       "You know you only have an old,
nearly dead battery in the torch, and are reluctant to tread on the weaker
floorboards inside the cupboard without safer illumination."
13986:  92 20 00 c2             GET_CHILD       "electric torch" -> -(SP)
[TRUE] 1398a
1398a:  41 00 00 00 2f          JE              (SP)+,#00 [FALSE] 139bc
1398f:  c1 93 30 02 00 4d 00 27 JE              G20,#02,#004d [FALSE] 139bc
13997:  b3 ...                  PRINT_RET       "But it's dark in there and you
have no battery in your torch."
139bc:  b1                      RFALSE
139bd:  b1                      RFALSE

Routine 139c0, 0 locals

139c1:  c1 95 3a 2a 2b 2c 00 9d JE              G2a,#2a,#2b,#2c [FALSE] 13a64
139c9:  ca 1f 00 71 1a 80 29    TEST_ATTR       "old gardeners' gloves",#1a
[TRUE] 139f7
139d0:  b3 ...                  PRINT_RET       "A rash act. The itchy fibres
of the insulation soon deter you."
139f7:  c6 2f 00 4c 2f 80 1b    JIN             "new-looking battery",G1f
[TRUE] 13a17
139fe:  b3 ...                  PRINT_RET       "Nothing else there,
unfortunately."
13a17:  ce 1f 00 4c 4a          INSERT_OBJ      "new-looking battery","East
Annexe"
13a1c:  da 1f 9d bb 0c          CALL_2N         276ec (#0c)
13a21:  b3 ...                  PRINT_RET       "You uncover a shiny new
battery. It must have been dropped by accident when the loft insulation was
being done."
13a64:  b1                      RFALSE

Routine 13a68, 0 locals

13a69:  41 3a 8a 00 2f          JE              G2a,#8a [FALSE] 13a9b
13a6e:  b3 ...                  PRINT_RET       "There is no reply, and frankly
it's hard to imagine anyone's in there."
13a9b:  b1                      RFALSE

Routine 13a9c, 0 locals

13a9d:  41 2a 8a 00 20          JE              G1a,#8a [FALSE] 13ac0
13aa2:  41 30 03 00 1b          JE              G20,#03 [FALSE] 13ac0
13aa7:  b3 ...                  PRINT_RET       "The south wall rings curiously
hollow."
13ac0:  41 30 03 00 12          JE              G20,#03 [FALSE] 13ad5
13ac5:  ca 1f 00 50 02 80 0b    TEST_ATTR       "secret door",#02 [TRUE] 13ad5
13acc:  f9 22 36 0d 2a 00 50 31 CALL_VN         d834 (G1a,#0050,G21)
13ad4:  b0                      RTRUE
13ad5:  41 3a 3d 00 31          JE              G2a,#3d [FALSE] 13b09
13ada:  41 30 03 00 2b          JE              G20,#03 [FALSE] 13b08
13adf:  ca 1f 00 50 02 00 24    TEST_ATTR       "secret door",#02 [FALSE] 13b08
13ae6:  cc 1f 00 50 02          CLEAR_ATTR      "secret door",#02
13aeb:  ce 1f 00 50 4e          INSERT_OBJ      "secret door","Dead End"
13af0:  da 1f 9d bb 03          CALL_2N         276ec (#03)
13af5:  b3 ...                  PRINT_RET       "A secret door springs open!"
13b08:  b1                      RFALSE
13b09:  41 3a 26 00 56          JE              G2a,#26 [FALSE] 13b62
13b0e:  c1 97 30 04 0b 00 4e    JE              G20,#04,#0b [FALSE] 13b61
13b15:  51 2f 0e 00             GET_PROP        G1f,#0e -> -(SP)
13b19:  41 00 00 80 45          JE              (SP)+,#00 [TRUE] 13b61
13b1e:  b2 ...                  PRINT           "You clamber out onto a rickety
ladder which runs right down the east wall of the Hall, and nervously
descend...
"
13b61:  b1                      RFALSE
13b62:  b1                      RFALSE

Routine 13b64, 0 locals

13b65:  41 3a 13 00 5c          JE              G2a,#13 [FALSE] 13bc4
13b6a:  c6 8f 2f 00 96 00 25    JIN             G1f,"White Hallway" [FALSE]
13b94
13b71:  ca 1f 00 97 11 00 1e    TEST_ATTR       "picture hook",#11 [FALSE]
13b94
13b78:  4c 2f 11                CLEAR_ATTR      G1f,#11
13b7b:  4b 2f 13                SET_ATTR        G1f,#13
13b7e:  4c 2f 16                CLEAR_ATTR      G1f,#16
13b81:  b3 ...                  PRINT_RET       "You take Mad Isaac down."
13b94:  ca 1f 00 54 02 00 2a    TEST_ATTR       "big iron fireplace",#02
[FALSE] 13bc3
13b9b:  cc 1f 00 54 02          CLEAR_ATTR      "big iron fireplace",#02
13ba0:  b3 ...                  PRINT_RET       "Taken. (There's a fireplace
behind it, by the way.)"
13bc3:  b1                      RFALSE
13bc4:  b1                      RFALSE

Routine 13bc8, 0 locals

13bc9:  c1 8f 3a 01 01 00 4a    JE              G2a,#0101 [FALSE] 13c18
13bd0:  ce 8f 30 00 5d          INSERT_OBJ      G20,"Priest's Hole"
13bd5:  ca 1f 00 5c 0c 80 0d    TEST_ATTR       "sooty old stick",#0c [TRUE]
13be7
13bdc:  ce 0f 00 5c 00 5d       INSERT_OBJ      "sooty old stick","Priest's
Hole"
13be2:  cb 1f 00 5c 0c          SET_ATTR        "sooty old stick",#0c
13be7:  41 30 37 00 10          JE              G20,#37 [FALSE] 13bfa
13bec:  0a 37 0b 00 0b          TEST_ATTR       "mb",#0b [FALSE] 13bfa
13bf1:  0c 37 0c                CLEAR_ATTR      "mb",#0c
13bf4:  e3 53 37 11 bc f1       PUT_PROP        "mb",#11,S135
13bfa:  da 2f 38 53 30          CALL_2N         e14c (G20)
13bff:  b3 ...                  PRINT_RET       " rattles out of sight down the
chimney."
13c18:  b1                      RFALSE

Routine 13c1c, 0 locals

13c1d:  c1 97 3a 2e 30 00 0d    JE              G2a,#2e,#30 [FALSE] 13c2f
13c24:  b3 ...                  PRINT_RET       "How, exactly?"
13c2f:  41 3a 3f 00 6e          JE              G2a,#3f [FALSE] 13ca0
13c34:  b2 ...                  PRINT           "With a horrid creaking noise,
the crank "
13c4f:  0a 52 09 00 27          TEST_ATTR       "Inside Cupboard",#09 [FALSE]
13c79
13c54:  0c 52 09                CLEAR_ATTR      "Inside Cupboard",#09
13c57:  0c 55 0e                CLEAR_ATTR      "cranked skylight",#0e
13c5a:  b3 ...                  PRINT_RET       "shuts down the skylight,
shutting out the sunshine."
13c79:  0b 52 09                SET_ATTR        "Inside Cupboard",#09
13c7c:  0b 55 0e                SET_ATTR        "cranked skylight",#0e
13c7f:  b3 ...                  PRINT_RET       "winds open the skylight,
flooding the room with sunshine."
13ca0:  b1                      RFALSE

Routine 13ca4, 0 locals

13ca5:  41 3a 19 00 49          JE              G2a,#19 [FALSE] 13cf1
13caa:  b3 ...                  PRINT_RET       "After a brief ecstasy of
fumbling, you pull it on. It smells unpleasantly of World War II leftover
cork."
13cf1:  b1                      RFALSE

Routine 13cf4, 0 locals

13cf5:  41 3a 13 00 9b          JE              G2a,#13 [FALSE] 13d93
13cfa:  4a 2f 08 00 03          TEST_ATTR       G1f,#08 [FALSE] 13d00
13cff:  b1                      RFALSE
13d00:  cc 1f 00 5a 02          CLEAR_ATTR      "Sir Joshua Meldrewe",#02
13d05:  ce 8f 2f 00 5a          INSERT_OBJ      G1f,"Sir Joshua Meldrewe"
13d0a:  e3 17 00 5a 17 05       PUT_PROP        "Sir Joshua Meldrewe",#17,#05
13d10:  da 0f 37 47 00 5a       CALL_2N         dd1c (#005a)
13d16:  b3 ...                  PRINT_RET       "As you reach for the key, a
swirling mist condenses about it, into a ghostly head which opens its mouth and
eats up the key!  The rest of the ghostly body solidifies about the head and
rises to swagger before you."
13d93:  b1                      RFALSE

Routine 13d94, 0 locals

13d95:  c1 8f 11 00 5d 00 39    JE              G01,#005d [FALSE] 13dd3
13d9c:  b3 ...                  PRINT_RET       "This chimney must have been
the one the gothic-looking iron key fell down, for here it is."
13dd3:  b3 ...                  PRINT_RET       "An iron, gothic-looking key
catches your eye."

Routine 13df4, 1 local

13df5:  41 11 58 80 03          JE              G01,#58 [TRUE] 13dfb
13dfa:  b1                      RFALSE
13dfb:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
13dff:  55 00 01 01             SUB             (SP)+,#01 -> L00
13e03:  e3 9b 2f 17 01          PUT_PROP        G1f,#17,L00
13e08:  41 01 04 00 39          JE              L00,#04 [FALSE] 13e44
13e0d:  b3 ...                  PRINT_RET       "
The ghost laughs in a gurgling kind of way, as it were always coughing and
spluttering."
13e44:  41 01 03 00 8b          JE              L00,#03 [FALSE] 13ed2
13e49:  b3 ...                  PRINT_RET       "
The ghost begins to speak:

                       My hour is almost come
   When I to sulph'rous and tormenting flames
   Must render up myself...

Can this possibly be the infamous Sir Joshua Meldrewe?"
13ed2:  41 01 02 00 63          JE              L00,#02 [FALSE] 13f38
13ed7:  b3 ...                  PRINT_RET       "
"But not yet it hasn't, mark my word. And there's the burden of my inheritance,
little wart! Get thee from my sight ere I slice thee as befits a hog!""
13f38:  41 01 01 00 1d          JE              L00,#01 [FALSE] 13f58
13f3d:  b3 ...                  PRINT_RET       "
"I prithee but once more, begone!""
13f58:  0d 1d 0a                STORE           G0d,#0a
13f5b:  b3 ...                  PRINT_RET       "
The ghost swoops around and through you, making you scream with panic. Somehow
you manage to run back to safety, where your family (who never believe a word
of it) give you plenty of tea and occupy you with holiday arrangements. As for
you, you are so traumatised that you never venture into the attic again.
"

Routine 14018, 0 locals

14019:  c1 97 3a 22 20 00 e9    JE              G2a,#22,#20 [FALSE] 14107
14020:  a9 30                   REMOVE_OBJ      G20
14022:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
14027:  c1 8f 30 00 7a 00 bc    JE              G20,#007a [FALSE] 140e8
1402e:  ce 4f 59 00 5d          INSERT_OBJ      "gothic-looking iron
key","Priest's Hole"
14033:  0b 59 08                SET_ATTR        "gothic-looking iron key",#08
14036:  99 5a                   REMOVE_OBJ      "Sir Joshua Meldrewe"
14038:  da 1f 9d bb 02          CALL_2N         276ec (#02)
1403d:  b3 ...                  PRINT_RET       "The ghost swallows the
wishbone, grinning nastily. Then a look of consternation spreads across his
face. He begins to choke and as he fades away, his arms flailing wildly, he
lets go of the key, which sails through the air onto the roof and (against all
odds) falls neatly down a chimney."
140e8:  b2 ...                  PRINT           "The ghost swallows "
140f5:  da 2f 38 4e 30          CALL_2N         e138 (G20)
140fa:  b3 ...                  PRINT_RET       " whole and grins!"
14107:  c1 97 3a 42 54 00 29    JE              G2a,#42,#54 [FALSE] 14135
1410e:  b3 ...                  PRINT_RET       "Ectoplasm is as nice to touch
as its reputation suggests."
14135:  c1 85 3a 01 03 46 44 00 1b
                               JE              G2a,#0103,#46,#44 [FALSE] 14157
1413e:  b3 ...                  PRINT_RET       ""I'll tell you nothing,
varlet!""
14157:  b1                      RFALSE

Routine 14158, 1 local

14159:  c1 95 2a 18 29 26 80 2e JE              G1a,#18,#29,#26 [TRUE] 1418d
14161:  41 2a 12 80 29          JE              G1a,#12 [TRUE] 1418d
14166:  b3 ...                  PRINT_RET       "There's not enough room in
this confined space to do anything much!"
1418d:  41 3a 26 00 86          JE              G2a,#26 [FALSE] 14216
14192:  41 30 0b 00 80          JE              G20,#0b [FALSE] 14215
14197:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 1419b
1419b:  41 01 00 80 30          JE              L00,#00 [TRUE] 141ce
141a0:  4a 01 1a 00 07          TEST_ATTR       L00,#1a [FALSE] 141aa
141a5:  41 01 4f 00 1f          JE              L00,#4f [FALSE] 141c7
141aa:  b3 ...                  PRINT_RET       "It's too narrow a squeeze for
you at present."
141c7:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 141cb
141cb:  8c ff cf                JUMP            1419b
141ce:  b2 ...                  PRINT           "You squeeze awkwardly down the
chimney. Lucky your best clothes are all packed, because you're getting filthy.
"
14215:  b1                      RFALSE
14216:  b1                      RFALSE

Routine 14218, 1 local

14219:  41 3a 15 00 0e          JE              G2a,#15 [FALSE] 1422a
1421e:  c1 8f 30 00 5e 00 06    JE              G20,#005e [FALSE] 14229
14225:  8f 50 a5                CALL_1N         14294
14228:  b1                      RFALSE
14229:  b1                      RFALSE
1422a:  41 3a 26 00 63          JE              G2a,#26 [FALSE] 14290
1422f:  41 30 0a 00 54          JE              G20,#0a [FALSE] 14286
14234:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 14238
14238:  41 01 00 80 30          JE              L00,#00 [TRUE] 1426b
1423d:  4a 01 1a 00 07          TEST_ATTR       L00,#1a [FALSE] 14247
14242:  41 01 4f 00 1f          JE              L00,#4f [FALSE] 14264
14247:  b3 ...                  PRINT_RET       "It's too narrow a squeeze for
you at present."
14264:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 14268
14268:  8c ff cf                JUMP            14238
1426b:  b2 ...                  PRINT           "You squeeze awkwardly back up
the chimney."
14286:  41 30 0b 00 06          JE              G20,#0b [FALSE] 1428f
1428b:  8f 50 a5                CALL_1N         14294
1428e:  b1                      RFALSE
1428f:  b1                      RFALSE
14290:  b1                      RFALSE

Routine 14294, 0 locals

14295:  ca 1f 00 5e 0e 00 3f    TEST_ATTR       "hatch",#0e [FALSE] 142d9
1429c:  b2 ...                  PRINT           "You zoom rapidly down the
chute, but decelerate just in time and land in a dark corner of...
"
142d9:  b0                      RTRUE

Routine 142dc, 1 local

142dd:  41 3a 2d 02 dc          JE              G2a,#2d [FALSE] 145bc
142e2:  d9 2f 33 e0 3b 01       CALL_2S         cf80 (G2b) -> L00
142e8:  c2 8f 01 06 bd 80 09    JL              L00,#06bd [TRUE] 142f6
142ef:  c3 8f 01 07 00 00 23    JG              L00,#0700 [FALSE] 14317
142f6:  b3 ...                  PRINT_RET       "He didn't seem to be
experimenting in those days."
14317:  c1 8f 01 07 00 02 04    JE              L00,#0700 [FALSE] 14520
1431e:  b2 ...                  PRINT           "In 1792, the last year of his
life, ol' red-eyes becomes very excited about his new discovery. This time he
claims that Merlyn bounde uppe the mystic estate (by this he means the back
garden - Isaac never did have any sense of proportion) wyth great Roddes of
Power. These are dangerous, yet also useful in themselves, but are really part
of a great key... the usual nonsense. Of course you never actually see these
rods, because they disguise themselves until waved by someone wearing Merlyn's
hat.

"
1445f:  b3 ...                  PRINT_RET       "The funny thing is that Isaac
died (legend has it, by spontaneous combustion) only a week after this
breakthrough, preventing him from sending yet another paper to the Royal
Society. But since Merlyn supposedly lived in about the sixth century A.D.,
there can't be a lot left of his hat, so the matter may be academic."
14520:  b2 ...                  PRINT           "In the year "
14529:  da 2f 99 a2 01          CALL_2N         26688 (L00)
1452e:  b2 ...                  PRINT           ", Isaac was mainly concerned
with "
14543:  58 01 06 01             MOD             L00,#06 -> L00
14547:  41 01 00 00 09          JE              L00,#00 [FALSE] 14553
1454c:  b3 ...                  PRINT_RET       "alchemy."
14553:  41 01 01 00 11          JE              L00,#01 [FALSE] 14567
14558:  b3 ...                  PRINT_RET       "caustical opticks."
14567:  41 01 02 00 0f          JE              L00,#02 [FALSE] 14579
1456c:  b3 ...                  PRINT_RET       "concave mirrors."
14579:  41 01 03 00 15          JE              L00,#03 [FALSE] 14591
1457e:  b3 ...                  PRINT_RET       "the edibility of reptiles."
14591:  41 01 04 00 17          JE              L00,#04 [FALSE] 145ab
14596:  b3 ...                  PRINT_RET       "the spleens of flightless
birds."
145ab:  b3 ...                  PRINT_RET       "melting points of metals."
145bc:  b1                      RFALSE

Routine 145c0, 0 locals

145c1:  b2 ...                  PRINT           "A pleasantly furnished, if now
mildewed, box room. There are engravings of Alison's heroines: Christina
Rossetti, Elizabeth Browning, Emily Dickinson and Queen Victoria, an unlikely
quartet. The wallpaper is done out in a dice motif, and a square outline of
sixes surrounds a rather small door leading back north into the attics.

"
14696:  c6 0f 01 0e 00 61 00 27 JIN             "flag of the British Merchant
Navy","comfortable bed" [FALSE] 146c3
1469e:  b3 ...                  PRINT_RET       "The flag is spread out as a
blanket on the comfortable bed."
146c3:  b3 ...                  PRINT_RET       "The room is provided with a
comfortable bed, which looks very inviting."

Routine 146f0, 0 locals

146f1:  41 3a 49 00 f2          JE              G2a,#49 [FALSE] 147e6
146f6:  c6 8f 19 00 61 00 ea    JIN             G09,"comfortable bed" [FALSE]
147e5
146fd:  c6 0f 01 0e 00 61 80 67 JIN             "flag of the British Merchant
Navy","comfortable bed" [TRUE] 1476a
14705:  b3 ...                  PRINT_RET       "Awareness that something
important is happening tugs at your subconscious.

But you feel too exposed to sleep with only a sheet on the bed, and can't get
comfortable."
1476a:  da 1f 9d bb 1a          CALL_2N         276ec (#1a)
1476f:  ca 1f 00 61 08 00 17    TEST_ATTR       "comfortable bed",#08 [FALSE]
1478b
14776:  b3 ...                  PRINT_RET       "You doze awhile, but that's
all."
1478b:  cb 1f 00 61 08          SET_ATTR        "comfortable bed",#08
14790:  b2 ...                  PRINT           "You sleep uneasily, fancying
you can see Miss Alison writing at her table, trying to see the words, and
always on the edge of a...
"
147e1:  8f 7b 3a                CALL_1N         1ece8
147e4:  b0                      RTRUE
147e5:  b1                      RFALSE
147e6:  b1                      RFALSE

Routine 147e8, 0 locals

147e9:  41 3a 12 00 0f          JE              G2a,#12 [FALSE] 147fb
147ee:  ca 1f 01 71 18 00 07    TEST_ATTR       "Melancholy Dream",#18 [FALSE]
147fa
147f5:  da 1f 97 a4 2c          CALL_2N         25e90 (#2c)
147fa:  b1                      RFALSE
147fb:  b1                      RFALSE

Routine 147fc, 0 locals

147fd:  c1 8f 3a 01 01 00 46    JE              G2a,#0101 [FALSE] 14848
14804:  c1 8f 30 01 0e 80 1f    JE              G20,#010e [TRUE] 14828
1480b:  b3 ...                  PRINT_RET       "That seems unlikely to make a
good blanket."
14828:  ce 1f 01 0e 61          INSERT_OBJ      "flag of the British Merchant
Navy","comfortable bed"
1482d:  b3 ...                  PRINT_RET       "You spread the flag over the
bed as a blanket."
14848:  b1                      RFALSE

Routine 1484c, 0 locals

1484d:  c1 95 3a 42 3d 3c 00 4f JE              G2a,#42,#3d,#3c [FALSE] 148a2
14855:  0b 62 0e                SET_ATTR        "windows",#0e
14858:  0b 62 0f                SET_ATTR        "windows",#0f
1485b:  e3 93 2f 02 ff ff       PUT_PROP        G1f,#02,#ffff
14861:  b3 ...                  PRINT_RET       "The windows suddenly give way
in a shower of flakes of paint, letting fresh summer air into the room!"
148a2:  41 3a 15 00 17          JE              G2a,#15 [FALSE] 148bc
148a7:  4a 2f 0e 80 11          TEST_ATTR       G1f,#0e [TRUE] 148bb
148ac:  b3 ...                  PRINT_RET       "The windows are shut."
148bb:  b1                      RFALSE
148bc:  41 3a 2e 00 1f          JE              G2a,#2e [FALSE] 148de
148c1:  b3 ...                  PRINT_RET       "The windows are old and gummed
up somehow."
148de:  b1                      RFALSE

Routine 148e0, 1 local

148e1:  ca 1f 00 63 08 00 03    TEST_ATTR       "long vanity mirror",#08
[FALSE] 148e9
148e8:  b1                      RFALSE
148e9:  66 01 19 80 07          JIN             L00,G09 [TRUE] 148f3
148ee:  46 01 4f 00 12          JIN             L00,"canvas rucksack" [FALSE]
14903
148f3:  4a 01 1c 80 0c          TEST_ATTR       L00,#1c [TRUE] 14902
148f8:  4a 01 21 80 07          TEST_ATTR       L00,#21 [TRUE] 14902
148fd:  4a 01 22 00 03          TEST_ATTR       L00,#22 [FALSE] 14903
14902:  b0                      RTRUE
14903:  b1                      RFALSE

Routine 14904, 0 locals

14905:  c6 0f 01 e3 01 de 00 6e JIN             "Crescent Moon","Old Evans"
[FALSE] 14979
1490d:  cc 1f 01 a6 08          CLEAR_ATTR      "model of an animal so ugly you
can't bear to look at it",#08
14912:  b3 ...                  PRINT_RET       "
The monkey revels briefly in its new life, but then catches your eyes, sadly
realising you offer it no home. Quite quickly it settles back into an ugly
idol."
14979:  89 01 a6                REMOVE_OBJ      "model of an animal so ugly you
can't bear to look at it"
1497c:  cc 1f 01 a6 08          CLEAR_ATTR      "model of an animal so ugly you
can't bear to look at it",#08
14981:  ce 0f 01 e2 01 dd       INSERT_OBJ      "pet monkey","Stone Cross"
14987:  e3 13 01 de 12 be cd    PUT_PROP        "Old Evans",#12,S162
1498e:  b3 ...                  PRINT_RET       "
Now that you have finally been able to look it in the eyes, the monkey leaps
from your arms, revelling in its new life, and scampers away through the
windows onto the balcony, then up and over the side of the house. You can just
make it out as it races down the footpath."

Routine 14a2c, 2 locals

14a2d:  41 3a 42 00 1b          JE              G2a,#42 [FALSE] 14a4b
14a32:  b3 ...                  PRINT_RET       "What, and earn seven years bad
luck?"
14a4b:  41 3a 5a 00 25          JE              G2a,#5a [FALSE] 14a73
14a50:  4b 2f 08                SET_ATTR        G1f,#08
14a53:  da 1f 97 a4 15          CALL_2N         25e90 (#15)
14a58:  b3 ...                  PRINT_RET       "You polish up the mirror just
a little more."
14a73:  c1 97 3a 2a 2b 00 ac    JE              G2a,#2a,#2b [FALSE] 14b24
14a7a:  b2 ...                  PRINT           "In the mirror is one of the
most strikingly attractive people you have ever seen in all your born days"
14ab7:  0d 02 00                STORE           L01,#00
14aba:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 14abe
14abe:  41 01 00 80 1f          JE              L00,#00 [TRUE] 14ae0
14ac3:  d9 2f 52 38 01 00       CALL_2S         148e0 (L00) -> -(SP)
14ac9:  41 00 00 00 0a          JE              (SP)+,#00 [FALSE] 14ad6
14ace:  95 02                   INC             L01
14ad0:  4b 01 19                SET_ATTR        L00,#19
14ad3:  8c 00 05                JUMP            14ad9
14ad6:  4c 01 19                CLEAR_ATTR      L00,#19
14ad9:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 14add
14add:  8c ff e0                JUMP            14abe
14ae0:  41 02 00 00 05          JE              L01,#00 [FALSE] 14ae8
14ae5:  b3 ...                  PRINT_RET       "."
14ae8:  b2 ...                  PRINT           ", carrying "
14af1:  ca 1f 01 a6 19 00 07    TEST_ATTR       "model of an animal so ugly you
can't bear to look at it",#19 [FALSE] 14afd
14af8:  cb 1f 01 a6 08          SET_ATTR        "model of an animal so ugly you
can't bear to look at it",#08
14afd:  d4 0f 02 00 00 08 00    ADD             #0200,#0008 -> -(SP)
14b04:  d4 8f 00 00 40 00       ADD             (SP)+,#0040 -> -(SP)
14b0a:  a2 19 00 c2             GET_CHILD       G09 -> -(SP) [TRUE] 14b0e
14b0e:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
14b14:  b2 ...                  PRINT           ".
"
14b19:  ca 1f 01 a6 08 00 05    TEST_ATTR       "model of an animal so ugly you
can't bear to look at it",#08 [FALSE] 14b23
14b20:  8f 52 41                CALL_1N         14904
14b23:  b0                      RTRUE
14b24:  b1                      RFALSE

Routine 14b28, 0 locals

14b29:  c1 97 3a 2b 2c 00 22    JE              G2a,#2b,#2c [FALSE] 14b50
14b30:  ca 1f 00 66 02 00 1a    TEST_ATTR       "delicate gold key",#02 [FALSE]
14b4f
14b37:  cc 1f 00 66 02          CLEAR_ATTR      "delicate gold key",#02
14b3c:  b3 ...                  PRINT_RET       "You dislodge something shiny!"
14b4f:  b1                      RFALSE
14b50:  b1                      RFALSE

Routine 14b54, 0 locals

14b55:  41 3a 29 00 a9          JE              G2a,#29 [FALSE] 14c01
14b5a:  4a 2f 08 00 03          TEST_ATTR       G1f,#08 [FALSE] 14b60
14b5f:  b1                      RFALSE
14b60:  4b 2f 08                SET_ATTR        G1f,#08
14b63:  b2 ...                  PRINT           "
As you disturb the still air, the attic key, which was balanced on top of the
demijohn, slips onto the floor and disappears into a crack in the floorboards.
Your spirits sink as it does, rattling down some distance. How on earth are you
going to get it back?
"
14c00:  b1                      RFALSE
14c01:  b1                      RFALSE

Routine 14c04, 0 locals

14c05:  b2 ...                  PRINT           "
Sorry. Thinking about it again, the score only gets in a muddle this way, so
the bonus points had better go after all.
"
14c50:  0d 8d 00                STORE           G7d,#00
14c53:  0d 90 01                STORE           G80,#01
14c56:  55 17 05 17             SUB             G07,#05 -> G07
14c5a:  b1                      RFALSE

Routine 14c5c, 0 locals

14c5d:  41 3a 1b 00 31          JE              G2a,#1b [FALSE] 14c91
14c62:  c1 8f 31 00 68 00 29    JE              G21,#0068 [FALSE] 14c90
14c69:  b3 ...                  PRINT_RET       "We know already what happens
to things balanced on the demijohn."
14c90:  b1                      RFALSE
14c91:  b1                      RFALSE

Routine 14c94, 0 locals

14c95:  41 3a 2e 00 3a          JE              G2a,#2e [FALSE] 14cd2
14c9a:  ca 1f 00 71 1a 80 2d    TEST_ATTR       "old gardeners' gloves",#1a
[TRUE] 14ccc
14ca1:  b3 ...                  PRINT_RET       "Your hands slip on the
screw-top of the demijohn and can't get a grip."
14ccc:  da 1f 9d bb 04          CALL_2N         276ec (#04)
14cd1:  b1                      RFALSE
14cd2:  41 3a 42 00 45          JE              G2a,#42 [FALSE] 14d1a
14cd7:  b3 ...                  PRINT_RET       "The demijohn is made of
something like industrial-grade chemistry glass. You kick it and hurt your
foot."
14d1a:  b1                      RFALSE

Routine 14d1c, 1 local

14d1d:  41 3a 2d 01 5d          JE              G2a,#2d [FALSE] 14e7d
14d22:  46 2f 68 00 19          JIN             G1f,"labelled glass demijohn"
[FALSE] 14d3e
14d27:  b3 ...                  PRINT_RET       "You can't get a close enough
look."
14d3e:  d9 2f 33 e0 3b 01       CALL_2S         cf80 (G2b) -> L00
14d44:  c1 8f 01 05 8c 00 d1    JE              L00,#058c [FALSE] 14e1a
14d4b:  ca 1f 00 b1 18 00 15    TEST_ATTR       "Museum Foyer",#18 [FALSE]
14d65
14d52:  b3 ...                  PRINT_RET       "You remember, the museum."
14d65:  b2 ...                  PRINT           "
At that exact grid reference is Meldreustrasse, a minor back street which
houses a museum of arcana.

Suddenly you remember!  You visited the place once, and the curator Doktor
Stein showed you round... and he hypnotised you into a swirl of
unconsciousness...

"
14e10:  2e 6a 11                INSERT_OBJ      "tourist map",G01
14e13:  da 0f 9d 20 00 b1       CALL_2N         27480 (#00b1)
14e19:  b0                      RTRUE
14e1a:  b3 ...                  PRINT_RET       "Just some anonymous streets.
The detail of this map is so tiny that unless you have the exact four-digit
grid reference for what you want, you'll never find it."
14e7d:  b1                      RFALSE

Routine 14e80, 0 locals

14e81:  41 3a 29 00 35          JE              G2a,#29 [FALSE] 14eb9
14e86:  ca 1f 00 6f 08 00 2d    TEST_ATTR       "antiquated wireless",#08
[FALSE] 14eb8
14e8d:  c6 0f 00 6f 00 6d 00 25 JIN             "antiquated wireless","Airing
Cupboard" [FALSE] 14eb8
14e95:  b2 ...                  PRINT           "
Execrable music drifts in from the airing cupboard.
"
14eb8:  b1                      RFALSE
14eb9:  b1                      RFALSE

Routine 14ebc, 2 locals

14ebd:  41 3a 2a 00 c4          JE              G2a,#2a [FALSE] 14f84
14ec2:  b2 ...                  PRINT           "The calendar is turned to "
14ed3:  51 2f 18 01             GET_PROP        G1f,#18 -> L00
14ed7:  41 01 00 00 09          JE              L00,#00 [FALSE] 14ee3
14edc:  b2 ...                  PRINT           "January"
14ee3:  41 01 01 00 09          JE              L00,#01 [FALSE] 14eef
14ee8:  b2 ...                  PRINT           "February"
14eef:  41 01 02 00 07          JE              L00,#02 [FALSE] 14ef9
14ef4:  b2 ...                  PRINT           "March"
14ef9:  41 01 03 00 07          JE              L00,#03 [FALSE] 14f03
14efe:  b2 ...                  PRINT           "April"
14f03:  41 01 04 00 07          JE              L00,#04 [FALSE] 14f0d
14f08:  b2 ...                  PRINT           "May"
14f0d:  41 01 05 00 07          JE              L00,#05 [FALSE] 14f17
14f12:  b2 ...                  PRINT           "June"
14f17:  41 01 06 00 07          JE              L00,#06 [FALSE] 14f21
14f1c:  b2 ...                  PRINT           "July"
14f21:  41 01 07 00 09          JE              L00,#07 [FALSE] 14f2d
14f26:  b2 ...                  PRINT           "August"
14f2d:  41 01 08 00 0b          JE              L00,#08 [FALSE] 14f3b
14f32:  b2 ...                  PRINT           "September"
14f3b:  41 01 09 00 09          JE              L00,#09 [FALSE] 14f47
14f40:  b2 ...                  PRINT           "October"
14f47:  41 01 0a 00 09          JE              L00,#0a [FALSE] 14f53
14f4c:  b2 ...                  PRINT           "November"
14f53:  41 01 0b 00 09          JE              L00,#0b [FALSE] 14f5f
14f58:  b2 ...                  PRINT           "December"
14f5f:  b2 ...                  PRINT           " and a watercolour painting of
some "
14f76:  da 2f 57 cd 01          CALL_2N         15f34 (L00)
14f7b:  b3 ...                  PRINT_RET       " daisies."
14f84:  c1 97 3a 3f 40 00 1a    JE              G2a,#3f,#40 [FALSE] 14fa3
14f8b:  51 2f 18 00             GET_PROP        G1f,#18 -> -(SP)
14f8f:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
14f93:  58 00 0c 00             MOD             (SP)+,#0c -> -(SP)
14f97:  e3 9b 2f 18 00          PUT_PROP        G1f,#18,(SP)+
14f9c:  f9 1b 36 0d 2a 2f       CALL_VN         d834 (#2a,G1f)
14fa2:  b0                      RTRUE
14fa3:  41 3a 2d 00 b3          JE              G2a,#2d [FALSE] 15059
14fa8:  41 3c 01 00 97          JE              G2c,#01 [FALSE] 15042
14fad:  2d 42 3b                STORE           G32,G2b
14fb0:  88 33 bc 02             CALL_1S         cef0 -> L01
14fb4:  cd 4f 01 ff ff          STORE           L00,#ffff
14fb9:  c1 8f 02 88 3e 00 05    JE              L01,"january" [FALSE] 14fc3
14fc0:  0d 01 00                STORE           L00,#00
14fc3:  c1 8f 02 81 00 00 05    JE              L01,"february" [FALSE] 14fcd
14fca:  0d 01 01                STORE           L00,#01
14fcd:  c1 8f 02 8b 3b 00 05    JE              L01,"march" [FALSE] 14fd7
14fd4:  0d 01 02                STORE           L00,#02
14fd7:  c1 8f 02 75 4b 00 05    JE              L01,"april" [FALSE] 14fe1
14fde:  0d 01 03                STORE           L00,#03
14fe1:  c1 8f 02 8b 9e 00 05    JE              L01,"may" [FALSE] 14feb
14fe8:  0d 01 04                STORE           L00,#04
14feb:  c1 8f 02 88 86 00 05    JE              L01,"june" [FALSE] 14ff5
14ff2:  0d 01 05                STORE           L00,#05
14ff5:  c1 8f 02 88 74 00 05    JE              L01,"july" [FALSE] 14fff
14ffc:  0d 01 06                STORE           L00,#06
14fff:  c1 8f 02 76 08 00 05    JE              L01,"august" [FALSE] 15009
15006:  0d 01 07                STORE           L00,#07
15009:  c1 8f 02 97 ad 00 05    JE              L01,"september" [FALSE] 15013
15010:  0d 01 08                STORE           L00,#08
15013:  c1 8f 02 8e a4 00 05    JE              L01,"october" [FALSE] 1501d
1501a:  0d 01 09                STORE           L00,#09
1501d:  c1 8f 02 8e 2f 00 05    JE              L01,"november" [FALSE] 15027
15024:  0d 01 0a                STORE           L00,#0a
15027:  c1 8f 02 7d 34 00 05    JE              L01,"december" [FALSE] 15031
1502e:  0d 01 0b                STORE           L00,#0b
15031:  42 01 00 80 0e          JL              L00,#00 [TRUE] 15042
15036:  e3 9b 2f 18 01          PUT_PROP        G1f,#18,L00
1503b:  f9 1b 36 0d 2a 2f       CALL_VN         d834 (#2a,G1f)
15041:  b0                      RTRUE
15042:  b3 ...                  PRINT_RET       "It only has the usual twelve
months."
15059:  b1                      RFALSE

Routine 1505c, 0 locals

1505d:  41 3a 13 00 97          JE              G2a,#13 [FALSE] 150f7
15062:  b2 ...                  PRINT           "The thought of Jemima's wrath
if you actually took one of her tie-dyed sheets ("Dyeing is an art like
everything else... I do it very well") is just too dreadful. "
150cf:  ca 1f 00 6f 02 00 21    TEST_ATTR       "antiquated wireless",#02
[FALSE] 150f5
150d6:  b3 ...                  PRINT_RET       "But there seems to be
something lurking beneath."
150f5:  bb                      NEW_LINE
150f6:  b0                      RTRUE
150f7:  c1 95 3a 2b 2c 2a 00 96 JE              G2a,#2b,#2c,#2a [FALSE] 15193
150ff:  ca 1f 00 6f 02 00 5b    TEST_ATTR       "antiquated wireless",#02
[FALSE] 1515f
15106:  cc 1f 00 6f 02          CLEAR_ATTR      "antiquated wireless",#02
1510b:  da 1f 9d bb 08          CALL_2N         276ec (#08)
15110:  b3 ...                  PRINT_RET       "Not as many sheets as you
thought - they were on top of a large black wireless, now exposed to the light
for the first time in months."
1515f:  b2 ...                  PRINT           "No, you're only getting your "
15172:  ca 1f 00 71 1a 00 0a    TEST_ATTR       "old gardeners' gloves",#1a
[FALSE] 15181
15179:  b2 ...                  PRINT           "gloves"
1517e:  8c 00 07                JUMP            15186
15181:  b2 ...                  PRINT           "hands"
15186:  b3 ...                  PRINT_RET       " stained looking."
15193:  b1                      RFALSE

Routine 15194, 0 locals

15195:  ca 1f 00 6f 0d 80 0d    TEST_ATTR       "antiquated wireless",#0d
[TRUE] 151a7
1519c:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
151a1:  cc 1f 00 6f 08          CLEAR_ATTR      "antiquated wireless",#08
151a6:  b0                      RTRUE
151a7:  c6 1f 00 6f 6b 00 1d    JIN             "antiquated wireless","Aunt
Jemima's Lair" [FALSE] 151c9
151ae:  c1 8f 11 00 70 00 16    JE              G01,#0070 [FALSE] 151c9
151b5:  b2 ...                  PRINT           "
Jemima hums along to "
151c6:  8c 00 1a                JUMP            151e1
151c9:  c6 2f 00 6f 11 00 12    JIN             "antiquated wireless",G01
[FALSE] 151e0
151d0:  b2 ...                  PRINT           "
The radio plays "
151dd:  8c 00 03                JUMP            151e1
151e0:  b0                      RTRUE
151e1:  e7 7f 51 00             RANDOM          #51 -> -(SP)
151e5:  41 00 01 00 45          JE              (SP)+,#01 [FALSE] 1522d
151ea:  b3 ...                  PRINT_RET       "a splendid concert of the
Sibelius Violin Concerto by the Minot Symphony Orchestra of North Dakota."
1522d:  d9 0f 38 3c 61 74 00    CALL_2S         e0f0 (#6174) -> -(SP)
15234:  ad 00                   PRINT_PADDR     (SP)+
15236:  d9 0f 38 3c 61 8e 00    CALL_2S         e0f0 (#618e) -> -(SP)
1523d:  ad 00                   PRINT_PADDR     (SP)+
1523f:  d9 0f 38 3c 61 9a 00    CALL_2S         e0f0 (#619a) -> -(SP)
15246:  ad 00                   PRINT_PADDR     (SP)+
15248:  bb                      NEW_LINE
15249:  b0                      RTRUE

Routine 1524c, 0 locals

1524d:  4a 2f 02 00 17          TEST_ATTR       G1f,#02 [FALSE] 15267
15252:  b3 ...                  PRINT_RET       "You've played this game
before."
15267:  41 3a 13 00 1b          JE              G2a,#13 [FALSE] 15285
1526c:  b3 ...                  PRINT_RET       "It's too heavy to lift off the
casters."
15285:  c1 95 3a 3d 3c 3f 00 17 JE              G2a,#3d,#3c,#3f [FALSE] 152a2
1528d:  b3 ...                  PRINT_RET       "It moves easily on the
casters."
152a2:  41 3a 3e 00 c5          JE              G2a,#3e [FALSE] 1536a
152a7:  41 11 6b 00 18          JE              G01,#6b [FALSE] 152c2
152ac:  41 31 04 00 13          JE              G21,#04 [FALSE] 152c2
152b1:  b3 ...                  PRINT_RET       "Not upstairs you can't."
152c2:  41 11 6b 00 a1          JE              G01,#6b [FALSE] 15366
152c7:  41 31 05 00 9c          JE              G21,#05 [FALSE] 15366
152cc:  0d 1d 03                STORE           G0d,#03
152cf:  b3 ...                  PRINT_RET       "Aunt Jemima spends the next
four hours explaining to you exactly why she put the radio into storage. The
reason is awfully convoluted and due to her firm conviction that magnetic
fields influence the growth of plants. By that time you have to leave for the
airport..."
15366:  8f a2 33                CALL_1N         288cc
15369:  b0                      RTRUE
1536a:  b1                      RFALSE

Routine 1536c, 0 locals

1536d:  41 3a 40 00 29          JE              G2a,#40 [FALSE] 15399
15372:  f9 27 37 1a 2f 06       CALL_VN         dc68 (G1f,#06)
15378:  b3 ...                  PRINT_RET       "You push the switch on the
wireless, but nothing happens."
15399:  41 3a 31 00 1a          JE              G2a,#31 [FALSE] 153b6
1539e:  4a 2f 08 00 14          TEST_ATTR       G1f,#08 [FALSE] 153b5
153a3:  0c 6f 08                CLEAR_ATTR      "antiquated wireless",#08
153a6:  b3 ...                  PRINT_RET       "Thank heaven for that."
153b5:  b1                      RFALSE
153b6:  41 3a 3e 00 18          JE              G2a,#3e [FALSE] 153d1
153bb:  b2 ...                  PRINT           "It moves easily on the
casters.
"
153d0:  b1                      RFALSE
153d1:  b1                      RFALSE

Routine 153d4, 0 locals

153d5:  4a 2f 0d 00 99          TEST_ATTR       G1f,#0d [FALSE] 15471
153da:  da 1f 37 47 6e          CALL_2N         dd1c (#6e)
153df:  4b 2f 08                SET_ATTR        G1f,#08
153e2:  26 6f 11 00 4d          JIN             "antiquated wireless",G01
[FALSE] 15432
153e7:  b2 ...                  PRINT           "
The radio valves glow, and execrable so-called easy listening music fills the
air with a sort of bland aural candy-floss.
"
15432:  c1 8f 11 00 70 00 3a    JE              G01,#0070 [FALSE] 15471
15439:  06 6f 6b 00 35          JIN             "antiquated wireless","Aunt
Jemima's Lair" [FALSE] 15471
1543e:  b2 ...                  PRINT           "
Execrable music begins to sound from the conservatory, and Aunt Jemima hums
vacantly.
"
15471:  b1                      RFALSE

Routine 15474, 0 locals

15475:  4a 2f 08 00 4d          TEST_ATTR       G1f,#08 [FALSE] 154c5
1547a:  b3 ...                  PRINT_RET       "
The wireless fills the air with Jemima's favourite station, "Mild-n-Breezy FM",
about which the least said the better."
154c5:  b2 ...                  PRINT           "
To one side is a heavy cabinet on casters containing an antiquated wireless,
the kind with "
154fe:  4a 2f 0d 00 09          TEST_ATTR       G1f,#0d [FALSE] 1550a
15503:  b2 ...                  PRINT           "glowing "
1550a:  b3 ...                  PRINT_RET       "valves inside. On the top is a
bakelite on-off switch."

Routine 15530, 0 locals

15531:  41 3a 26 00 67          JE              G2a,#26 [FALSE] 1559b
15536:  83 00 73 00             GET_PARENT      "daisy chain" -> -(SP)
1553a:  41 00 00 00 5d          JE              (SP)+,#00 [FALSE] 1559a
1553f:  41 9d 01 00 58          JE              G8d,#01 [FALSE] 1559a
15544:  cb 1f 00 72 08          SET_ATTR        "Jemima",#08
15549:  b2 ...                  PRINT           "
"Oh, silly old you," says Jemima condescendingly, "You've lost your daisy
chain!  What colour do you want then?"
"
1559a:  b1                      RFALSE
1559b:  41 3a 29 00 5b          JE              G2a,#29 [FALSE] 155f9
155a0:  0a 6f 08 00 28          TEST_ATTR       "antiquated wireless",#08
[FALSE] 155cb
155a5:  06 6f 6b 00 23          JIN             "antiquated wireless","Aunt
Jemima's Lair" [FALSE] 155cb
155aa:  b2 ...                  PRINT           "
Execrable music drifts in from the conservatory.
"
155cb:  0a 6f 08 00 2a          TEST_ATTR       "antiquated wireless",#08
[FALSE] 155f8
155d0:  06 6f 6d 00 25          JIN             "antiquated wireless","Airing
Cupboard" [FALSE] 155f8
155d5:  b2 ...                  PRINT           "
Happily, the radio is almost inaudible from here.
"
155f8:  b1                      RFALSE
155f9:  b1                      RFALSE

Routine 155fc, 0 locals

155fd:  41 3a 13 00 91          JE              G2a,#13 [FALSE] 15691
15602:  06 6f 6b 00 08          JIN             "antiquated wireless","Aunt
Jemima's Lair" [FALSE] 1560d
15607:  0a 6f 08 00 03          TEST_ATTR       "antiquated wireless",#08
[FALSE] 1560d
1560c:  b1                      RFALSE
1560d:  0a 71 0c 80 80          TEST_ATTR       "old gardeners' gloves",#0c
[TRUE] 15690
15612:  0d 1d 03                STORE           G0d,#03
15615:  b3 ...                  PRINT_RET       "Aunt Jemima suddenly hears
you, spins round to see you filching her gloves and screeches with irritation,
eventually summoning the entire family. You volunteer to shift some suitcases
about just to get away from her."
15690:  b1                      RFALSE
15691:  b1                      RFALSE

Routine 15694, 0 locals

15695:  41 11 70 80 09          JE              G01,#70 [TRUE] 156a1
1569a:  f9 27 37 1a 2f 01       CALL_VN         dc68 (G1f,#01)
156a0:  b0                      RTRUE
156a1:  b2 ...                  PRINT           "
"There we are!  All done now."  Jemima hangs a daisy chain around your neck,
then frowns and adjusts your hair in an exceedingly annoying way.
"
15700:  da 1f 9d bb 09          CALL_2N         276ec (#09)
15705:  cb 1f 00 73 0c          SET_ATTR        "daisy chain",#0c
1570a:  cb 1f 00 73 1a          SET_ATTR        "daisy chain",#1a
1570f:  0d 9d 01                STORE           G8d,#01
15712:  ce 2f 00 73 19          INSERT_OBJ      "daisy chain",G09
15717:  b0                      RTRUE

Routine 15718, 1 local

15719:  c1 8f 3a 01 03 00 86    JE              G2a,#0103 [FALSE] 157a4
15720:  41 2a 22 00 4e          JE              G1a,#22 [FALSE] 15771
15725:  41 30 71 00 49          JE              G20,#71 [FALSE] 15771
1572a:  b3 ...                  PRINT_RET       ""I can't give you those, I'm
using them!"

(This is plainly not true, but you know how it is with aunts.)"
15771:  b3 ...                  PRINT_RET       "Aunt Jemima has never done
what you suggested at the best of times. This is not the best of times."
157a4:  41 3a 22 02 76          JE              G2a,#22 [FALSE] 15a1d
157a9:  41 30 34 00 c9          JE              G20,#34 [FALSE] 15875
157ae:  99 34                   REMOVE_OBJ      "box of chocolates"
157b0:  da 1f 9d bb 0a          CALL_2N         276ec (#0a)
157b5:  0b 72 08                SET_ATTR        "Jemima",#08
157b8:  e3 53 72 12 c2 d2       PUT_PROP        "Jemima",#12,S283
157be:  b3 ...                  PRINT_RET       "Aunt Jemima pounces on the
chocolates, wolfs down a strawberry cream and persuades you to have a vile
toffee cracknell. "Now," she says, "Your turn for a daisy chain!"

You try to look pleased.

"Let's see, the others have had theirs... I have only a few colours left. What
would you like?""
15875:  41 30 22 00 3b          JE              G20,#22 [FALSE] 158b3
1587a:  b2 ...                  PRINT           "Jemima grudgingly takes the
biscuit and nibbles at it, but she is still sulking.
"
158ad:  8f aa 21                CALL_1N         2a884
158b0:  99 22                   REMOVE_OBJ      "chocolate biscuit"
158b2:  b0                      RTRUE
158b3:  41 30 38 00 31          JE              G20,#38 [FALSE] 158e7
158b8:  b3 ...                  PRINT_RET       "Jemima looks very suspiciously
at the pill. "Not just now, thanks.""
158e7:  41 30 37 00 d4          JE              G20,#37 [FALSE] 159be
158ec:  4a 30 0b 00 cf          TEST_ATTR       G20,#0b [FALSE] 159be
158f1:  99 38                   REMOVE_OBJ      "red tablet"
158f3:  0c 37 0b                CLEAR_ATTR      "mb",#0b
158f6:  0b 37 0e                SET_ATTR        "mb",#0e
158f9:  b3 ...                  PRINT_RET       "Jemima takes the bottle
absent-mindedly, opens it without the slightest difficulty and (before you can
stop her) swallows the pill. You'd better hope it wouldn't have been useful
anyway.

"I'm always leaving my medicine lying around," she says vaguely as she hands
the bottle back. "I'll forget my head one day.""
159be:  b2 ...                  PRINT           "A peace offering is a nice
idea, but somehow "
159db:  da 2f 38 4e 30          CALL_2N         e138 (G20)
159e0:  41 30 33 00 29          JE              G20,#33 [FALSE] 15a0c
159e5:  b2 ...                  PRINT           " lacks style... after all, it
isn't Christmas.
"
15a08:  8f aa 21                CALL_1N         2a884
15a0b:  b0                      RTRUE
15a0c:  b3 ...                  PRINT_RET       " seems inappropriate."
15a1d:  41 3a 54 00 25          JE              G2a,#54 [FALSE] 15a45
15a22:  b2 ...                  PRINT           "She is slightly mollified, but
only slightly.
"
15a41:  8f aa 21                CALL_1N         2a884
15a44:  b0                      RTRUE
15a45:  41 3a 42 00 28          JE              G2a,#42 [FALSE] 15a70
15a4a:  da 1f 97 a4 1c          CALL_2N         25e90 (#1c)
15a4f:  b3 ...                  PRINT_RET       "Well, she's annoying, but
that's family for you."
15a70:  41 3a 20 00 34          JE              G2a,#20 [FALSE] 15aa7
15a75:  da 1f 97 a4 1c          CALL_2N         25e90 (#1c)
15a7a:  b3 ...                  PRINT_RET       "Well, quite. Best to just grit
your teeth and put up with her though."
15aa7:  41 3a 44 01 71          JE              G2a,#44 [FALSE] 15c1b
15aac:  4a 2f 08 80 34          TEST_ATTR       G1f,#08 [TRUE] 15ae3
15ab1:  da 1f 97 a4 11          CALL_2N         25e90 (#11)
15ab6:  b3 ...                  PRINT_RET       "She pretends not to have
heard, a favourite ploy of hers when sulking."
15ae3:  0c 72 08                CLEAR_ATTR      "Jemima",#08
15ae6:  0d 01 00                STORE           L00,#00
15ae9:  c1 83 30 a2 c0 a2 c9 00 05
                               JE              G20,"yellow","yellowish" [FALSE]
15af5
15af2:  0d 01 01                STORE           L00,#01
15af5:  c1 8f 30 77 ca 00 05    JE              G20,"blue" [FALSE] 15aff
15afc:  0d 01 02                STORE           L00,#02
15aff:  c1 8f 30 94 3b 00 05    JE              G20,"red" [FALSE] 15b09
15b06:  0d 01 04                STORE           L00,#04
15b09:  c1 83 30 a1 58 91 74 00 05
                               JE              G20,"white","plain" [FALSE]
15b15
15b12:  0d 01 05                STORE           L00,#05
15b15:  c1 8f 30 84 8d 00 05    JE              G20,"green" [FALSE] 15b1f
15b1c:  0d 01 06                STORE           L00,#06
15b1f:  c1 8f 30 8f 4f 00 05    JE              G20,"orange" [FALSE] 15b29
15b26:  0d 01 09                STORE           L00,#09
15b29:  41 01 00 80 2f          JE              L00,#00 [TRUE] 15b5b
15b2e:  b2 ...                  PRINT           ""Right you are then, I'm sure
I have some which are just right."

"
15b5b:  41 01 00 00 36          JE              L00,#00 [FALSE] 15b94
15b60:  0d 01 05                STORE           L00,#05
15b63:  b2 ...                  PRINT           ""Nothing like that left. Just
plain old daisies for you then dear!"

"
15b94:  f9 17 37 1a 72 07       CALL_VN         dc68 (#72,#07)
15b9a:  e3 1b 00 73 17 01       PUT_PROP        "daisy chain",#17,L00
15ba0:  b3 ...                  PRINT_RET       "After a moment she notices
you're still here. "Come back later, it'll be done soon."  You groan inwardly
but force a sickly smile. Should have eaten the chocolates myself, you find
yourself thinking."
15c1b:  41 3a 46 02 47          JE              G2a,#46 [FALSE] 15e65
15c20:  da 1f 97 a4 11          CALL_2N         25e90 (#11)
15c25:  c1 83 31 7c e3 7a 13 00 29
                               JE              G21,"daisies","chains" [FALSE]
15c55
15c2e:  b3 ...                  PRINT_RET       "Jemima gives you a cool look.
"They're just for decoration.""
15c55:  c1 83 31 76 1a 79 b0 00 27
                               JE              G21,"austin","cat" [FALSE] 15c83
15c5e:  b3 ...                  PRINT_RET       ""Wretched cat!  More trouble
than he's worth.""
15c83:  c1 83 31 95 eb 83 f4 00 15
                               JE              G21,"rubber","gloves" [FALSE]
15c9f
15c8c:  b3 ...                  PRINT_RET       ""Those are my gloves.""
15c9f:  c1 80 31 9e 91 8b 29 90 6f 80 09
                               JE              G21,"tourist","map","paris"
[TRUE] 15cb1
15caa:  c1 8f 31 86 a9 00 27    JE              G21,"holiday" [FALSE] 15cd6
15cb1:  b3 ...                  PRINT_RET       ""I wouldn't know. I'm not the
one going on holiday.""
15cd6:  c1 80 31 75 ff 88 a1 a1 cd 00 23
                               JE              G21,"attic","key","winery"
[FALSE] 15d02
15ce1:  b3 ...                  PRINT_RET       ""You haven't lost the attic
key again?  Hmph.""
15d02:  c1 83 31 7d 7c 78 2d 00 13
                               JE              G21,"demijohn","bottle" [FALSE]
15d1c
15d0b:  b3 ...                  PRINT_RET       ""Load of old junk.""
15d1c:  c1 80 31 7f 2c a0 6e 7f 35 00 1f
                               JE              G21,"dumb","waiter","dumbwaite"
[FALSE] 15d44
15d27:  b3 ...                  PRINT_RET       ""You leave that rickety old
thing alone!""
15d44:  c1 8f 31 78 fc 00 31    JE              G21,"calendar" [FALSE] 15d7a
15d4b:  b3 ...                  PRINT_RET       ""Not bad. Of course, my
daisies are better, but not bad for beginners.""
15d7a:  c1 83 31 7b 60 7b 69 00 1b
                               JE              G21,"colour","colours" [FALSE]
15d9c
15d83:  b3 ...                  PRINT_RET       ""Everyone has his own
favourite.""
15d9c:  c1 83 31 93 ea a1 e8 00 45
                               JE              G21,"radio","wireless" [FALSE]
15de8
15da5:  b3 ...                  PRINT_RET       ""I've told you a hundred
times, I don't want a transistor radio. That old valve set is fine for me.""
15de8:  c1 80 31 7c ad 7c b6 80 dc 00 33
                               JE              G21,"curse","curses","family"
[FALSE] 15e24
15df3:  b3 ...                  PRINT_RET       ""Nothing wrong with this
family that a good long holiday wouldn't set right.""
15e24:  c1 8f 31 8b b0 00 23    JE              G21,"me" [FALSE] 15e4c
15e2b:  b3 ...                  PRINT_RET       ""Know thyself, that's what the
good book says.""
15e4c:  b3 ...                  PRINT_RET       "Jemima has nothing to say on
the subject."
15e65:  b1                      RFALSE

Routine 15e68, 0 locals

15e69:  41 3a 2a 00 29          JE              G2a,#2a [FALSE] 15e95
15e6e:  b2 ...                  PRINT           "A delicate, pretty chain of "
15e83:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
15e87:  da 2f 57 cd 00          CALL_2N         15f34 ((SP)+)
15e8c:  b3 ...                  PRINT_RET       " daisies."
15e95:  41 3a 1c 00 4a          JE              G2a,#1c [FALSE] 15ee2
15e9a:  a9 2f                   REMOVE_OBJ      G1f
15e9c:  4c 2f 1a                CLEAR_ATTR      G1f,#1a
15e9f:  b3 ...                  PRINT_RET       "The daisychain falls to pieces
in your hands!  Cheer up, though, perhaps Jemima might give you another."
15ee2:  b1                      RFALSE

Routine 15ee4, 1 local

15ee5:  4a 2f 1a 00 48          TEST_ATTR       G1f,#1a [FALSE] 15f30
15eea:  41 83 02 00 43          JE              G73,#02 [FALSE] 15f30
15eef:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 15ef3
15ef3:  41 01 00 80 2a          JE              L00,#00 [TRUE] 15f20
15ef8:  4a 01 21 00 1e          TEST_ATTR       L00,#21 [FALSE] 15f19
15efd:  b2 ...                  PRINT           " (which rustles as if with a
magical wind)"
15f18:  b0                      RTRUE
15f19:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 15f1d
15f1d:  8c ff d5                JUMP            15ef3
15f20:  b2 ...                  PRINT           " (around your neck)"
15f2f:  b0                      RTRUE
15f30:  b1                      RFALSE

Routine 15f34, 1 local

15f35:  41 01 00 00 15          JE              L00,#00 [FALSE] 15f4d
15f3a:  b2 ...                  PRINT           "speckled Jemima's Pride"
15f4d:  41 01 01 00 15          JE              L00,#01 [FALSE] 15f65
15f52:  b2 ...                  PRINT           "yellowish Merlyn's Hat"
15f65:  41 01 02 00 0f          JE              L00,#02 [FALSE] 15f77
15f6a:  b2 ...                  PRINT           "blue-tinted bell"
15f77:  41 01 03 00 17          JE              L00,#03 [FALSE] 15f91
15f7c:  b2 ...                  PRINT           "heavy-headed Dorset Pride"
15f91:  41 01 04 00 11          JE              L00,#04 [FALSE] 15fa5
15f96:  b2 ...                  PRINT           "reddish meadow-heart"
15fa5:  41 01 05 00 0d          JE              L00,#05 [FALSE] 15fb5
15faa:  b2 ...                  PRINT           "wild white common"
15fb5:  41 01 06 00 11          JE              L00,#06 [FALSE] 15fc9
15fba:  b2 ...                  PRINT           "green-edged hedgerow"
15fc9:  41 01 07 00 13          JE              L00,#07 [FALSE] 15fdf
15fce:  b2 ...                  PRINT           "plain Russian Steppe"
15fdf:  41 01 08 00 11          JE              L00,#08 [FALSE] 15ff3
15fe4:  b2 ...                  PRINT           "tall-stemmed Breton"
15ff3:  41 01 09 00 0d          JE              L00,#09 [FALSE] 16003
15ff8:  b2 ...                  PRINT           "orange meadow"
16003:  41 01 0a 00 0f          JE              L00,#0a [FALSE] 16015
16008:  b2 ...                  PRINT           "short-leaved Meldrew"
16015:  41 01 0b 00 0b          JE              L00,#0b [FALSE] 16023
1601a:  b2 ...                  PRINT           "tiny bonsai"
16023:  b0                      RTRUE

Routine 16024, 0 locals

16025:  41 3a 15 00 55          JE              G2a,#15 [FALSE] 1607d
1602a:  c1 8f 30 00 77 00 4d    JE              G20,#0077 [FALSE] 1607c
16031:  c6 0f 00 76 00 77 00 0a JIN             "dumbwaiter","dark shaft"
[FALSE] 16041
16039:  f9 13 36 0d 15 00 76    CALL_VN         d834 (#15,#0076)
16040:  b0                      RTRUE
16041:  b3 ...                  PRINT_RET       "But you suffer from vertigo.
Even the thought of the plane journey tomorrow is nerve-wracking."
1607c:  b1                      RFALSE
1607d:  b1                      RFALSE

Routine 16080, 1 local

16081:  41 3a 71 00 29          JE              G2a,#71 [FALSE] 160ad
16086:  c1 8f 31 00 78 00 21    JE              G21,#0078 [FALSE] 160ac
1608d:  b3 ...                  PRINT_RET       "The wrench doesn't fit a
hand-wheel like this."
160ac:  b1                      RFALSE
160ad:  41 3a 3f 01 31          JE              G2a,#3f [FALSE] 161e1
160b2:  c6 8f 19 00 76 00 31    JIN             G09,"dumbwaiter" [FALSE] 160e8
160b9:  b3 ...                  PRINT_RET       "You can just reach the wheel
from here, but have too little leverage to turn it."
160e8:  4a 2f 0d 00 2d          TEST_ATTR       G1f,#0d [FALSE] 16118
160ed:  b3 ...                  PRINT_RET       "It won't turn. Perhaps it's
broken, or perhaps only rusty."
16118:  b2 ...                  PRINT           "It spins round smoothly, and
the dumbwaiter is hoisted "
16139:  c6 2f 00 76 11 00 12    JIN             "dumbwaiter",G01 [FALSE] 16150
16140:  b2 ...                  PRINT           "away out of sight."
1614d:  8c 00 6a                JUMP            161b8
16150:  b2 ...                  PRINT           "into view. "
16159:  c6 4f 37 00 81 00 5a    JIN             "mb","dark shaft" [FALSE] 161b8
16160:  0a 37 0b 00 55          TEST_ATTR       "mb",#0b [FALSE] 161b8
16165:  0c 37 0b                CLEAR_ATTR      "mb",#0b
16168:  0b 37 0e                SET_ATTR        "mb",#0e
1616b:  b2 ...                  PRINT           "(Just before it reached the
bottom there was a curious cracking noise. Was it really wise to leave
something in the shaft?)"
161b8:  83 00 76 01             GET_PARENT      "dumbwaiter" -> L00
161bc:  41 01 74 00 08          JE              L00,#74 [FALSE] 161c7
161c1:  ce 0f 00 76 00 7f       INSERT_OBJ      "dumbwaiter","Cellars"
161c7:  c1 8f 01 00 7b 00 07    JE              L00,#007b [FALSE] 161d3
161ce:  ce 2f 00 76 11          INSERT_OBJ      "dumbwaiter",G01
161d3:  c1 8f 01 00 7f 00 07    JE              L00,#007f [FALSE] 161df
161da:  ce 1f 00 76 74          INSERT_OBJ      "dumbwaiter","Storage Room"
161df:  bb                      NEW_LINE
161e0:  b0                      RTRUE
161e1:  b1                      RFALSE

Routine 161e4, 0 locals

161e5:  c1 8f 3a 01 01 00 62    JE              G2a,#0101 [FALSE] 1624c
161ec:  4e 30 76                INSERT_OBJ      G20,"dumbwaiter"
161ef:  26 76 11 00 11          JIN             "dumbwaiter",G01 [FALSE] 16203
161f4:  b3 ...                  PRINT_RET       "Put on the dumbwaiter."
16203:  41 30 37 00 31          JE              G20,#37 [FALSE] 16237
16208:  0c 37 0b                CLEAR_ATTR      "mb",#0b
1620b:  0b 37 0e                SET_ATTR        "mb",#0e
1620e:  b3 ...                  PRINT_RET       "It disappears into the
darkness, and there is a slight cracking noise."
16237:  b3 ...                  PRINT_RET       "It disappears into the
darkness."
1624c:  b1                      RFALSE

Routine 16250, 0 locals

16251:  41 3a 13 00 19          JE              G2a,#13 [FALSE] 1626d
16256:  b3 ...                  PRINT_RET       "It's a wrench, but you take
it."
1626d:  b1                      RFALSE

Routine 16270, 1 local

16271:  41 3a 3c 00 d6          JE              G2a,#3c [FALSE] 1634a
16276:  46 19 76 80 11          JIN             G09,"dumbwaiter" [TRUE] 1628a
1627b:  b3 ...                  PRINT_RET       "You can't reach them!"
1628a:  da 1f 9d bb 05          CALL_2N         276ec (#05)
1628f:  41 11 74 00 50          JE              G01,#74 [FALSE] 162e2
16294:  cd 4f 01 00 7f          STORE           L00,#007f
16299:  b2 ...                  PRINT           "You begin moving, and then
plummet, but friction gradually slows you down and you land without too much of
a thump...
"
162e2:  c1 8f 11 00 7b 00 22    JE              G01,#007b [FALSE] 16309
162e9:  0d 01 74                STORE           L00,#74
162ec:  b2 ...                  PRINT           "You heave yourself up to the
attic again...
"
16309:  c1 8f 11 00 7f 00 30    JE              G01,#007f [FALSE] 1633e
16310:  cd 4f 01 00 7b          STORE           L00,#007b
16315:  b2 ...                  PRINT           "You heave yourself half-way
up, and then need to stop for a rest.
"
1633e:  2e 76 01                INSERT_OBJ      "dumbwaiter",L00
16341:  2d 11 01                STORE           G01,L00
16344:  da 1f 36 0d 29          CALL_2N         d834 (#29)
16349:  b0                      RTRUE
1634a:  41 3a 4b 00 27          JE              G2a,#4b [FALSE] 16374
1634f:  b3 ...                  PRINT_RET       "If only you didn't suffer from
such dreadful vertigo..."
16374:  b1                      RFALSE

Routine 16378, 0 locals

16379:  41 3a 3c 00 21          JE              G2a,#3c [FALSE] 1639d
1637e:  b3 ...                  PRINT_RET       "It already has been. The part
you have, lost."
1639d:  b1                      RFALSE

Routine 163a0, 0 locals

163a1:  41 3a 29 00 43          JE              G2a,#29 [FALSE] 163e7
163a6:  06 76 7b 80 3d          JIN             "dumbwaiter","Dark Shaft"
[TRUE] 163e6
163ab:  b2 ...                  PRINT           "
Since the dumbwaiter isn't here, the best you can do is clamber down the shaft
to the cellars.
"
163e6:  b1                      RFALSE
163e7:  b1                      RFALSE

Routine 163e8, 0 locals

163e9:  41 3a 26 00 34          JE              G2a,#26 [FALSE] 16420
163ee:  41 30 0b 00 2e          JE              G20,#0b [FALSE] 1641f
163f3:  06 76 7b 00 29          JIN             "dumbwaiter","Dark Shaft"
[FALSE] 1641f
163f8:  b3 ...                  PRINT_RET       "Since the dumbwaiter is here,
why not travel in that instead."
1641f:  b1                      RFALSE
16420:  b1                      RFALSE

Routine 16424, 0 locals

16425:  ca 1f 00 7d 0e 00 0a    TEST_ATTR       "sandstone recess",#0e [FALSE]
16434
1642c:  da 1f 9d bb 1b          CALL_2N         276ec (#1b)
16431:  8c 00 1f                JUMP            16451
16434:  41 2a 15 00 1a          JE              G1a,#15 [FALSE] 16451
16439:  c1 8f 30 00 7d 00 13    JE              G20,#007d [FALSE] 16451
16440:  b3 ...                  PRINT_RET       "The recess is too shallow."
16451:  0a 56 1a 00 03          TEST_ATTR       "gas mask",#1a [FALSE] 16457
16456:  b1                      RFALSE
16457:  c1 97 2a 26 15 00 03    JE              G1a,#26,#15 [FALSE] 1645f
1645e:  b1                      RFALSE
1645f:  b3 ...                  PRINT_RET       "The coal dust makes you cough
and splutter, and your eyes stream. You are unable to concentrate on doing
anything here."

Routine 164a8, 0 locals

164a9:  41 3a 2f 00 08          JE              G2a,#2f [FALSE] 164b4
164ae:  cc 1f 01 15 0b          CLEAR_ATTR      "coal bunker",#0b
164b3:  b1                      RFALSE
164b4:  41 3a 41 00 08          JE              G2a,#41 [FALSE] 164bf
164b9:  cb 1f 01 15 0b          SET_ATTR        "coal bunker",#0b
164be:  b1                      RFALSE
164bf:  41 3a 2e 00 08          JE              G2a,#2e [FALSE] 164ca
164c4:  cb 1f 01 15 0e          SET_ATTR        "coal bunker",#0e
164c9:  b1                      RFALSE
164ca:  41 3a 30 00 08          JE              G2a,#30 [FALSE] 164d5
164cf:  cc 1f 01 15 0e          CLEAR_ATTR      "coal bunker",#0e
164d4:  b1                      RFALSE
164d5:  b1                      RFALSE

Routine 164d8, 0 locals

164d9:  41 3a 15 00 4f          JE              G2a,#15 [FALSE] 1652b
164de:  c1 8f 30 00 81 00 47    JE              G20,#0081 [FALSE] 1652a
164e5:  06 76 7f 00 09          JIN             "dumbwaiter","Cellars" [FALSE]
164f1
164ea:  f9 17 36 0d 15 76       CALL_VN         d834 (#15,#76)
164f0:  b0                      RTRUE
164f1:  b3 ...                  PRINT_RET       "No, don't. There's nothing
there and it's nasty and dirty. Bring the dumbwaiter down instead."
1652a:  b1                      RFALSE
1652b:  b1                      RFALSE

Routine 1652c, 3 locals

1652d:  42 01 00 80 11          JL              L00,#00 [TRUE] 16541
16532:  43 01 08 80 0c          JG              L00,#08 [TRUE] 16541
16537:  42 02 00 80 07          JL              L01,#00 [TRUE] 16541
1653c:  43 02 06 00 03          JG              L01,#06 [FALSE] 16542
16541:  b1                      RFALSE
16542:  36 09 02 00             MUL             #09,L01 -> -(SP)
16546:  74 00 01 00             ADD             (SP)+,L00 -> -(SP)
1654a:  70 9e 00 03             LOADB           G8e,(SP)+ -> L02
1654e:  41 03 30 00 03          JE              L02,#30 [FALSE] 16554
16553:  b1                      RFALSE
16554:  41 03 31 00 03          JE              L02,#31 [FALSE] 1655a
16559:  b0                      RTRUE
1655a:  b0                      RTRUE

Routine 1655c, 5 locals

1655d:  c1 85 3a 01 03 44 46 03 ff
                               JE              G2a,#0103,#44,#46 [FALSE] 16963
16566:  0a 56 1a 00 53          TEST_ATTR       "gas mask",#1a [FALSE] 165bc
1656b:  41 a1 00 00 4e          JE              G91,#00 [FALSE] 165bc
16570:  0d a1 01                STORE           G91,#01
16573:  b2 ...                  PRINT           "(amazingly, the mouse can make
out your voice even when you have the gas mask on - that's real engineering,
that is)
"
165bc:  c1 97 2a 7e 4a 00 33    JE              G1a,#7e,#4a [FALSE] 165f4
165c3:  b3 ...                  PRINT_RET       "The mouse bleeps with happy
pride. That's one thing it really knows how to do."
165f4:  41 2a 26 80 1f          JE              G1a,#26 [TRUE] 16616
165f9:  b3 ...                  PRINT_RET       "The mouse emits a querulous,
unhappy bleep."
16616:  41 30 06 00 05          JE              G20,#06 [FALSE] 1661e
1661b:  0d 30 0a                STORE           G20,#0a
1661e:  41 30 08 00 05          JE              G20,#08 [FALSE] 16626
16623:  0d 30 0a                STORE           G20,#0a
16626:  41 30 07 00 05          JE              G20,#07 [FALSE] 1662e
1662b:  0d 30 0a                STORE           G20,#0a
1662e:  41 30 09 00 05          JE              G20,#09 [FALSE] 16636
16633:  0d 30 0a                STORE           G20,#0a
16636:  41 30 0b 00 05          JE              G20,#0b [FALSE] 1663e
1663b:  0d 30 0a                STORE           G20,#0a
1663e:  41 30 0a 00 17          JE              G20,#0a [FALSE] 16658
16643:  b3 ...                  PRINT_RET       "The mouse bleeps with
annoyance."
16658:  a3 2f 01                GET_PARENT      G1f -> L00
1665b:  c1 8f 01 00 85 00 23    JE              L00,#0085 [FALSE] 16683
16662:  41 30 02 00 08          JE              G20,#02 [FALSE] 1666d
16667:  0d 02 7f                STORE           L01,#7f
1666a:  8c 01 be                JUMP            16829
1666d:  41 30 05 00 10          JE              G20,#05 [FALSE] 16680
16672:  cd 4f 02 00 86          STORE           L01,#0086
16677:  0d 9f 08                STORE           G8f,#08
1667a:  0d a0 03                STORE           G90,#03
1667d:  8c 01 ab                JUMP            16829
16680:  8c 02 c9                JUMP            1694a
16683:  c1 8f 01 00 88 00 10    JE              L00,#0088 [FALSE] 16698
1668a:  41 30 04 00 08          JE              G20,#04 [FALSE] 16695
1668f:  0d 02 7f                STORE           L01,#7f
16692:  8c 01 96                JUMP            16829
16695:  8c 02 b4                JUMP            1694a
16698:  c1 8f 01 00 84 00 10    JE              L00,#0084 [FALSE] 166ad
1669f:  41 30 05 00 08          JE              G20,#05 [FALSE] 166aa
166a4:  0d 02 7f                STORE           L01,#7f
166a7:  8c 01 81                JUMP            16829
166aa:  8c 02 9f                JUMP            1694a
166ad:  41 01 7f 00 2c          JE              L00,#7f [FALSE] 166dc
166b2:  41 30 05 00 0a          JE              G20,#05 [FALSE] 166bf
166b7:  cd 4f 02 00 88          STORE           L01,#0088
166bc:  8c 01 6c                JUMP            16829
166bf:  41 30 03 00 0a          JE              G20,#03 [FALSE] 166cc
166c4:  cd 4f 02 00 85          STORE           L01,#0085
166c9:  8c 01 5f                JUMP            16829
166cc:  41 30 04 00 0a          JE              G20,#04 [FALSE] 166d9
166d1:  cd 4f 02 00 84          STORE           L01,#0084
166d6:  8c 01 52                JUMP            16829
166d9:  8c 02 70                JUMP            1694a
166dc:  c1 8f 01 00 86 00 19    JE              L00,#0086 [FALSE] 166fa
166e3:  41 9f 08 00 14          JE              G8f,#08 [FALSE] 166fa
166e8:  41 a0 03 00 0f          JE              G90,#03 [FALSE] 166fa
166ed:  41 30 04 00 0a          JE              G20,#04 [FALSE] 166fa
166f2:  cd 4f 02 00 85          STORE           L01,#0085
166f7:  8c 01 31                JUMP            16829
166fa:  c1 8f 01 00 86 01 01    JE              L00,#0086 [FALSE] 16800
16701:  41 30 02 00 09          JE              G20,#02 [FALSE] 1670d
16706:  2d 04 9f                STORE           L03,G8f
16709:  55 a0 01 05             SUB             G90,#01 -> L04
1670d:  41 30 04 00 09          JE              G20,#04 [FALSE] 16719
16712:  54 9f 01 04             ADD             G8f,#01 -> L03
16716:  2d 05 a0                STORE           L04,G90
16719:  41 30 03 00 09          JE              G20,#03 [FALSE] 16725
1671e:  2d 04 9f                STORE           L03,G8f
16721:  54 a0 01 05             ADD             G90,#01 -> L04
16725:  41 30 05 00 09          JE              G20,#05 [FALSE] 16731
1672a:  55 9f 01 04             SUB             G8f,#01 -> L03
1672e:  2d 05 a0                STORE           L04,G90
16731:  e0 2b 59 4b 04 05 00    CALL_VS         1652c (L03,L04) -> -(SP)
16738:  41 00 01 00 29          JE              (SP)+,#01 [FALSE] 16764
1673d:  b3 ...                  PRINT_RET       "From somewhere inside the
hole, you hear a disconsolate bleep."
16764:  2d 9f 04                STORE           G8f,L03
16767:  2d a0 05                STORE           G90,L04
1676a:  41 9f 04 00 6e          JE              G8f,#04 [FALSE] 167db
1676f:  41 a0 01 00 69          JE              G90,#01 [FALSE] 167db
16774:  c6 0f 00 87 00 86 00 61 JIN             "small brass key","hole in the
wall" [FALSE] 167db
1677c:  ce 1f 00 87 83          INSERT_OBJ      "small brass key","robot mouse"
16781:  da 1f 97 a4 02          CALL_2N         25e90 (#02)
16786:  b3 ...                  PRINT_RET       "From somewhere inside the
hole, you hear the spinning of tiny wheels, followed by an excitable
high-pitched beep and a dull clanging noise."
167db:  b3 ...                  PRINT_RET       "From somewhere inside the
hole, you hear tiny wheels spin."
16800:  b3 ...                  PRINT_RET       "The mouse wheels spin, but
can't get a good enough grip to move."
16829:  2d 03 01                STORE           L02,L00
1682c:  2e 83 02                INSERT_OBJ      "robot mouse",L01
1682f:  0b 83 0c                SET_ATTR        "robot mouse",#0c
16832:  61 11 03 00 71          JE              G01,L02 [FALSE] 168a6
16837:  c1 8f 02 00 86 00 55    JE              L01,#0086 [FALSE] 16891
1683e:  da 1f 97 a4 01          CALL_2N         25e90 (#01)
16843:  b3 ...                  PRINT_RET       "The mouse just squeezes
through the hole, and disappears from view. Unfortunately you can't very easily
talk to it now..."
1688e:  8c 00 17                JUMP            168a6
16891:  b3 ...                  PRINT_RET       "The mouse runs off as
ordered."
168a6:  61 11 02 00 a1          JE              G01,L01 [FALSE] 1694a
168ab:  b2 ...                  PRINT           "The mouse runs back out of the
hole, looking dustier but none the worse for its adventure"
168e0:  c6 1f 00 87 83 80 05    JIN             "small brass key","robot mouse"
[TRUE] 168ea
168e7:  b3 ...                  PRINT_RET       "."
168ea:  ce 0f 00 87 00 85       INSERT_OBJ      "small brass key","Cellars
South"
168f0:  da 1f 97 a4 03          CALL_2N         25e90 (#03)
168f5:  b3 ...                  PRINT_RET       ", and then almost looks proud
as a magnet cuts out and something metal drops off the underside of the mouse
onto the floor. The lost key is found!"
1694a:  b3 ...                  PRINT_RET       "The mouse emits a low-pitched
bleep."
16963:  b1                      RFALSE

Routine 16964, 0 locals

16965:  b2 ...                  PRINT           "The wine cellars are now quite
badly stocked, many of the hexagonal racks being home only to woodlice now.
Much of what there is was laid in by your father and has corked"
169cc:  4a 2f 09 80 05          TEST_ATTR       G1f,#09 [TRUE] 169d4
169d1:  b3 ...                  PRINT_RET       "."
169d4:  b3 ...                  PRINT_RET       ". The barrel-shaft slants
upwards to the north, and bright light floods in from the gardens above."

Routine 16a10, 0 locals

16a11:  41 3a 5d 00 2d          JE              G2a,#5d [FALSE] 16a41
16a16:  b3 ...                  PRINT_RET       "But you are teetotal, which is
why the cellars have got in this state."
16a41:  b1                      RFALSE

Routine 16a44, 0 locals

16a45:  4a 2f 09 80 03          TEST_ATTR       G1f,#09 [TRUE] 16a4b
16a4a:  b1                      RFALSE
16a4b:  b3 ...                  PRINT_RET       "The barrel-shaft is too steep
to climb. You were lucky enough not to break your neck on the way down."

Routine 16a88, 0 locals

16a89:  c1 8f 3a 01 01 00 1d    JE              G2a,#0101 [FALSE] 16aab
16a90:  41 31 86 00 17          JE              G21,#86 [FALSE] 16aaa
16a95:  b3 ...                  PRINT_RET       "Nothing is to be gained by
this."
16aaa:  b1                      RFALSE
16aab:  c1 8f 3a 01 00 00 17    JE              G2a,#0100 [FALSE] 16ac7
16ab2:  b3 ...                  PRINT_RET       "There's nothing within reach
inside."
16ac7:  b1                      RFALSE

Routine 16ac8, 0 locals

16ac9:  c1 85 3a 01 03 46 44 00 11
                               JE              G2a,#0103,#46,#44 [FALSE] 16ae1
16ad2:  26 83 2f 00 0b          JIN             "robot mouse",G1f [FALSE] 16ae0
16ad7:  e0 17 34 7a 83 04 00    CALL_VS         d1e8 (#83,#04) -> -(SP)
16ade:  ab 00                   RET             (SP)+
16ae0:  b1                      RFALSE
16ae1:  b1                      RFALSE

Routine 16ae4, 0 locals

16ae5:  41 3a 8a 00 27          JE              G2a,#8a [FALSE] 16b0f
16aea:  b3 ...                  PRINT_RET       "You bark your knuckles
painfully on the iron, and to no avail."
16b0f:  b1                      RFALSE

Routine 16b10, 1 local

16b11:  41 3a 29 01 97          JE              G2a,#29 [FALSE] 16cab
16b16:  b2 ...                  PRINT           "
Around the edge of the disc is a circular arc, surrounding the lemniscus, which
passes through nine equally spaced sockets or cylindrical wells."
16b6f:  d1 1f 00 8b 17 01       GET_PROP        "circular arc",#17 -> L00
16b75:  41 01 00 00 04          JE              L00,#00 [FALSE] 16b7c
16b7a:  bb                      NEW_LINE
16b7b:  b1                      RFALSE
16b7c:  41 01 01 00 1f          JE              L00,#01 [FALSE] 16b9e
16b81:  b3 ...                  PRINT_RET       "  One socket contains a rod,
fixed in place."
16b9e:  41 01 02 00 21          JE              L00,#02 [FALSE] 16bc2
16ba3:  b3 ...                  PRINT_RET       "  Two of the sockets contain
rods, fixed in place."
16bc2:  41 01 03 00 1f          JE              L00,#03 [FALSE] 16be4
16bc7:  b3 ...                  PRINT_RET       "  Three sockets contain rods,
fixed in place."
16be4:  41 01 04 00 1f          JE              L00,#04 [FALSE] 16c06
16be9:  b3 ...                  PRINT_RET       "  Four sockets contain rods,
fixed in place."
16c06:  41 01 05 00 1f          JE              L00,#05 [FALSE] 16c28
16c0b:  b3 ...                  PRINT_RET       "  Five sockets contain rods,
fixed in place."
16c28:  41 01 06 00 1f          JE              L00,#06 [FALSE] 16c4a
16c2d:  b3 ...                  PRINT_RET       "  Six sockets contain rods,
fixed in place."
16c4a:  41 01 07 00 21          JE              L00,#07 [FALSE] 16c6e
16c4f:  b3 ...                  PRINT_RET       "  Seven sockets contain rods,
fixed in place."
16c6e:  41 01 08 00 19          JE              L00,#08 [FALSE] 16c8a
16c73:  b3 ...                  PRINT_RET       "  Only one socket is left
empty."
16c8a:  41 01 09 00 1d          JE              L00,#09 [FALSE] 16caa
16c8f:  b3 ...                  PRINT_RET       "  All nine sockets are
occupied by rods."
16caa:  b1                      RFALSE
16cab:  b1                      RFALSE

Routine 16cac, 1 local

16cad:  c1 8f 3a 01 01 00 fe    JE              G2a,#0101 [FALSE] 16db0
16cb4:  51 2f 17 01             GET_PROP        G1f,#17 -> L00
16cb8:  41 01 09 00 13          JE              L00,#09 [FALSE] 16cce
16cbd:  b3 ...                  PRINT_RET       "The sockets are all full."
16cce:  4a 30 1c 80 15          TEST_ATTR       G20,#1c [TRUE] 16ce6
16cd3:  b3 ...                  PRINT_RET       "That won't fit in a socket."
16ce6:  41 30 14 00 4b          JE              G20,#14 [FALSE] 16d34
16ceb:  4a 30 22 00 23          TEST_ATTR       G20,#22 [FALSE] 16d11
16cf0:  b3 ...                  PRINT_RET       "For some reason, that rod is
just too large to fit."
16d11:  b3 ...                  PRINT_RET       "The Rod of Infinity is just
slightly too large to fit."
16d34:  6e 30 2f                INSERT_OBJ      G20,G1f
16d37:  4b 30 13                SET_ATTR        G20,#13
16d3a:  95 01                   INC             L00
16d3c:  e3 9b 2f 17 01          PUT_PROP        G1f,#17,L00
16d41:  b2 ...                  PRINT           "It fits perfectly in one of
the arc sockets.
"
16d60:  83 00 8d 00             GET_PARENT      "spherical opening" -> -(SP)
16d64:  41 00 00 00 3e          JE              (SP)+,#00 [FALSE] 16da5
16d69:  ce 1f 00 8d 8a          INSERT_OBJ      "spherical opening","Infinity
Symbol"
16d6e:  b2 ...                  PRINT           "
As the rod goes home, a spherical opening a few inches across appears in one
wall.
"
16da5:  41 01 09 00 07          JE              L00,#09 [FALSE] 16daf
16daa:  da 1f 9d bb 13          CALL_2N         276ec (#13)
16daf:  b0                      RTRUE
16db0:  b1                      RFALSE

Routine 16db4, 0 locals

16db5:  c1 8f 3a 01 01 01 10    JE              G2a,#0101 [FALSE] 16eca
16dbc:  c1 8f 30 01 22 00 2f    JE              G20,#0122 [FALSE] 16df0
16dc3:  b3 ...                  PRINT_RET       "Though correctly shaped, it is
not quite small enough to fit the cavity."
16df0:  c1 8f 30 01 89 80 19    JE              G20,#0189 [TRUE] 16e0e
16df7:  b3 ...                  PRINT_RET       "That doesn't seem to fit
properly."
16e0e:  ca 1f 01 89 08 80 51    TEST_ATTR       "glowing golden orb",#08 [TRUE]
16e64
16e15:  b3 ...                  PRINT_RET       "The orb fits perfectly, but
nothing happens: it is as if the socket is dead, and the orb rolls out again
into your hands. Curious."
16e64:  ce 4f 8d 01 89          INSERT_OBJ      "spherical opening","glowing
golden orb"
16e69:  89 01 89                REMOVE_OBJ      "glowing golden orb"
16e6c:  0b 8d 08                SET_ATTR        "spherical opening",#08
16e6f:  e3 53 8a 12 c4 fd       PUT_PROP        "Infinity Symbol",#12,S322
16e75:  b3 ...                  PRINT_RET       "The orb fits perfectly, and
the socket comes alive with golden light, which soaks out into the fabric of
the cave until the whole place is shining bright."
16eca:  b1                      RFALSE

Routine 16ecc, 0 locals

16ecd:  c1 97 3a 13 14 00 12    JE              G2a,#13,#14 [FALSE] 16ee4
16ed4:  4a 30 1c 00 0c          TEST_ATTR       G20,#1c [FALSE] 16ee3
16ed9:  4a 30 22 80 07          TEST_ATTR       G20,#22 [TRUE] 16ee3
16ede:  da 1f 9d bb 1c          CALL_2N         276ec (#1c)
16ee3:  b1                      RFALSE
16ee4:  b1                      RFALSE

Routine 16ee8, 1 local

16ee9:  c1 8f 3a 01 01 00 1f    JE              G2a,#0101 [FALSE] 16f0d
16ef0:  4a 30 1c 00 19          TEST_ATTR       G20,#1c [FALSE] 16f0c
16ef5:  b3 ...                  PRINT_RET       "The mahogany rod fits in
perfectly."
16f0c:  b1                      RFALSE
16f0d:  41 3a 30 00 6b          JE              G2a,#30 [FALSE] 16f7b
16f12:  0c 91 08                CLEAR_ATTR      "gilded model coffin",#08
16f15:  92 91 01 c2             GET_CHILD       "gilded model coffin" -> L00
[TRUE] 16f19
16f19:  41 01 00 80 16          JE              L00,#00 [TRUE] 16f32
16f1e:  4a 01 22 00 0a          TEST_ATTR       L00,#22 [FALSE] 16f2b
16f23:  da 2f 39 c2 01          CALL_2N         e708 (L00)
16f28:  0b 91 08                SET_ATTR        "gilded model coffin",#08
16f2b:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 16f2f
16f2f:  8c ff e9                JUMP            16f19
16f32:  0a 91 08 80 09          TEST_ATTR       "gilded model coffin",#08
[TRUE] 16f3e
16f37:  e3 53 91 11 c5 a3       PUT_PROP        "gilded model coffin",#11,S329
16f3d:  b1                      RFALSE
16f3e:  e3 53 91 11 c5 ab       PUT_PROP        "gilded model coffin",#11,S330
16f44:  b3 ...                  PRINT_RET       "The coffin sparks, spitting
with electricity, and begins throbbing with a life of its own!"
16f7b:  41 3a 2e 00 09          JE              G2a,#2e [FALSE] 16f87
16f80:  e3 93 2f 11 c5 b4       PUT_PROP        G1f,#11,S331
16f86:  b1                      RFALSE
16f87:  b1                      RFALSE

Routine 16f88, 0 locals

16f89:  41 3a 2e 00 7f          JE              G2a,#2e [FALSE] 1700b
16f8e:  0a 91 08 00 79          TEST_ATTR       "gilded model coffin",#08
[FALSE] 1700a
16f93:  0a 71 1a 80 74          TEST_ATTR       "old gardeners' gloves",#1a
[TRUE] 1700a
16f98:  0d 1d 03                STORE           G0d,#03
16f9b:  b3 ...                  PRINT_RET       "There is a flash and then
everything goes dark!

You were given a nasty shock by that coffin. "Must have been some old wiring,"
says a doctor, leaning over you in hospital."
1700a:  b1                      RFALSE
1700b:  b1                      RFALSE

Routine 1700c, 0 locals

1700d:  b2 ...                  PRINT           "The lid bears an inscription
in strange hieroglyphics:
"
17032:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
17036:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1703a:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1703f:  b2 ...                  PRINT           "
   (()) #+*+ <>   ->#.
             |||
"
17076:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1707a:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
17080:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
17085:  b0                      RTRUE

Routine 17088, 0 locals

17089:  c1 97 3a 42 2e 00 33    JE              G2a,#42,#2e [FALSE] 170c1
17090:  99 93                   REMOVE_OBJ      "framed charcoal sketch"
17092:  ce 2f 00 94 11          INSERT_OBJ      "charcoal sketch",G01
17097:  ce 2f 00 95 11          INSERT_OBJ      "dog-eared old letter",G01
1709c:  b3 ...                  PRINT_RET       "Breaking open the frame looses
the sketch, which falls to the floor."
170c1:  b1                      RFALSE

Routine 170c4, 0 locals

170c5:  b2 ...                  PRINT           "A faint typewritten letter,
postmarked Cairo, October 1920, with a handwritten note signed simply
"Ellingsworth":

Hartley - Thought you might be able to date some of these queer pictograms and
determinitives, early New Kingdom?  Pottery unclear, work continues
"
17172:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
17176:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1717a:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1717f:  b2 ...                  PRINT           "
  ::   and        #     the               #.    this
  :;   but        +*+   god/spirit?       (())  all
  =    of         []    house/building    |||   indicates plural
  ->   through    >>>   moves             <>    item/thing?
  __   sits/lies/rests/is near            /     to/toward
"
1726c:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
17270:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
17276:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1727b:  b0                      RTRUE

Routine 1727c, 0 locals

1727d:  c1 8f 3a 01 01 00 58    JE              G2a,#0101 [FALSE] 172da
17284:  41 30 53 80 19          JE              G20,#53 [TRUE] 172a0
17289:  b3 ...                  PRINT_RET       "Doesn't seem right there,
somehow."
172a0:  0e 53 96                INSERT_OBJ      "painting of Mad Isaac
Meldrewe","White Hallway"
172a3:  0c 53 0c                CLEAR_ATTR      "painting of Mad Isaac
Meldrewe",#0c
172a6:  0b 53 16                SET_ATTR        "painting of Mad Isaac
Meldrewe",#16
172a9:  4c 2f 13                CLEAR_ATTR      G1f,#13
172ac:  4b 2f 11                SET_ATTR        G1f,#11
172af:  e3 53 53 11 c6 72       PUT_PROP        "painting of Mad Isaac
Meldrewe",#11,S343
172b5:  b3 ...                  PRINT_RET       "You hang up Mad Isaac, who
seems ideally placed there."
172da:  b1                      RFALSE

Routine 172dc, 0 locals

172dd:  e3 57 2a 0e 99          PUT_PROP        "Servant's Room",#0e,#99
172e2:  e3 57 2a 05 99          PUT_PROP        "Servant's Room",#05,#99
172e7:  0e 2e 2a                INSERT_OBJ      "tight door","Servant's Room"
172ea:  e3 97 2f 0d 2a          PUT_PROP        G1f,#0d,#2a
172ef:  b2 ...                  PRINT           "The staircase leads up into...
"
17308:  9b 2a                   RET             #2a

Routine 1730c, 1 local

1730d:  e7 7f 0a 01             RANDOM          #0a -> L00
17311:  41 01 01 00 2d          JE              L00,#01 [FALSE] 17341
17316:  b3 ...                  PRINT_RET       "
A clock keeps the hours, with a dead sound on the final stroke of nine."
17341:  41 01 02 00 23          JE              L00,#02 [FALSE] 17367
17346:  b3 ...                  PRINT_RET       "
There is a brown fog about, like a winter dawn's."
17367:  41 01 03 00 2f          JE              L00,#03 [FALSE] 17399
1736c:  b3 ...                  PRINT_RET       "
You can almost make out the pleasant whining of a mandoline from a faraway
bar."
17399:  41 01 04 00 6b          JE              L00,#04 [FALSE] 17407
1739e:  b3 ...                  PRINT_RET       "
Drifting through the streets from some distant bar comes the sound of one of
Scott Joplin's newfangled piano pieces, accompanying song settings from "Romeo
and Juliet"."
17407:  b1                      RFALSE

Routine 17408, 0 locals

17409:  c1 95 3a 13 73 72 80 07 JE              G2a,#13,#73,#72 [TRUE] 17416
17411:  41 3a 3c 00 5c          JE              G2a,#3c [FALSE] 17470
17416:  4a 2f 11 00 56          TEST_ATTR       G1f,#11 [FALSE] 1746f
1741b:  4c 2f 11                CLEAR_ATTR      G1f,#11
1741e:  b3 ...                  PRINT_RET       "You hastily tear down the
poster, but there's nothing interesting behind it, only painted graffiti:
"Shantih Shantih Shantih"."
1746f:  b1                      RFALSE
17470:  41 3a 39 00 3a          JE              G2a,#39 [FALSE] 174ad
17475:  c1 8f 11 00 a8 00 32    JE              G01,#00a8 [FALSE] 174ac
1747c:  ca 1f 00 aa 0e 80 2b    TEST_ATTR       "tourist boat",#0e [TRUE] 174ac
17483:  b2 ...                  PRINT           "You wave the poster at the
boat, but the boat remains unmoved.
"
174a8:  8f aa 21                CALL_1N         2a884
174ab:  b0                      RTRUE
174ac:  b1                      RFALSE
174ad:  b1                      RFALSE

Routine 174b0, 1 local

174b1:  e7 7f 0a 01             RANDOM          #0a -> L00
174b5:  41 01 01 00 09          JE              L00,#01 [FALSE] 174c1
174ba:  e3 13 00 9e 11 c7 41    PUT_PROP        "Impressionist
painting",#11,S353
174c1:  41 01 02 00 09          JE              L00,#02 [FALSE] 174cd
174c6:  e3 13 00 9e 11 c7 4c    PUT_PROP        "Impressionist
painting",#11,S354
174cd:  41 01 03 00 09          JE              L00,#03 [FALSE] 174d9
174d2:  e3 13 00 9e 11 c7 58    PUT_PROP        "Impressionist
painting",#11,S355
174d9:  41 01 04 00 09          JE              L00,#04 [FALSE] 174e5
174de:  e3 13 00 9e 11 c7 66    PUT_PROP        "Impressionist
painting",#11,S356
174e5:  41 01 05 00 09          JE              L00,#05 [FALSE] 174f1
174ea:  e3 13 00 9e 11 c7 71    PUT_PROP        "Impressionist
painting",#11,S357
174f1:  41 01 06 00 09          JE              L00,#06 [FALSE] 174fd
174f6:  e3 13 00 9e 11 c7 7d    PUT_PROP        "Impressionist
painting",#11,S358
174fd:  41 01 07 00 09          JE              L00,#07 [FALSE] 17509
17502:  e3 13 00 9e 11 c7 8b    PUT_PROP        "Impressionist
painting",#11,S359
17509:  41 01 08 00 09          JE              L00,#08 [FALSE] 17515
1750e:  e3 13 00 9e 11 c7 94    PUT_PROP        "Impressionist
painting",#11,S360
17515:  41 01 09 00 09          JE              L00,#09 [FALSE] 17521
1751a:  e3 13 00 9e 11 c7 a3    PUT_PROP        "Impressionist
painting",#11,S361
17521:  41 01 0a 00 09          JE              L00,#0a [FALSE] 1752d
17526:  e3 13 00 9e 11 c7 af    PUT_PROP        "Impressionist
painting",#11,S362
1752d:  b1                      RFALSE

Routine 17530, 1 local

17531:  b2 ...                  PRINT           "the "
17536:  41 01 01 00 07          JE              L00,#01 [FALSE] 17540
1753b:  b2 ...                  PRINT           "Ace"
17540:  41 01 02 00 07          JE              L00,#02 [FALSE] 1754a
17545:  b2 ...                  PRINT           "Two"
1754a:  41 01 03 00 07          JE              L00,#03 [FALSE] 17554
1754f:  b2 ...                  PRINT           "Three"
17554:  41 01 04 00 07          JE              L00,#04 [FALSE] 1755e
17559:  b2 ...                  PRINT           "Four"
1755e:  41 01 05 00 07          JE              L00,#05 [FALSE] 17568
17563:  b2 ...                  PRINT           "Five"
17568:  41 01 06 00 07          JE              L00,#06 [FALSE] 17572
1756d:  b2 ...                  PRINT           "Six"
17572:  41 01 07 00 07          JE              L00,#07 [FALSE] 1757c
17577:  b2 ...                  PRINT           "Seven"
1757c:  41 01 08 00 07          JE              L00,#08 [FALSE] 17586
17581:  b2 ...                  PRINT           "King"
17586:  41 01 09 00 07          JE              L00,#09 [FALSE] 17590
1758b:  b2 ...                  PRINT           "Queen"
17590:  41 01 0a 00 07          JE              L00,#0a [FALSE] 1759a
17595:  b2 ...                  PRINT           "Knave"
1759a:  b0                      RTRUE

Routine 1759c, 3 locals

1759d:  41 a3 00 02 37          JE              G93,#00 [FALSE] 177d7
175a2:  e7 7f 32 03             RANDOM          #32 -> L02
175a6:  61 03 01 00 05          JE              L02,L00 [FALSE] 175ae
175ab:  8c ff f6                JUMP            175a2
175ae:  61 03 02 00 05          JE              L02,L01 [FALSE] 175b6
175b3:  8c ff ee                JUMP            175a2
175b6:  41 03 01 00 23          JE              L02,#01 [FALSE] 175dc
175bb:  b2 ...                  PRINT           "the Blank Card ("which I am
forbidden to see")"
175dc:  41 03 02 00 15          JE              L02,#02 [FALSE] 175f4
175e1:  b2 ...                  PRINT           "the One-Eyed Merchant"
175f4:  41 03 03 00 15          JE              L02,#03 [FALSE] 1760c
175f9:  b2 ...                  PRINT           "Marie, the Sledging Girl"
1760c:  41 03 04 00 0d          JE              L02,#04 [FALSE] 1761c
17611:  b2 ...                  PRINT           "the Red Rock"
1761c:  41 03 05 00 0f          JE              L02,#05 [FALSE] 1762e
17621:  b2 ...                  PRINT           "the Stony Wastes"
1762e:  41 03 06 00 0f          JE              L02,#06 [FALSE] 17640
17633:  b2 ...                  PRINT           "the Arch-Duke"
17640:  41 03 07 00 0d          JE              L02,#07 [FALSE] 17650
17645:  b2 ...                  PRINT           "the Hyacinths"
17650:  41 03 08 00 0b          JE              L02,#08 [FALSE] 1765e
17655:  b2 ...                  PRINT           "the Wheel"
1765e:  41 03 09 00 19          JE              L02,#09 [FALSE] 1767a
17663:  b2 ...                  PRINT           "Belladonna, the Lady of the
Rocks"
1767a:  41 03 0a 00 11          JE              L02,#0a [FALSE] 1768e
1767f:  b2 ...                  PRINT           "the Hypocrit Reader"
1768e:  41 03 0b 00 11          JE              L02,#0b [FALSE] 176a2
17693:  b2 ...                  PRINT           "the Golden Cupidon"
176a2:  41 03 0c 00 11          JE              L02,#0c [FALSE] 176b6
176a7:  b2 ...                  PRINT           "the Candle-Flames"
176b6:  41 03 0d 00 11          JE              L02,#0d [FALSE] 176ca
176bb:  b2 ...                  PRINT           "the Carved Dolphin"
176ca:  41 03 0e 00 17          JE              L02,#0e [FALSE] 176e4
176cf:  b2 ...                  PRINT           "Philomel, the Barbarous King"
176e4:  41 03 0f 00 11          JE              L02,#0f [FALSE] 176f8
176e9:  b2 ...                  PRINT           "the Lonely Typist"
176f8:  41 03 10 00 15          JE              L02,#10 [FALSE] 17710
176fd:  b2 ...                  PRINT           "the Bradford Millionaire"
17710:  41 03 11 00 11          JE              L02,#11 [FALSE] 17724
17715:  b2 ...                  PRINT           "Magnus, the Martyr"
17724:  41 03 12 00 15          JE              L02,#12 [FALSE] 1773c
17729:  b2 ...                  PRINT           "Phlebas, the Phoenician"
1773c:  41 03 13 00 19          JE              L02,#13 [FALSE] 17758
17741:  b2 ...                  PRINT           "the Woman with Long Black
Hair"
17758:  41 03 14 00 17          JE              L02,#14 [FALSE] 17772
1775d:  b2 ...                  PRINT           "the Cicadas in the Pine Trees"
17772:  42 03 15 00 04          JL              L02,#15 [FALSE] 17779
17777:  ab 03                   RET             L02
17779:  42 03 1f 00 16          JL              L02,#1f [FALSE] 17792
1777e:  55 03 14 00             SUB             L02,#14 -> -(SP)
17782:  da 2f 5d 4c 00          CALL_2N         17530 ((SP)+)
17787:  b2 ...                  PRINT           " of Staves"
17790:  ab 03                   RET             L02
17792:  41 03 1f 00 17          JE              L02,#1f [FALSE] 177ac
17797:  b2 ...                  PRINT           "Tiresias, the shape changer"
177aa:  ab 03                   RET             L02
177ac:  42 03 29 00 14          JL              L02,#29 [FALSE] 177c3
177b1:  55 03 1e 00             SUB             L02,#1e -> -(SP)
177b5:  da 2f 5d 4c 00          CALL_2N         17530 ((SP)+)
177ba:  b2 ...                  PRINT           " of Cups"
177c1:  ab 03                   RET             L02
177c3:  55 03 28 00             SUB             L02,#28 -> -(SP)
177c7:  da 2f 5d 4c 00          CALL_2N         17530 ((SP)+)
177cc:  b2 ...                  PRINT           " of Stones"
177d5:  ab 03                   RET             L02
177d7:  96 a3                   DEC             G93
177d9:  6f a2 a3 03             LOADW           G92,G93 -> L02
177dd:  ce 8f 03 00 9f          INSERT_OBJ      L02,"Consulting Room"
177e2:  da 2f 38 4e 03          CALL_2N         e138 (L02)
177e7:  ab 03                   RET             L02

Routine 177ec, 1 local

177ed:  e1 ab a2 a3 01          STOREW          G92,G93,L00
177f2:  95 a3                   INC             G93
177f4:  b0                      RTRUE

Routine 177f8, 3 locals

177f9:  b2 ...                  PRINT           "Madame Sosostris picks up the
cards and deals them onto the table. She frowns in concentration as "
17836:  e0 17 5d 67 00 00 01    CALL_VS         1759c (#00,#00) -> L00
1783d:  b2 ...                  PRINT           ", "
17840:  e0 27 5d 67 01 00 02    CALL_VS         1759c (L00,#00) -> L01
17847:  b2 ...                  PRINT           " and then "
1784e:  e0 2b 5d 67 01 02 03    CALL_VS         1759c (L00,L01) -> L02
17855:  b2 ...                  PRINT           " show. "
1785c:  c1 8f 01 00 a4 00 9e    JE              L00,#00a4 [FALSE] 178ff
17863:  b2 ...                  PRINT           "She blanches with alarm, then
recovers and jabbers something about not taking the cards too literally, the
images being symbolic and so on. As rapidly as she possibly can, she warns you
to fear death by water and then hustles you out onto the street.
"
178fc:  8c 01 58                JUMP            17a55
178ff:  c1 8f 01 00 bf 00 10    JE              L00,#00bf [FALSE] 17914
17906:  c1 8f 02 00 c1 00 09    JE              L01,#00c1 [FALSE] 17914
1790d:  c1 8f 03 00 c0 80 05    JE              L02,#00c0 [TRUE] 17917
17914:  8c 00 92                JUMP            179a7
17917:  b2 ...                  PRINT           ""You have come!  At last,
after all these centuries!  But there is little I can do to ease your way, save
to return the staff you left with me for safe keeping."  And she shows you out.
You feel rather bewildered.
"
1799c:  ce 2f 00 a7 19          INSERT_OBJ      "oak quarterstaff",G09
179a1:  0b 9a 08                SET_ATTR        "Unreal City",#08
179a4:  8c 00 b0                JUMP            17a55
179a7:  da 1f 97 a4 12          CALL_2N         25e90 (#12)
179ac:  b2 ...                  PRINT           ""Curse it, another nobody,"
she hisses in an unguarded moment, as she tidies the pack absentmindedly with
her hands. Then she recovers her poise and advises about handsome strangers,
fearing death by water, crossing palms with gold and so on. Eventually she
ushers you out.
"
17a55:  da 1f 9d 20 9a          CALL_2N         27480 (#9a)
17a5a:  b0                      RTRUE

Routine 17a5c, 0 locals

17a5d:  41 3a 56 00 15          JE              G2a,#56 [FALSE] 17a75
17a62:  b3 ...                  PRINT_RET       "You feel briefly incensed."
17a75:  b1                      RFALSE

Routine 17a78, 0 locals

17a79:  c1 97 3a 13 14 00 45    JE              G2a,#13,#14 [FALSE] 17ac3
17a80:  b3 ...                  PRINT_RET       "That's funny. For a moment
there your hand seemed to go straight through the pack of cards without
touching it!"
17ac3:  41 3a 90 00 40          JE              G2a,#90 [FALSE] 17b06
17ac8:  41 31 00 00 33          JE              G21,#00 [FALSE] 17afe
17acd:  b3 ...                  PRINT_RET       "An intriguing idea, but you'll
have to be more explicit about how to do it."
17afe:  f9 1a 36 0d 1a 31 2f    CALL_VN         d834 (#1a,G21,G1f)
17b05:  b0                      RTRUE
17b06:  c1 8f 3a 01 01 00 70    JE              G2a,#0101 [FALSE] 17b7b
17b0d:  c6 2f 00 a3 11 00 1b    JIN             "Madame Sosostris, famous
clairvoyante",G01 [FALSE] 17b2d
17b14:  b3 ...                  PRINT_RET       "Madame Sosostris won't let
you."
17b2d:  4a 30 1e 80 1f          TEST_ATTR       G20,#1e [TRUE] 17b4f
17b32:  b3 ...                  PRINT_RET       "That would look rather
incongruous, surely?"
17b4f:  a9 30                   REMOVE_OBJ      G20
17b51:  da 2f 5d fb 30          CALL_2N         177ec (G20)
17b56:  b2 ...                  PRINT           "You carefully lay "
17b63:  da 2f 38 4e 2b          CALL_2N         e138 (G1b)
17b68:  b3 ...                  PRINT_RET       " face down on the tarot pack."
17b7b:  c1 95 3a 2b 2a 2c 00 19 JE              G2a,#2b,#2a,#2c [FALSE] 17b9a
17b83:  b3 ...                  PRINT_RET       "The cards defy mortal
examination."
17b9a:  b1                      RFALSE

Routine 17b9c, 0 locals

17b9d:  41 3a 3d 01 31          JE              G2a,#3d [FALSE] 17cd1
17ba2:  c6 1f 00 a3 9f 00 23    JIN             "Madame Sosostris, famous
clairvoyante","Consulting Room" [FALSE] 17bca
17ba9:  b3 ...                  PRINT_RET       "Madame Sosostris looks at you
in some irritation."
17bca:  ca 1f 00 a3 08 80 97    TEST_ATTR       "Madame Sosostris, famous
clairvoyante",#08 [TRUE] 17c66
17bd1:  ce 1f 00 a3 9f          INSERT_OBJ      "Madame Sosostris, famous
clairvoyante","Consulting Room"
17bd6:  0b a1 08                SET_ATTR        "curtain",#08
17bd9:  b3 ...                  PRINT_RET       "Madame Sosostris, the famous
clairvoyante, breezes in through the hanging curtain and sits behind the table,
making waving gestures with her hands.

"First, this I must know, were you born in an even, or an odd, year?""
17c66:  0a 9a 08 00 13          TEST_ATTR       "Unreal City",#08 [FALSE] 17c7c
17c6b:  b3 ...                  PRINT_RET       "She has helped enough."
17c7c:  b2 ...                  PRINT           "Madame Sosostris breezes in
once more. "You again," she says warily. "Let us see how your fortunes have
changed."

"
17ccd:  8f 5d fe                CALL_1N         177f8
17cd0:  b0                      RTRUE
17cd1:  b1                      RFALSE

Routine 17cd4, 0 locals

17cd5:  41 3a 22 00 59          JE              G2a,#22 [FALSE] 17d31
17cda:  c1 8f 30 00 a9 00 3b    JE              G20,#00a9 [FALSE] 17d1a
17ce1:  b3 ...                  PRINT_RET       "Gratefully she blows her nose
but then returns the handkerchief. You refold it ingeniously."
17d1a:  b2 ...                  PRINT           "She looks warily at "
17d29:  da 2f 38 4e 30          CALL_2N         e138 (G20)
17d2e:  b3 ...                  PRINT_RET       "."
17d31:  41 3a 54 00 27          JE              G2a,#54 [FALSE] 17d5b
17d36:  b3 ...                  PRINT_RET       "She kisses you forcibly. Her
mouth tastes of tobacco."
17d5b:  41 3a 42 00 4d          JE              G2a,#42 [FALSE] 17dab
17d60:  b3 ...                  PRINT_RET       "She mesmerises you into
immobility. She hasn't lived all these centuries in the Latin Quarter for
nothing, you know."
17dab:  41 3a 44 00 59          JE              G2a,#44 [FALSE] 17e07
17db0:  0a a1 08 80 15          TEST_ATTR       "curtain",#08 [TRUE] 17dc8
17db5:  b3 ...                  PRINT_RET       "She is startled and stares."
17dc8:  c1 83 32 80 70 8e ad 00 11
                               JE              G22,"even","odd" [FALSE] 17de0
17dd1:  8f 5d fe                CALL_1N         177f8
17dd4:  99 a3                   REMOVE_OBJ      "Madame Sosostris, famous
clairvoyante"
17dd6:  0c a1 08                CLEAR_ATTR      "curtain",#08
17dd9:  0b a3 08                SET_ATTR        "Madame Sosostris, famous
clairvoyante",#08
17ddc:  0b a3 02                SET_ATTR        "Madame Sosostris, famous
clairvoyante",#02
17ddf:  b0                      RTRUE
17de0:  b3 ...                  PRINT_RET       ""You must answer my question!"
 She does seem anxious."
17e07:  b1                      RFALSE

Routine 17e08, 0 locals

17e09:  c1 97 3a 4e 5d 00 19    JE              G2a,#4e,#5d [FALSE] 17e27
17e10:  b3 ...                  PRINT_RET       "That foul water?  Not a
chance."
17e27:  b1                      RFALSE

Routine 17e28, 0 locals

17e29:  ca 1f 00 aa 0e 80 0a    TEST_ATTR       "tourist boat",#0e [TRUE] 17e38
17e30:  f9 13 36 0d 15 00 aa    CALL_VN         d834 (#15,#00aa)
17e37:  b0                      RTRUE
17e38:  8b 00 aa                RET             #00aa

Routine 17e3c, 0 locals

17e3d:  41 3a 39 00 44          JE              G2a,#39 [FALSE] 17e84
17e42:  41 11 a8 00 3f          JE              G01,#a8 [FALSE] 17e84
17e47:  ca 1f 00 aa 0e 80 38    TEST_ATTR       "tourist boat",#0e [TRUE] 17e84
17e4e:  cb 1f 00 aa 0e          SET_ATTR        "tourist boat",#0e
17e53:  b3 ...                  PRINT_RET       "You wave the handkerchief, and
the boat glides smoothly across the river toward you."
17e84:  b1                      RFALSE

Routine 17e88, 0 locals

17e89:  41 3a 15 00 31          JE              G2a,#15 [FALSE] 17ebd
17e8e:  4a 2f 0e 80 2b          TEST_ATTR       G1f,#0e [TRUE] 17ebc
17e93:  b3 ...                  PRINT_RET       "Are you in Seine?  There is a
river in between you and the boat."
17ebc:  b1                      RFALSE
17ebd:  b1                      RFALSE

Routine 17ec0, 0 locals

17ec1:  41 3a 42 00 25          JE              G2a,#42 [FALSE] 17ee9
17ec6:  b3 ...                  PRINT_RET       "You are unable to touch the
man. It is as if he isn't there."
17ee9:  c1 87 3a 01 03 44 02 2c JE              G2a,#0103,#44 [FALSE] 1811b
17ef1:  c1 8f 32 9e 1c 80 07    JE              G22,"time" [TRUE] 17efd
17ef8:  41 2a 68 00 ed          JE              G1a,#68 [FALSE] 17fe8
17efd:  b2 ...                  PRINT           "You lose all sense of time and
place as the boat drifts down river... It comes as a considerable relief to
your befuddled nerves when the man helps you off the boat again, and you find
yourself:
"
17f72:  ca 1f 00 b0 0c 00 08    TEST_ATTR       "tourist map of Paris",#0c
[FALSE] 17f7f
17f79:  da 1f 9d 20 8a          CALL_2N         27480 (#8a)
17f7e:  b0                      RTRUE
17f7f:  da 0f 9d 20 01 14       CALL_2N         27480 (#0114)
17f85:  0a ac 08 80 5f          TEST_ATTR       "hollow man",#08 [TRUE] 17fe7
17f8a:  0b ac 08                SET_ATTR        "hollow man",#08
17f8d:  ce 2f 00 c2 19          INSERT_OBJ      "Ace of Cups",G09
17f92:  b3 ...                  PRINT_RET       "
Was any of that real? you wonder, as you relax in the sunshine. But then you
realise you are clutching a tarot card which certainly is."
17fe7:  b0                      RTRUE
17fe8:  95 a4                   INC             G94
17fea:  41 a4 01 00 33          JE              G94,#01 [FALSE] 18020
17fef:  b3 ...                  PRINT_RET       ""I don't believe in that place
any more. Hurry up please it's time!""
18020:  41 a4 02 00 19          JE              G94,#02 [FALSE] 1803c
18025:  b3 ...                  PRINT_RET       ""Hurry up please it's time!""
1803c:  41 a4 03 00 27          JE              G94,#03 [FALSE] 18066
18041:  b3 ...                  PRINT_RET       ""HURRY UP PLEASE IT'S TIME!""
18066:  41 a4 04 00 21          JE              G94,#04 [FALSE] 1808a
1806b:  b3 ...                  PRINT_RET       "He can't be bothered to say
anything this time."
1808a:  41 a4 05 00 1f          JE              G94,#05 [FALSE] 180ac
1808f:  b3 ...                  PRINT_RET       "It really is time you thought
of something."
180ac:  41 a4 06 00 25          JE              G94,#06 [FALSE] 180d4
180b1:  b3 ...                  PRINT_RET       "Time and time again you
haven't guessed correctly."
180d4:  41 a4 07 00 29          JE              G94,#07 [FALSE] 18100
180d9:  b3 ...                  PRINT_RET       "The hollow man must be
beginning to think you can't take a hint."
18100:  b3 ...                  PRINT_RET       ""It's time!" repeats the
hollow man."
1811b:  41 3a 46 00 1b          JE              G2a,#46 [FALSE] 18139
18120:  b3 ...                  PRINT_RET       "Your question merely echoes
inside him."
18139:  b1                      RFALSE

Routine 1813c, 0 locals

1813d:  41 3a 4c 00 1f          JE              G2a,#4c [FALSE] 1815f
18142:  b3 ...                  PRINT_RET       ""Q'est-ce que vous voulez
acheter?""
1815f:  b1                      RFALSE

Routine 18160, 0 locals

18161:  41 3a 22 00 56          JE              G2a,#22 [FALSE] 181ba
18166:  c1 8f 30 01 67 80 25    JE              G20,#0167 [TRUE] 18190
1816d:  b3 ...                  PRINT_RET       ""Ceci n'est pas argent," he
explains wearily."
18190:  a9 30                   REMOVE_OBJ      G20
18192:  4b 30 08                SET_ATTR        G20,#08
18195:  b3 ...                  PRINT_RET       "He takes the money. "Q'est-ce
que vous desirez?""
181ba:  41 3a 44 00 d2          JE              G2a,#44 [FALSE] 1828f
181bf:  ca 1f 01 67 08 80 33    TEST_ATTR       "fifty-franc note",#08 [TRUE]
181f7
181c6:  b3 ...                  PRINT_RET       "It's not that he doesn't
understand you, he's just obstructive for the sake of it."
181f7:  c1 8f 32 79 83 00 40    JE              G22,"carte" [FALSE] 1823c
181fe:  ce 2f 00 b0 19          INSERT_OBJ      "tourist map of Paris",G09
18203:  da 1f 9d bb 12          CALL_2N         276ec (#12)
18208:  cb 1f 00 b0 0c          SET_ATTR        "tourist map of Paris",#0c
1820d:  b3 ...                  PRINT_RET       "Extremely reluctantly he
serves you, giving you a tourist map of Paris."
1823c:  c1 8f 32 8b 29 00 1d    JE              G22,"map" [FALSE] 1825e
18243:  b3 ...                  PRINT_RET       "He refuses to understand you,
on principle."
1825e:  b3 ...                  PRINT_RET       ""Non."  And he folds his arms
defiantly. Perhaps he has no such thing."
1828f:  b1                      RFALSE

Routine 18290, 0 locals

18291:  b2 ...                  PRINT           "You pass between the steel
walls and a light passes over you. Now you know how paper feels in a
photocopier"
182d2:  a2 19 00 c2             GET_CHILD       G09 -> -(SP) [TRUE] 182d6
182d6:  41 00 00 00 0a          JE              (SP)+,#00 [FALSE] 182e3
182db:  b2 ...                  PRINT           ".
"
182e0:  8b 00 b9                RET             #00b9
182e3:  b3 ...                  PRINT_RET       " - in this case, one which
jams. Steel barriers appear across the corridor, and you are obliged to
withdraw back to the foyer.

After a moment, the barriers recede again."

Routine 1834c, 0 locals

1834d:  c1 95 3a 3f 3d 3c 00 a5 JE              G2a,#3f,#3d,#3c [FALSE] 183f8
18355:  b2 ...                  PRINT           "You give the revolving door a
heave, and it begins to move; but you pause, out of breath, after only a half
turn. "
1839a:  11 b1 09 00             GET_PROP        "Museum Foyer",#09 -> -(SP)
1839e:  c1 8f 00 00 b4 00 0b    JE              (SP)+,#00b4 [FALSE] 183ae
183a5:  e3 53 b1 09 00 b6       PUT_PROP        "Museum Foyer",#09,#00b6
183ab:  8c 00 08                JUMP            183b4
183ae:  e3 53 b1 09 00 b4       PUT_PROP        "Museum Foyer",#09,#00b4
183b4:  11 b1 09 00             GET_PROP        "Museum Foyer",#09 -> -(SP)
183b8:  0d ff 00                STORE           Gef,#00
183bb:  a2 00 00 49             GET_CHILD       (SP)+ -> -(SP) [FALSE] 183c6
183bf:  95 ff                   INC             Gef
183c1:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 183bf
183c6:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
183ca:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 183d1
183cf:  bb                      NEW_LINE
183d0:  b0                      RTRUE
183d1:  b3 ...                  PRINT_RET       "Interestingly, there's
something inside this segment of it."
183f8:  41 3a 15 00 09          JE              G2a,#15 [FALSE] 18404
183fd:  f9 17 36 0d 26 06       CALL_VN         d834 (#26,#06)
18403:  b0                      RTRUE
18404:  b1                      RFALSE

Routine 18408, 0 locals

18409:  f9 13 36 0d 3d 00 b5    CALL_VN         d834 (#3d,#00b5)
18410:  b0                      RTRUE

Routine 18414, 0 locals

18415:  c1 95 3a 3d 3f 3c 00 2f JE              G2a,#3d,#3f,#3c [FALSE] 1844a
1841d:  b3 ...                  PRINT_RET       "You revolve clockwise with the
door, and wind up back adjacent to the foyer."
1844a:  b1                      RFALSE

Routine 1844c, 0 locals

1844d:  c1 97 3a 13 14 00 51    JE              G2a,#13,#14 [FALSE] 184a3
18454:  b3 ...                  PRINT_RET       "The beach ball, a welcome dash
of colour in this drab monochrome night, is simply too big, cumbersome and
round to get hold of."
184a3:  41 3a 3e 00 cb          JE              G2a,#3e [FALSE] 18571
184a8:  41 31 03 00 c2          JE              G21,#03 [FALSE] 1856d
184ad:  41 11 b1 00 bd          JE              G01,#b1 [FALSE] 1856d
184b2:  b2 ...                  PRINT           "You pass between the steel
walls and a light passes over you. Suddenly barriers spring out across the
corridor, thumping into the beach ball which rapidly begins to deflate.

There is a sharp hiss as you nimbly jump over the ball, and then a horrid clang
as the barriers come together behind you.
"
1855f:  99 b8                   REMOVE_OBJ      "beach ball"
18561:  da 1f 9d bb 1f          CALL_2N         276ec (#1f)
18566:  da 0f 9d 20 00 b9       CALL_2N         27480 (#00b9)
1856c:  b0                      RTRUE
1856d:  8f a2 33                CALL_1N         288cc
18570:  b0                      RTRUE
18571:  b1                      RFALSE

Routine 18574, 0 locals

18575:  41 3a 3e 00 1f          JE              G2a,#3e [FALSE] 18597
1857a:  b3 ...                  PRINT_RET       "You bounce the beach ball
along in front of you."
18597:  b1                      RFALSE

Routine 18598, 0 locals

18599:  c1 8f 3a 01 01 00 17    JE              G2a,#0101 [FALSE] 185b5
185a0:  4a 30 1e 80 11          TEST_ATTR       G20,#1e [TRUE] 185b4
185a5:  b3 ...                  PRINT_RET       "Only cards will fit."
185b4:  b1                      RFALSE
185b5:  b1                      RFALSE

Routine 185b8, 0 locals

185b9:  41 3a 57 00 5f          JE              G2a,#57 [FALSE] 1861b
185be:  b3 ...                  PRINT_RET       "It sounds like a thinly, but
enthusiastically, attended football match. There are ragged German chants but
only the word "Eumenides" pokes out."
1861b:  41 3a 26 00 87          JE              G2a,#26 [FALSE] 186a5
18620:  c1 97 30 03 0b 00 7f    JE              G20,#03,#0b [FALSE] 186a4
18627:  b3 ...                  PRINT_RET       "You step downward in some
confusion, but your senses are assailed by some kind of vision, of a ghastly
circle of druids watching your every move and plotting, plotting...

In horror you turn back."
186a4:  b1                      RFALSE
186a5:  b1                      RFALSE

Routine 186a8, 0 locals

186a9:  da 1f 97 a4 0e          CALL_2N         25e90 (#0e)
186ae:  b1                      RFALSE

Routine 186b0, 0 locals

186b1:  66 19 2f 80 03          JIN             G09,G1f [TRUE] 186b7
186b6:  b0                      RTRUE
186b7:  0a c3 08 80 14          TEST_ATTR       "Coven Cell",#08 [TRUE] 186ce
186bc:  41 9c 00 00 05          JE              G8c,#00 [FALSE] 186c4
186c1:  4b 19 08                SET_ATTR        G09,#08
186c4:  0b c3 08                SET_ATTR        "Coven Cell",#08
186c7:  f9 27 37 1a 2f 03       CALL_VN         dc68 (G1f,#03)
186cd:  b0                      RTRUE
186ce:  b2 ...                  PRINT           "
A key turns in the door and Doktor Stein bursts in. He stops to pat the goat
affectionately. "Cheer up, Dobbin. As soon as I've finished this brutal human
sacrifice I'll take you for your walk."  He feeds Dobbin some sugar-cake. "They
make such marvellous cheese," he explains confidentially.
"
18791:  0d 1d 01                STORE           G0d,#01
18794:  4a 19 08 00 33          TEST_ATTR       G09,#08 [FALSE] 187ca
18799:  b3 ...                  PRINT_RET       "
In a trance, you go willingly to your (somewhat messy) sacrifice..."
187ca:  b3 ...                  PRINT_RET       "
Kicking and screaming, you are are dragged off to a grisly sacrifice..."

Routine 187fc, 0 locals

187fd:  41 2a 6b 00 25          JE              G1a,#6b [FALSE] 18825
18802:  b3 ...                  PRINT_RET       "No, this is a goat. A "ram" is
a kind of sheep."
18825:  41 2a 43 80 07          JE              G1a,#43 [TRUE] 1882f
1882a:  4a 19 08 80 03          TEST_ATTR       G09,#08 [TRUE] 18830
1882f:  b1                      RFALSE
18830:  b3 ...                  PRINT_RET       "You seem to lack the will any
more. The drug must have taken hold."

Routine 1885c, 0 locals

1885d:  41 3a 22 00 88          JE              G2a,#22 [FALSE] 188e8
18862:  4a 30 05 00 21          TEST_ATTR       G20,#05 [FALSE] 18886
18867:  a9 30                   REMOVE_OBJ      G20
18869:  b2 ...                  PRINT           "The goat happily munches down
"
1887e:  da 2f 38 4e 2b          CALL_2N         e138 (G1b)
18883:  b3 ...                  PRINT_RET       "."
18886:  41 30 37 00 30          JE              G20,#37 [FALSE] 188b9
1888b:  0a 37 0b 00 2b          TEST_ATTR       "mb",#0b [FALSE] 188b9
18890:  0c 37 0b                CLEAR_ATTR      "mb",#0b
18893:  0b 37 0e                SET_ATTR        "mb",#0e
18896:  b3 ...                  PRINT_RET       "The medicine bottle cracks
open in the goat's jaws!"
188b9:  41 30 73 00 2b          JE              G20,#73 [FALSE] 188e7
188be:  b3 ...                  PRINT_RET       "For heaven's sake, the daisy
chain is far too useful for that."
188e7:  b1                      RFALSE
188e8:  c1 85 3a 01 03 44 46 00 2f
                               JE              G2a,#0103,#44,#46 [FALSE] 1891e
188f1:  c1 8f 32 7c b6 00 21    JE              G22,"curses" [FALSE] 18917
188f8:  b2 ...                  PRINT           "In a harsh voice, the goat
intones:

"
18913:  8f 38 be                CALL_1N         e2f8
18916:  b0                      RTRUE
18917:  b3 ...                  PRINT_RET       "Grunt!"
1891e:  b1                      RFALSE

Routine 18920, 0 locals

18921:  41 3a 8a 00 39          JE              G2a,#8a [FALSE] 1895d
18926:  b3 ...                  PRINT_RET       "They're coming as fast as they
can!  Ritual doesn't just happen by itself, you know."
1895d:  b1                      RFALSE

Routine 18960, 0 locals

18961:  41 3a 2a 00 29          JE              G2a,#2a [FALSE] 1898d
18966:  c6 8f 30 00 c8 00 21    JIN             G20,"glass cabinet" [FALSE]
1898c
1896d:  b3 ...                  PRINT_RET       "It's too dark to see much
inside the cabinet."
1898c:  b1                      RFALSE
1898d:  b1                      RFALSE

Routine 18990, 0 locals

18991:  41 3a 42 00 54          JE              G2a,#42 [FALSE] 189e8
18996:  4a 2f 0e 00 1b          TEST_ATTR       G1f,#0e [FALSE] 189b4
1899b:  b3 ...                  PRINT_RET       "Just how broken do you want it
to be?"
189b4:  4b 2f 0e                SET_ATTR        G1f,#0e
189b7:  f9 27 37 1a 2f 05       CALL_VN         dc68 (G1f,#05)
189bd:  b3 ...                  PRINT_RET       "You smash the glass...
noisily. Still, the cabinet is open now."
189e8:  c1 97 3a 2e 30 00 13    JE              G2a,#2e,#30 [FALSE] 18a00
189ef:  b3 ...                  PRINT_RET       "The hinges are too secure."
18a00:  b1                      RFALSE

Routine 18a04, 0 locals

18a05:  41 8c 03 01 94          JE              G7c,#03 [FALSE] 18b9c
18a0a:  41 11 c3 81 8f          JE              G01,#c3 [TRUE] 18b9c
18a0f:  b2 ...                  PRINT           "
Finally reacting to the alarm you set off, Doktor Stein appears and steps
toward you, clapping his hands sharply. And dozens of robed figures leap out of
the darkness - but these are no security guards. Their faces are painted
hideously and they betray no emotion as they pinion you tight...

"So, Meldrew. It is all as it was prophesied," says Stein in a perfectly
conversational tone as he forces your mouth open and makes you swallow a violet
pill.

"One of your apothecary ancestors made this drug!  Appropriate, no?"

"
18b54:  b2 ...                  PRINT           "You feel queasy, but this is
perhaps the least of your problems as they drag you off...

"
18b8d:  f9 17 37 1a c3 00       CALL_VN         dc68 (#c3,#00)
18b93:  0d 9c 00                STORE           G8c,#00
18b96:  da 1f 9d 20 c3          CALL_2N         27480 (#c3)
18b9b:  b0                      RTRUE
18b9c:  b1                      RFALSE

Routine 18ba0, 0 locals

18ba1:  41 3a 13 00 31          JE              G2a,#13 [FALSE] 18bd5
18ba6:  4a 2f 08 00 2b          TEST_ATTR       G1f,#08 [FALSE] 18bd4
18bab:  b3 ...                  PRINT_RET       "Reach down the grating as you
may, it remains just beyond reach."
18bd4:  b1                      RFALSE
18bd5:  b1                      RFALSE

Routine 18bd8, 0 locals

18bd9:  41 3a 29 00 c4          JE              G2a,#29 [FALSE] 18ca0
18bde:  ca 1f 00 d3 18 00 bc    TEST_ATTR       "Cups and Glasses",#18 [FALSE]
18c9f
18be5:  ca 1f 00 cd 02 00 b5    TEST_ATTR       "complicated-looking bomb",#02
[FALSE] 18c9f
18bec:  b3 ...                  PRINT_RET       "
Over in one corner, you can see a little square window, behind which must be
the store of cups and glasses. Remembering this, you are distracted and unable
to enjoy the entertainment. Even the table is annoying. It must have one leg
shorter than the rest, or something, because it rattles now and then."
18c9f:  b1                      RFALSE
18ca0:  41 3a 76 00 5f          JE              G2a,#76 [FALSE] 18d02
18ca5:  b3 ...                  PRINT_RET       "You look rather conspicuous
striking the rod on the cafe table, but everyone else assumes you're part of
the cabaret. Anyway, the rod charges up as usual."
18d02:  b1                      RFALSE

Routine 18d04, 0 locals

18d05:  ca 1f 00 cd 02 00 09    TEST_ATTR       "complicated-looking bomb",#02
[FALSE] 18d13
18d0c:  f9 07 37 1a 00 cd 0a    CALL_VN         dc68 (#00cd,#0a)
18d13:  b1                      RFALSE

Routine 18d14, 0 locals

18d15:  ca 1f 00 cd 02 80 09    TEST_ATTR       "complicated-looking bomb",#02
[TRUE] 18d23
18d1c:  bb                      NEW_LINE
18d1d:  8f 65 2c                CALL_1N         194b0
18d20:  8c 00 17                JUMP            18d38
18d23:  b2 ...                  PRINT           "
The table rattles again.
"
18d38:  b1                      RFALSE

Routine 18d3c, 0 locals

18d3d:  c1 97 3a 2c 2b 00 6d    JE              G2a,#2c,#2b [FALSE] 18daf
18d44:  ca 1f 00 cd 02 00 4d    TEST_ATTR       "complicated-looking bomb",#02
[FALSE] 18d96
18d4b:  cc 1f 00 cd 02          CLEAR_ATTR      "complicated-looking bomb",#02
18d50:  ce 1f 00 cd cb          INSERT_OBJ      "complicated-looking
bomb","Ruined Castle Cafe"
18d55:  b3 ...                  PRINT_RET       "Now don't panic, but there's a
ticking bomb loosely taped to the underside of the table you're sitting at!"
18d96:  b3 ...                  PRINT_RET       "You make no further alarming
discoveries."
18daf:  41 3a 15 00 49          JE              G2a,#15 [FALSE] 18dfb
18db4:  b3 ...                  PRINT_RET       "Even in a cafe as lively as
this, your natural English inhibitions make it impossible for you to climb up
on the table."
18dfb:  b1                      RFALSE

Routine 18dfc, 0 locals

18dfd:  41 11 cb 80 03          JE              G01,#cb [TRUE] 18e03
18e02:  b1                      RFALSE
18e03:  0a cd 02 80 be          TEST_ATTR       "complicated-looking bomb",#02
[TRUE] 18ec4
18e08:  d0 1f 62 87 00 00       LOADB           #6287,#00 -> -(SP)
18e0e:  c1 2f 00 d1 00 00 29    JE              #00d1,(SP)+ [FALSE] 18e3c
18e15:  d0 1f 62 87 01 00       LOADB           #6287,#01 -> -(SP)
18e1b:  c1 2f 00 cf 00 00 1c    JE              #00cf,(SP)+ [FALSE] 18e3c
18e22:  d0 1f 62 87 02 00       LOADB           #6287,#02 -> -(SP)
18e28:  c1 2f 00 d2 00 00 0f    JE              #00d2,(SP)+ [FALSE] 18e3c
18e2f:  d0 1f 62 87 03 00       LOADB           #6287,#03 -> -(SP)
18e35:  c1 2f 00 d0 00 80 32    JE              #00d0,(SP)+ [TRUE] 18e6c
18e3c:  b2 ...                  PRINT           "
Click!  Perhaps there's more to bomb disposal than you thought.
"
18e69:  8c 00 5a                JUMP            18ec4
18e6c:  b2 ...                  PRINT           "
Click!  The timer runs out, but the bomb was disarmed. You pocket the timer and
hide the rest of the evidence under the table.
"
18eb7:  ce 2f 00 ce 19          INSERT_OBJ      "timer-detonator",G09
18ebc:  cc 1f 00 ce 13          CLEAR_ATTR      "timer-detonator",#13
18ec1:  99 cd                   REMOVE_OBJ      "complicated-looking bomb"
18ec3:  b0                      RTRUE
18ec4:  b2 ...                  PRINT           "
In a sudden cataclysm, there is an enormous explosion from your table, blowing
out all the arrowslit windows, making a thunderous noise, starting a minor
fire, and of course having one other consequence:
"
18f3d:  0d 1d 01                STORE           G0d,#01
18f40:  b1                      RFALSE

Routine 18f44, 0 locals

18f45:  41 3a 13 00 8e          JE              G2a,#13 [FALSE] 18fd6
18f4a:  0d 1d 08                STORE           G0d,#08
18f4d:  b3 ...                  PRINT_RET       "Suddenly, someone catches
sight of you with the bomb and screams. One thing leads to another, and, well,
you know how it is with foreign legal systems. At least the bomb gets defused,
and twenty-five years isn't all that long."
18fd6:  b1                      RFALSE

Routine 18fd8, 3 locals

18fd9:  0d 01 ce                STORE           L00,#ce
18fdc:  a3 01 02                GET_PARENT      L00 -> L01
18fdf:  e3 97 2f 18 00          PUT_PROP        G1f,#18,#00
18fe4:  a3 01 00                GET_PARENT      L00 -> -(SP)
18fe7:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] 18ff2
18fec:  a3 01 01                GET_PARENT      L00 -> L00
18fef:  8c ff f4                JUMP            18fe4
18ff2:  61 11 01 03 88          JE              G01,L00 [FALSE] 1937d
18ff7:  b2 ...                  PRINT           "
You hear a sharp click!
"
1900a:  41 02 3f 03 70          JE              L01,#3f [FALSE] 1937d
1900f:  bb                      NEW_LINE
19010:  a2 02 03 c2             GET_CHILD       L01 -> L02 [TRUE] 19014
19014:  41 03 ce 00 06          JE              L02,#ce [FALSE] 1901d
19019:  a1 03 03 c2             GET_SIBLING     L02 -> L02 [TRUE] 1901d
1901d:  41 03 00 00 13          JE              L02,#00 [FALSE] 19033
19022:  b3 ...                  PRINT_RET       "But the flash does nothing."
19033:  41 03 69 80 25          JE              L02,#69 [TRUE] 1905b
19038:  b3 ...                  PRINT_RET       "And the flash gives a
pathetically small flash of light."
1905b:  b2 ...                  PRINT           "The flash suddenly gives an
enormous magnesium-flare flash, almost blinding in its intensity. Your eyes
take a little while to adjust. "
190b2:  41 11 cb 00 4d          JE              G01,#cb [FALSE] 19102
190b7:  b2 ...                  PRINT           "Consequently you can only hear
as the cabaret audience gives you a round of applause for what they think is a
magic trick."
19102:  0d 03 3f                STORE           L02,#3f
19105:  a3 03 03                GET_PARENT      L02 -> L02
19108:  c1 8f 03 01 02 02 0f    JE              L02,#0102 [FALSE] 1931c
1910f:  0a 3f 08 82 0a          TEST_ATTR       "photographer's flash",#08
[TRUE] 1931c
19114:  0b 3f 08                SET_ATTR        "photographer's flash",#08
19117:  b2 ...                  PRINT           "Consequently you can only hear
as the smudge on the horizon rises from the waves, becomes an enormous Kraken
sea monster and lunges for the stone tower. (Considering this is supposed to be
a Greek myth it feels surprisingly like a Japanese 1960s creature film.)  The
Kraken swipes at you, overreaches itself and falls over forward, impaling
itself extremely messily on the pharos. Your eyes just about recover by the
time the rest of your body is crushed by its weight.

Up on Mount Olympus, Zeus is still cross. "Take me to your Leda", you wittily
demand, but this does not seem to improve matters. Poseidon also looks rather
fed up, but luckily a sizeable faction of goddesses takes your side and
arranges to have you resurrected...
"
192e4:  da 1f 9d bb 0b          CALL_2N         276ec (#0b)
192e9:  99 3f                   REMOVE_OBJ      "photographer's flash"
192eb:  cc 1f 01 01 18          CLEAR_ATTR      "Lighthouse",#18
192f0:  cc 1f 01 01 12          CLEAR_ATTR      "Lighthouse",#12
192f5:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 192f9
192f9:  41 01 00 80 19          JE              L00,#00 [TRUE] 19315
192fe:  a1 01 02 c2             GET_SIBLING     L00 -> L01 [TRUE] 19302
19302:  41 01 73 80 0a          JE              L00,#73 [TRUE] 1930f
19307:  ce 8f 01 01 01          INSERT_OBJ      L00,"Lighthouse"
1930c:  4c 01 1a                CLEAR_ATTR      L00,#1a
1930f:  2d 01 02                STORE           L00,L01
19312:  8c ff e6                JUMP            192f9
19315:  da 0f 9d 20 01 1b       CALL_2N         27480 (#011b)
1931b:  b0                      RTRUE
1931c:  bb                      NEW_LINE
1931d:  26 3a 11 00 33          JIN             "Austin",G01 [FALSE] 19353
19322:  b3 ...                  PRINT_RET       "
Austin jumps with fear, then slouches back again into his "cool" pose."
19353:  c6 2f 01 41 11 00 25    JIN             "irate squirrel friend",G01
[FALSE] 1937d
1935a:  b3 ...                  PRINT_RET       "
The squirrel covers his eyes with his paws for a moment."
1937d:  b1                      RFALSE

Routine 19380, 1 local

19381:  41 3a 2a 00 71          JE              G2a,#2a [FALSE] 193f5
19386:  b2 ...                  PRINT           "The timer seems quite simple
to set. "
1939f:  51 2f 17 01             GET_PROP        G1f,#17 -> L00
193a3:  51 2f 18 00             GET_PROP        G1f,#18 -> -(SP)
193a7:  41 00 00 80 29          JE              (SP)+,#00 [TRUE] 193d3
193ac:  b2 ...                  PRINT           "The clock is running, and
currently at "
193c5:  da 2f 99 a2 01          CALL_2N         26688 (L00)
193ca:  b3 ...                  PRINT_RET       " minutes."
193d3:  41 01 00 80 06          JE              L00,#00 [TRUE] 193dc
193d8:  8f 65 2c                CALL_1N         194b0
193db:  b0                      RTRUE
193dc:  b3 ...                  PRINT_RET       "At present the clock is reset
to zero."
193f5:  41 3a 3a 00 48          JE              G2a,#3a [FALSE] 19440
193fa:  51 2f 18 00             GET_PROP        G1f,#18 -> -(SP)
193fe:  41 00 00 80 11          JE              (SP)+,#00 [TRUE] 19412
19403:  b3 ...                  PRINT_RET       "It is already running!"
19412:  f9 27 37 1a 2f 0a       CALL_VN         dc68 (G1f,#0a)
19418:  e3 97 2f 18 01          PUT_PROP        G1f,#18,#01
1941d:  b3 ...                  PRINT_RET       "You wind back the timer to ten
minutes, and off it goes."
19440:  b1                      RFALSE

Routine 19444, 1 local

19445:  41 3a 3c 00 67          JE              G2a,#3c [FALSE] 194af
1944a:  4a 2f 08 00 19          TEST_ATTR       G1f,#08 [FALSE] 19466
1944f:  b3 ...                  PRINT_RET       "That one's already pulled
out."
19466:  4b 2f 08                SET_ATTR        G1f,#08
19469:  b2 ...                  PRINT           "You pull out "
19472:  da 2f 38 4e 2b          CALL_2N         e138 (G1b)
19477:  b2 ...                  PRINT           ". "
1947a:  11 cd 18 01             GET_PROP        "complicated-looking bomb",#18
-> L00
1947e:  54 01 01 00             ADD             L00,#01 -> -(SP)
19482:  e3 5b cd 18 00          PUT_PROP        "complicated-looking
bomb",#18,(SP)+
19487:  e2 2b 62 87 01 2f       STOREB          #6287,L00,G1f
1948d:  41 01 03 00 1e          JE              L00,#03 [FALSE] 194ae
19492:  0b cd 08                SET_ATTR        "complicated-looking bomb",#08
19495:  b3 ...                  PRINT_RET       "All four wires are now
disconnected."
194ae:  b0                      RTRUE
194af:  b1                      RFALSE

Routine 194b0, 2 locals

194b1:  b2 ...                  PRINT           "The clock is ticking
downwards, and is "
194ca:  11 cd 17 00             GET_PROP        "complicated-looking bomb",#17
-> -(SP)
194ce:  41 00 00 00 14          JE              (SP)+,#00 [FALSE] 194e5
194d3:  b2 ...                  PRINT           "right on the red zone!  "
194e2:  8c 00 3b                JUMP            1951e
194e5:  11 cd 17 00             GET_PROP        "complicated-looking bomb",#17
-> -(SP)
194e9:  da 2f 99 a2 00          CALL_2N         26688 ((SP)+)
194ee:  b2 ...                  PRINT           " minute"
194f5:  11 cd 17 00             GET_PROP        "complicated-looking bomb",#17
-> -(SP)
194f9:  41 00 01 80 05          JE              (SP)+,#01 [TRUE] 19501
194fe:  b2 ...                  PRINT           "s"
19501:  b2 ...                  PRINT           " short of the red zone. "
19510:  11 cd 17 00             GET_PROP        "complicated-looking bomb",#17
-> -(SP)
19514:  41 00 05 00 07          JE              (SP)+,#05 [FALSE] 1951e
19519:  da 1f 97 a4 0a          CALL_2N         25e90 (#0a)
1951e:  11 cd 18 01             GET_PROP        "complicated-looking bomb",#18
-> L00
19522:  41 01 00 00 1f          JE              L00,#00 [FALSE] 19544
19527:  b3 ...                  PRINT_RET       "All four wires are plugged
into the timer."
19544:  41 01 01 00 09          JE              L00,#01 [FALSE] 19550
19549:  b2 ...                  PRINT           "Only the "
19550:  41 01 02 00 05          JE              L00,#02 [FALSE] 19558
19555:  b2 ...                  PRINT           "The "
19558:  41 01 03 00 05          JE              L00,#03 [FALSE] 19560
1955d:  b2 ...                  PRINT           "The "
19560:  41 01 04 00 17          JE              L00,#04 [FALSE] 1957a
19565:  b3 ...                  PRINT_RET       "None of the wires are plugged
in."
1957a:  2d 02 01                STORE           L01,L00
1957d:  0a d0 08 00 0e          TEST_ATTR       "red wire",#08 [FALSE] 1958e
19582:  da 1f 38 57 d0          CALL_2N         e15c (#d0)
19587:  96 02                   DEC             L01
19589:  da 2f 65 77 02          CALL_2N         195dc (L01)
1958e:  0a cf 08 00 0e          TEST_ATTR       "green wire",#08 [FALSE] 1959f
19593:  da 1f 38 57 cf          CALL_2N         e15c (#cf)
19598:  96 02                   DEC             L01
1959a:  da 2f 65 77 02          CALL_2N         195dc (L01)
1959f:  0a d1 08 00 0e          TEST_ATTR       "blue wire",#08 [FALSE] 195b0
195a4:  da 1f 38 57 d1          CALL_2N         e15c (#d1)
195a9:  96 02                   DEC             L01
195ab:  da 2f 65 77 02          CALL_2N         195dc (L01)
195b0:  0a d2 08 00 0e          TEST_ATTR       "black wire",#08 [FALSE] 195c1
195b5:  da 1f 38 57 d2          CALL_2N         e15c (#d2)
195ba:  96 02                   DEC             L01
195bc:  da 2f 65 77 02          CALL_2N         195dc (L01)
195c1:  41 01 01 00 0d          JE              L00,#01 [FALSE] 195d1
195c6:  b3 ...                  PRINT_RET       " is unplugged."
195d1:  b3 ...                  PRINT_RET       " are unplugged."

Routine 195dc, 1 local

195dd:  41 01 01 00 08          JE              L00,#01 [FALSE] 195e8
195e2:  b2 ...                  PRINT           " and "
195e7:  b1                      RFALSE
195e8:  41 01 00 00 03          JE              L00,#00 [FALSE] 195ee
195ed:  b1                      RFALSE
195ee:  b2 ...                  PRINT           ", "
195f1:  b0                      RTRUE

Routine 195f4, 1 local

195f5:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
195f9:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
195fd:  e3 9b 2f 17 00          PUT_PROP        G1f,#17,(SP)+
19602:  51 2f 17 01             GET_PROP        G1f,#17 -> L00
19606:  41 01 02 00 35          JE              L00,#02 [FALSE] 1963e
1960b:  b3 ...                  PRINT_RET       "
There is a scuffling noise as some people gather up on the pavement outside the
skylight."
1963e:  41 01 03 00 51          JE              L00,#03 [FALSE] 19692
19643:  b3 ...                  PRINT_RET       "
The men begin to talk like conspirators, but half in chants. You catch
occasional sounds, but can make little sense of them."
19692:  41 01 04 00 b9          JE              L00,#04 [FALSE] 1974e
19697:  b3 ...                  PRINT_RET       "
Alarmingly, you catch the odd word "incendiary" and are almost sure you can
make out someone say "accursed Meldrew" (in the old-fashioned way, you know, so
that "accursed" rhymes with "dead"). Paranoia, bound to be. There surely can't
really be a conspiracy of druid-worshippers out to get you?"
1974e:  41 01 05 00 4d          JE              L00,#05 [FALSE] 1979e
19753:  b3 ...                  PRINT_RET       "
"The prophecy must be fulfilled!" one warns, in an unearthly voice which
suddenly carries. The others hush him."
1979e:  41 01 06 00 27          JE              L00,#06 [FALSE] 197c8
197a3:  b3 ...                  PRINT_RET       "
The men walk away, perhaps a few feet, perhaps a mile."
197c8:  b1                      RFALSE

Routine 197cc, 0 locals

197cd:  c1 95 3a 2b 2a 2c 00 62 JE              G2a,#2b,#2a,#2c [FALSE] 19835
197d5:  ca 1f 00 d8 08 80 0d    TEST_ATTR       "model ship",#08 [TRUE] 197e7
197dc:  b3 ...                  PRINT_RET       "Nothing else."
197e7:  cc 1f 00 d8 08          CLEAR_ATTR      "model ship",#08
197ec:  cb 1f 00 d8 0c          SET_ATTR        "model ship",#0c
197f1:  ce 2f 00 d8 19          INSERT_OBJ      "model ship",G09
197f6:  b3 ...                  PRINT_RET       "In fact there's nothing hidden
among the crates but a model sailing ship. You pick it up from force of habit."
19835:  b1                      RFALSE

Routine 19838, 0 locals

19839:  41 3a 2a 01 cd          JE              G2a,#2a [FALSE] 19a09
1983e:  26 d7 19 80 17          JIN             "ship in a bottle",G09 [TRUE]
19858
19843:  b3 ...                  PRINT_RET       "You can't get a good look from
here."
19858:  41 8c 04 80 5f          JE              G7c,#04 [TRUE] 198ba
1985d:  b3 ...                  PRINT_RET       "You admire the fine detail on
the model sailing ship, and feel strangely drawn to it. But back out of the
world of the Tarot box, nothing else could happen."
198ba:  c1 8f 11 01 01 00 39    JE              G01,#0101 [FALSE] 198f8
198c1:  b3 ...                  PRINT_RET       "Bright sunshine glints off the
glass bottle, making it impossible to see detail within."
198f8:  0e d7 47                INSERT_OBJ      "ship in a bottle","Souvenirs
Room"
198fb:  f9 07 9d 20 01 0a 01    CALL_VN         27480 (#010a,#01)
19902:  b3 ...                  PRINT_RET       "You look very closely at the
fine detail on the model sailing ship. Perhaps it's the distorting glass of the
bottle, perhaps your romantic imagination, but the deck seems more detailed,
the rigging might almost be swaying, the little figure by one mast might almost
be alive...

In fact, the closer you look the more sea-sick you feel.

Thank heavens for the deck rail, something to hang on to while this moment of
queasiness passes."
19a09:  b1                      RFALSE

Routine 19a0c, 0 locals

19a0d:  41 2a 3c 00 ba          JE              G1a,#3c [FALSE] 19aca
19a12:  41 30 d8 00 62          JE              G20,#d8 [FALSE] 19a77
19a17:  99 d8                   REMOVE_OBJ      "model ship"
19a19:  2e d9 19                INSERT_OBJ      "stick with an anchor",G09
19a1c:  0d 5c d9                STORE           G4c,#d9
19a1f:  4b 5c 0c                SET_ATTR        G4c,#0c
19a22:  b3 ...                  PRINT_RET       "As you pull the anchor chain,
the masts fold inwards and the decks concertina back, until you're holding no
more than a tight bundle of sticks."
19a77:  99 d9                   REMOVE_OBJ      "stick with an anchor"
19a79:  2e d8 19                INSERT_OBJ      "model ship",G09
19a7c:  0d 5c d8                STORE           G4c,#d8
19a7f:  b3 ...                  PRINT_RET       "As you pull the anchor chain,
the sticks spring back outwards into the fully-rigged model sailing ship you
knew of old."
19aca:  41 2a 1a 00 bc          JE              G1a,#1a [FALSE] 19b89
19acf:  41 31 d6 00 b7          JE              G21,#d6 [FALSE] 19b89
19ad4:  41 30 d8 00 2b          JE              G20,#d8 [FALSE] 19b02
19ad9:  b3 ...                  PRINT_RET       "The model ship is, of course,
far too large to fit into the bottle."
19b02:  41 30 d9 00 84          JE              G20,#d9 [FALSE] 19b89
19b07:  99 d6                   REMOVE_OBJ      "mounted bottle"
19b09:  99 d9                   REMOVE_OBJ      "stick with an anchor"
19b0b:  2e d7 19                INSERT_OBJ      "ship in a bottle",G09
19b0e:  0b d7 0c                SET_ATTR        "ship in a bottle",#0c
19b11:  da 1f 9d bb 18          CALL_2N         276ec (#18)
19b16:  b3 ...                  PRINT_RET       "The bundle of sticks will just
fit through the bottle's neck. With a sudden spring, just as the last of the
stick passes the neck, its masts fold out... and you have put the ship into the
bottle."
19b89:  41 2a 39 00 14          JE              G1a,#39 [FALSE] 19ba0
19b8e:  41 30 d9 00 0f          JE              G20,#d9 [FALSE] 19ba0
19b93:  b3 ...                  PRINT_RET       "Ever the optimist."
19ba0:  b1                      RFALSE

Routine 19ba4, 0 locals

19ba5:  b2 ...                  PRINT           "A rough rocky sea shore below
barely-climbable cliffs, against which inviting deep blue sea laps. It seems to
be early morning, soon after dawn, from the look of the sun on the water.
"
19c16:  ca 1f 01 01 18 00 53    TEST_ATTR       "Lighthouse",#18 [FALSE] 19c6e
19c1d:  ca 1f 01 01 08 80 4c    TEST_ATTR       "Lighthouse",#08 [TRUE] 19c6e
19c24:  cb 1f 01 01 08          SET_ATTR        "Lighthouse",#08
19c29:  b3 ...                  PRINT_RET       "
You can just make out the Pharos atop the cliffs. But it seems to be earlier,
nearer dawn, than your last visit."
19c6e:  b0                      RTRUE

Routine 19c70, 0 locals

19c71:  41 3a 5d 00 13          JE              G2a,#5d [FALSE] 19c87
19c76:  b3 ...                  PRINT_RET       "Salt water!  No thanks."
19c87:  41 3a 4e 01 15          JE              G2a,#4e [FALSE] 19d9f
19c8c:  41 a5 00 00 4c          JE              G95,#00 [FALSE] 19cdb
19c91:  0d a5 01                STORE           G95,#01
19c94:  b3 ...                  PRINT_RET       "Mmm. Here is your first and
only warning: the sea is the domain of Poseidon, and he's not what you'd call a
gentleman."
19cdb:  0d 1d 07                STORE           G0d,#07
19cde:  b3 ...                  PRINT_RET       "As you dive into the sea, you
catch sight of Andromeda looking suddenly cheerful. It soon becomes apparent
why, as a Kraken wakes from the depths of the ocean and swipes you for a quick
snack. You seem to have replaced her as sacrifice... a Pyrrhic victory which
even the prospect of stellification does little to assuage."
19d9f:  b1                      RFALSE

Routine 19da0, 0 locals

19da1:  b2 ...                  PRINT           "Avert your eyes. She is naked"
19db6:  ca 1f 00 dc 13 00 17    TEST_ATTR       "amber hairband",#13 [FALSE]
19dd2
19dbd:  b2 ...                  PRINT           " (unless you count a
hairband)"
19dd2:  b2 ...                  PRINT           ", as was fashionable for human
sacrifices: the victim left overnight without food or shelter until the dawn.
It has to be said that she doesn't look all that keen to be rescued"
19e39:  0a 3f 08 80 05          TEST_ATTR       "photographer's flash",#08
[TRUE] 19e41
19e3e:  b3 ...                  PRINT_RET       "."
19e41:  b3 ...                  PRINT_RET       ".

Of course you've already rescued her, in a sense, but that's not due to happen
for an hour or two yet by her time, so you can hardly expect thanks. Gives you
a nice warm feeling inside, all the same."

Routine 19ebc, 0 locals

19ebd:  41 3a 54 00 2f          JE              G2a,#54 [FALSE] 19eef
19ec2:  b3 ...                  PRINT_RET       "She evades you deftly, having
had years of practice with Greek men."
19eef:  41 3a 42 00 29          JE              G2a,#42 [FALSE] 19f1b
19ef4:  b3 ...                  PRINT_RET       "No need, if the sea-monster is
all it's cracked up to be."
19f1b:  41 3a 22 01 16          JE              G2a,#22 [FALSE] 1a034
19f20:  4a 30 05 00 fc          TEST_ATTR       G20,#05 [FALSE] 1a01f
19f25:  c1 8f 30 00 e4 00 c2    JE              G20,#00e4 [FALSE] 19fec
19f2c:  a9 30                   REMOVE_OBJ      G20
19f2e:  cc 1f 00 dc 13          CLEAR_ATTR      "amber hairband",#13
19f33:  cb 1f 00 dc 0c          SET_ATTR        "amber hairband",#0c
19f38:  ce 2f 00 dc 19          INSERT_OBJ      "amber hairband",G09
19f3d:  b3 ...                  PRINT_RET       "She smiles as if to say
there's not much point watching her waist-line any more, and hungrily wolfs
down her favourite dessert. As a gesture of thanks, she takes off her amber
hairband and hands it you. Quickly she readopts her noble pose, however, just
in case anyone else is looking."
19fec:  b3 ...                  PRINT_RET       "She looks with obvious hunger,
but her sense of duty wins out and she refuses."
1a01f:  b3 ...                  PRINT_RET       "She looks down her nose at
you."
1a034:  c1 85 3a 01 03 46 44 00 59
                               JE              G2a,#0103,#46,#44 [FALSE] 1a094
1a03d:  b3 ...                  PRINT_RET       "Andromeda hisses something
contemptuous at you in Greek. (Attic, not Demotic, ironically enough, but then
it's all Greek to you.)"
1a094:  b1                      RFALSE

Routine 1a098, 0 locals

1a099:  ca 1f 00 df 08 80 29    TEST_ATTR       "herd of goats",#08 [TRUE]
1a0c7
1a0a0:  b3 ...                  PRINT_RET       "The goats hiss and butt
against you, not letting you through."
1a0c7:  b2 ...                  PRINT           "The goats obediently part to
allow you to get by.
"
1a0e8:  8b 00 e0                RET             #00e0

Routine 1a0ec, 0 locals

1a0ed:  c1 85 3a 01 03 46 44 00 09
                               JE              G2a,#0103,#46,#44 [FALSE] 1a0fd
1a0f6:  b3 ...                  PRINT_RET       "Grunt!"
1a0fd:  b1                      RFALSE

Routine 1a100, 0 locals

1a101:  c1 97 3a 4b 15 00 0f    JE              G2a,#4b,#15 [FALSE] 1a115
1a108:  b3 ...                  PRINT_RET       "The thorns deter you."
1a115:  b1                      RFALSE

Routine 1a118, 0 locals

1a119:  41 3a 4c 00 29          JE              G2a,#4c [FALSE] 1a145
1a11e:  b3 ...                  PRINT_RET       "Given the language difficulty,
you'd better resort to barter."
1a145:  b1                      RFALSE

Routine 1a148, 1 local

1a149:  e7 7f 0d 01             RANDOM          #0d -> L00
1a14d:  41 01 01 00 23          JE              L00,#01 [FALSE] 1a173
1a152:  b3 ...                  PRINT_RET       "
The diners grumble and play backgammon viciously."
1a173:  41 01 02 00 1b          JE              L00,#02 [FALSE] 1a191
1a178:  b3 ...                  PRINT_RET       "
The bartender gives you a hard stare."
1a191:  41 01 03 00 39          JE              L00,#03 [FALSE] 1a1cd
1a196:  b3 ...                  PRINT_RET       "
A fight breaks out, over an obscure question to do with somebody's second
cousin."
1a1cd:  41 01 04 00 73          JE              L00,#04 [FALSE] 1a243
1a1d2:  b3 ...                  PRINT_RET       "
The gentle sound of bazouki music strikes up in the background, gradually
rising to an intolerable pitch. After a moment comes a dull thud and a
strangled noise, then blessed quiet."
1a243:  b1                      RFALSE

Routine 1a244, 0 locals

1a245:  41 3a 13 00 50          JE              G2a,#13 [FALSE] 1a298
1a24a:  4a 2f 0c 80 4a          TEST_ATTR       G1f,#0c [TRUE] 1a297
1a24f:  ca 1f 00 ea 08 80 43    TEST_ATTR       "copper coin",#08 [TRUE] 1a297
1a256:  b3 ...                  PRINT_RET       "You can't understand a word of
what the bartender says, but the drift is clear enough. Not until you pay for
it."
1a297:  b1                      RFALSE
1a298:  b1                      RFALSE

Routine 1a29c, 0 locals

1a29d:  41 3a 22 00 6b          JE              G2a,#22 [FALSE] 1a30b
1a2a2:  c1 8f 30 00 ea 00 3f    JE              G20,#00ea [FALSE] 1a2e6
1a2a9:  89 00 ea                REMOVE_OBJ      "copper coin"
1a2ac:  cb 1f 00 ea 08          SET_ATTR        "copper coin",#08
1a2b1:  b3 ...                  PRINT_RET       "The bartender takes the coin
wearily, with a "how can you eat at a time like this?" look."
1a2e6:  b2 ...                  PRINT           "The bartender looks at "
1a2f5:  da 2f 38 4e 30          CALL_2N         e138 (G20)
1a2fa:  b3 ...                  PRINT_RET       " with a glazed expression."
1a30b:  c1 94 3a 46 44 01 03 00 63
                               JE              G2a,#46,#44,#0103 [FALSE] 1a375
1a314:  b3 ...                  PRINT_RET       "Being an educated person, the
bartender speaks a little Latin and some Aramaic. Being an uneducated one, you
don't, and communication proves impossible."
1a375:  c1 97 3a 42 54 00 1b    JE              G2a,#42,#54 [FALSE] 1a395
1a37c:  b3 ...                  PRINT_RET       "Here, surrounded by all his
cronies?"
1a395:  b1                      RFALSE

Routine 1a398, 0 locals

1a399:  b2 ...                  PRINT           "Zeus, chief of all the gods,
appears and hurls a thunderbolt down just before you begin to cross into the
Temple. "
1a3e0:  ca 1f 01 87 0d 00 9a    TEST_ATTR       "big electrician's switch",#0d
[FALSE] 1a47f
1a3e7:  0d 1d 01                STORE           G0d,#01
1a3ea:  b3 ...                  PRINT_RET       "With the kind of calculation
only a god could make, Zeus has worked out exactly what would happen and aimed
the thunderbolt so that it hits you straight in the back despite your attempt
to weave about. Pretty impressive prediction, is your last thought."
1a47f:  0a 18 08 00 64          TEST_ATTR       "Luck",#08 [FALSE] 1a4e6
1a484:  b2 ...                  PRINT           "Astonishingly, you beat the
luck of the gods and slip into the temple just clear of the thunderbolt. "Damn,
missed!" says a sepulchral voice from without.
"
1a4e3:  8b 00 e9                RET             #00e9
1a4e6:  0d 1d 01                STORE           G0d,#01
1a4e9:  b3 ...                  PRINT_RET       "With the luck of the gods,
Zeus' thunderbolt strikes you just about exactly in the back, despite your
attempts to weave about."

Routine 1a538, 0 locals

1a539:  da 1f 97 a4 04          CALL_2N         25e90 (#04)
1a53e:  b1                      RFALSE

Routine 1a540, 0 locals

1a541:  b2 ...                  PRINT           ""I'll get you this time,
worm!" bellows Zeus, and hurls another thunderbolt, but now he's angry his aim
is right off. You survive once more.
"
1a59e:  9b e8                   RET             #e8

Routine 1a5a0, 0 locals

1a5a1:  b2 ...                  PRINT           "The stone bears two
inscriptions, side by side:
"
1a5c2:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1a5c6:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1a5ca:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1a5cf:  b2 ...                  PRINT           "
   #. [] = # +*+  __             an-ta re-im ka u bir ka-i
             |||
        |        |
   / # -+- :; # -+-                 ka ne : to-ro-ma ka ur
        |        |

   >>> -> # (---)         .je-fe-im ka ur-a an-ge to-ro-ma
             |||
"
1a6da:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1a6de:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
1a6e4:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1a6e9:  b0                      RTRUE

Routine 1a6ec, 0 locals

1a6ed:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1a6f1:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1a6f5:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1a6fa:  b2 ...                  PRINT           "   (---)  (---)  (---)  (---)
"
1a71d:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1a721:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
1a727:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1a72c:  b0                      RTRUE

Routine 1a730, 0 locals

1a731:  da 0f 37 61 00 f2       CALL_2N         dd84 (#00f2)
1a737:  b1                      RFALSE

Routine 1a738, 0 locals

1a739:  c1 87 3a 01 03 46 00 3f JE              G2a,#0103,#46 [FALSE] 1a77e
1a741:  0a f0 08 00 2a          TEST_ATTR       "Homer",#08 [FALSE] 1a76e
1a746:  b3 ...                  PRINT_RET       "Homer is far too busy
composing Book XIV of the Iliad."
1a76b:  8c 00 11                JUMP            1a77d
1a76e:  b3 ...                  PRINT_RET       "Homer is asleep.
"
1a77d:  b1                      RFALSE
1a77e:  41 3a 53 00 eb          JE              G2a,#53 [FALSE] 1a86c
1a783:  0a f0 08 00 13          TEST_ATTR       "Homer",#08 [FALSE] 1a799
1a788:  b3 ...                  PRINT_RET       "Homer is awake already."
1a799:  0b f0 08                SET_ATTR        "Homer",#08
1a79c:  e3 57 f0 18 00          PUT_PROP        "Homer",#18,#00
1a7a1:  e3 53 f0 11 cf b5       PUT_PROP        "Homer",#11,S499
1a7a7:  b3 ...                  PRINT_RET       "Homer wakes up, with a start.
"I suppose you want the syrinx," he grumbles, "they always do. There are three
questions you must answer wisely. The usual deal."

(He seems to be under an enchantment and able to speak modern English, or at
least American.)

"First: who is the brother of Menelaus?""
1a86c:  41 3a 42 00 21          JE              G2a,#42 [FALSE] 1a890
1a871:  b3 ...                  PRINT_RET       "What, strike the greatest poet
who ever lived?"
1a890:  41 3a 44 01 5f          JE              G2a,#44 [FALSE] 1a9f2
1a895:  0a f0 08 80 0f          TEST_ATTR       "Homer",#08 [TRUE] 1a8a7
1a89a:  b3 ...                  PRINT_RET       "Homer is asleep."
1a8a7:  11 f0 18 00             GET_PROP        "Homer",#18 -> -(SP)
1a8ab:  41 00 03 00 11          JE              (SP)+,#03 [FALSE] 1a8bf
1a8b0:  b3 ...                  PRINT_RET       "Homer glares back."
1a8bf:  11 f0 18 00             GET_PROP        "Homer",#18 -> -(SP)
1a8c3:  41 00 00 00 99          JE              (SP)+,#00 [FALSE] 1a95f
1a8c8:  c1 8f 32 74 22 00 6c    JE              G22,"agamemnon" [FALSE] 1a939
1a8cf:  e3 57 f0 18 01          PUT_PROP        "Homer",#18,#01
1a8d4:  b3 ...                  PRINT_RET       ""Mph," he says
(untranslatably). "But can ya see the future?  Who's gonna rule Alexandria
after the fall of the guy they're gonna call Alexander the Big?""
1a939:  8f 6a 7d                CALL_1N         1a9f4
1a93c:  b3 ...                  PRINT_RET       ""Hopeless," he says
dismissively and falls asleep."
1a95f:  11 f0 18 00             GET_PROP        "Homer",#18 -> -(SP)
1a963:  41 00 01 00 28          JE              (SP)+,#01 [FALSE] 1a98e
1a968:  c1 8f 32 93 12 00 1e    JE              G22,"ptolemy" [FALSE] 1a98b
1a96f:  e3 57 f0 18 02          PUT_PROP        "Homer",#18,#02
1a974:  b3 ...                  PRINT_RET       ""What's your favorite color?""
1a98b:  8c ff ad                JUMP            1a939
1a98e:  c1 8f 32 a2 c0 00 5c    JE              G22,"yellow" [FALSE] 1a9ef
1a995:  e3 53 f0 11 cf bd       PUT_PROP        "Homer",#11,S500
1a99b:  ce 2f 00 f1 19          INSERT_OBJ      "Pan pipes",G09
1a9a0:  e3 57 f0 18 03          PUT_PROP        "Homer",#18,#03
1a9a5:  da 1f 9d bb 21          CALL_2N         276ec (#21)
1a9aa:  b3 ...                  PRINT_RET       "Homer reluctantly hands you
the syrinx. "Now leave me alone, I got six books of the Iliad left to
compose.""
1a9ef:  8c ff 49                JUMP            1a939
1a9f2:  b1                      RFALSE

Routine 1a9f4, 0 locals

1a9f5:  0c f0 08                CLEAR_ATTR      "Homer",#08
1a9f8:  e3 53 f0 11 cf c4       PUT_PROP        "Homer",#11,S501
1a9fe:  b0                      RTRUE

Routine 1aa00, 1 local

1aa01:  41 3a 50 02 03          JE              G2a,#50 [FALSE] 1ac07
1aa06:  0a 56 1a 00 11          TEST_ATTR       "gas mask",#1a [FALSE] 1aa1a
1aa0b:  b3 ...                  PRINT_RET       "With the gas mask on?"
1aa1a:  41 11 de 00 1f          JE              G01,#de [FALSE] 1aa3c
1aa1f:  b3 ...                  PRINT_RET       "The goats are amused by your
derisory playing."
1aa3c:  c1 8f 11 00 fe 80 19    JE              G01,#00fe [TRUE] 1aa5a
1aa43:  b3 ...                  PRINT_RET       "You sound off some dissonant
notes."
1aa5a:  b2 ...                  PRINT           "Seized by divine inspiration,
you launch into J. S. Bach's "
1aa83:  e7 7f 05 01             RANDOM          #05 -> L00
1aa87:  41 01 01 00 0f          JE              L00,#01 [FALSE] 1aa99
1aa8c:  b2 ...                  PRINT           "Prelude number 1"
1aa99:  41 01 02 00 0b          JE              L00,#02 [FALSE] 1aaa7
1aa9e:  b2 ...                  PRINT           "Passacaglia"
1aaa7:  41 01 03 00 17          JE              L00,#03 [FALSE] 1aac1
1aaac:  b2 ...                  PRINT           "Chromatic Fantasy and Fugue"
1aac1:  41 01 04 00 17          JE              L00,#04 [FALSE] 1aadb
1aac6:  b2 ...                  PRINT           "partita for unaccompanied
flute"
1aadb:  41 01 05 00 0f          JE              L00,#05 [FALSE] 1aaed
1aae0:  b2 ...                  PRINT           "duet number four"
1aaed:  c6 2f 00 ff 11 00 05    JIN             "Oracle",G01 [FALSE] 1aaf7
1aaf4:  b3 ...                  PRINT_RET       "."
1aaf7:  ce 2f 00 ff 11          INSERT_OBJ      "Oracle",G01
1aafc:  cc 1f 01 00 13          CLEAR_ATTR      "flaming bronze urn",#13
1ab01:  cb 1f 01 00 11          SET_ATTR        "flaming bronze urn",#11
1ab06:  b2 ...                  PRINT           ". Suddenly the great god
Apollo appears before you!  As he speaks the very rock reverberates.

   "All wisdom is mine, mortal!
   Though you shall seek out your curse
   A thousand years and more. Now ask!"

Apollo, as he vanishes, laughs in that style more recently popularised by Third
World dictators and mad scientists. His priestess, the Oracle, steps out of the
shadows.
"
1ac01:  da 1f 9d bb 22          CALL_2N         276ec (#22)
1ac06:  b0                      RTRUE
1ac07:  b1                      RFALSE

Routine 1ac08, 0 locals

1ac09:  da 2f 37 47 2f          CALL_2N         dd1c (G1f)
1ac0e:  b1                      RFALSE

Routine 1ac10, 0 locals

1ac11:  c1 97 2a 13 14 00 15    JE              G1a,#13,#14 [FALSE] 1ac2b
1ac18:  c1 93 30 ec 01 0f 00 0d JE              G20,#ec,#010f [FALSE] 1ac2b
1ac20:  4a 30 11 00 08          TEST_ATTR       G20,#11 [FALSE] 1ac2b
1ac25:  4c 30 11                CLEAR_ATTR      G20,#11
1ac28:  4b 30 0c                SET_ATTR        G20,#0c
1ac2b:  b1                      RFALSE

Routine 1ac2c, 0 locals

1ac2d:  c1 97 2a 13 14 00 16    JE              G1a,#13,#14 [FALSE] 1ac48
1ac34:  c1 93 30 ec 01 0f 00 0e JE              G20,#ec,#010f [FALSE] 1ac48
1ac3c:  4a 30 13 00 09          TEST_ATTR       G20,#13 [FALSE] 1ac48
1ac41:  e3 13 00 f3 11 cf fe    PUT_PROP        "inscriptions",#11,S506
1ac48:  b1                      RFALSE

Routine 1ac4c, 0 locals

1ac4d:  83 00 fa 00             GET_PARENT      "statue of Poseidon" -> -(SP)
1ac51:  c1 8f 00 00 f6 00 54    JE              (SP)+,#00f6 [FALSE] 1acaa
1ac58:  83 00 fb 00             GET_PARENT      "statue of Demeter" -> -(SP)
1ac5c:  c1 8f 00 00 f7 00 49    JE              (SP)+,#00f7 [FALSE] 1acaa
1ac63:  83 00 fc 00             GET_PARENT      "statue of Ares" -> -(SP)
1ac67:  c1 8f 00 00 f8 00 3e    JE              (SP)+,#00f8 [FALSE] 1acaa
1ac6e:  83 00 fd 00             GET_PARENT      "statue of Dionysus" -> -(SP)
1ac72:  c1 8f 00 00 f9 00 33    JE              (SP)+,#00f9 [FALSE] 1acaa
1ac79:  ca 1f 00 f3 0e 00 03    TEST_ATTR       "inscriptions",#0e [FALSE]
1ac81
1ac80:  b0                      RTRUE
1ac81:  cb 1f 00 f3 0e          SET_ATTR        "inscriptions",#0e
1ac86:  da 1f 9d bb 20          CALL_2N         276ec (#20)
1ac8b:  b3 ...                  PRINT_RET       "
You hear the noise of stone grating against stone."
1acaa:  b1                      RFALSE

Routine 1acac, 0 locals

1acad:  c1 8f 3a 01 01 00 65    JE              G2a,#0101 [FALSE] 1ad17
1acb4:  4a 2f 0e 80 03          TEST_ATTR       G1f,#0e [TRUE] 1acba
1acb9:  b1                      RFALSE
1acba:  c1 93 30 ec 01 0f 80 1c JE              G20,#ec,#010f [TRUE] 1acdc
1acc2:  da 2f 38 53 30          CALL_2N         e14c (G20)
1acc7:  b2 ...                  PRINT           " would simply fall through."
1acda:  bb                      NEW_LINE
1acdb:  b0                      RTRUE
1acdc:  41 30 ec 00 0b          JE              G20,#ec [FALSE] 1acea
1ace1:  e3 93 2f 11 d0 21       PUT_PROP        G1f,#11,S511
1ace7:  8c 00 08                JUMP            1acf0
1acea:  e3 93 2f 11 d0 28       PUT_PROP        G1f,#11,S512
1acf0:  4b 30 11                SET_ATTR        G20,#11
1acf3:  4c 30 0c                CLEAR_ATTR      G20,#0c
1acf6:  4c 30 12                CLEAR_ATTR      G20,#12
1acf9:  6e 30 11                INSERT_OBJ      G20,G01
1acfc:  b2 ...                  PRINT           "You wedge "
1ad03:  da 2f 38 4e 30          CALL_2N         e138 (G20)
1ad08:  b2 ...                  PRINT           " across the opening."
1ad15:  bb                      NEW_LINE
1ad16:  b0                      RTRUE
1ad17:  b1                      RFALSE

Routine 1ad18, 0 locals

1ad19:  41 3a 13 00 b5          JE              G2a,#13 [FALSE] 1add1
1ad1e:  4a 2f 0c 00 03          TEST_ATTR       G1f,#0c [FALSE] 1ad24
1ad23:  b1                      RFALSE
1ad24:  b2 ...                  PRINT           "There is a horrible screeching
sound as a trap is sprung. "
1ad47:  0a ec 11 80 09          TEST_ATTR       "inscribed stone",#11 [TRUE]
1ad53
1ad4c:  ca 1f 01 0f 11 00 38    TEST_ATTR       "old timber spar",#11 [FALSE]
1ad89
1ad53:  b2 ...                  PRINT           "The walls begin to crush
together: but are securely wedged, and cannot move...

"
1ad88:  b1                      RFALSE
1ad89:  0d 1d 01                STORE           G0d,#01
1ad8c:  b3 ...                  PRINT_RET       "The opening crushes together,
and so do the walls!  They reduce you to powdered dog biscuit in a matter of
seconds."
1add1:  b1                      RFALSE

Routine 1add4, 0 locals

1add5:  41 3a 3d 00 1d          JE              G2a,#3d [FALSE] 1adf5
1adda:  b3 ...                  PRINT_RET       "Perhaps you should say which
way to push."
1adf5:  41 3a 3e 00 52          JE              G2a,#3e [FALSE] 1ae4a
1adfa:  0a f3 0e 00 41          TEST_ATTR       "inscriptions",#0e [FALSE]
1ae3e
1adff:  b3 ...                  PRINT_RET       "The only direction to push the
statue in is to the centre of the cross, but there's a pit open in the floor
there."
1ae3e:  c1 97 31 0a 0b 80 06    JE              G21,#0a,#0b [TRUE] 1ae49
1ae45:  8f a2 33                CALL_1N         288cc
1ae48:  b0                      RTRUE
1ae49:  b1                      RFALSE
1ae4a:  b1                      RFALSE

Routine 1ae4c, 0 locals

1ae4d:  41 3a 3e 00 17          JE              G2a,#3e [FALSE] 1ae67
1ae52:  b3 ...                  PRINT_RET       "You heave the statue along
with you."
1ae67:  b1                      RFALSE

Routine 1ae68, 0 locals

1ae69:  c1 95 3a 42 54 20 00 23 JE              G2a,#42,#54,#20 [FALSE] 1ae92
1ae71:  b3 ...                  PRINT_RET       "As you ought to know, the
Oracle is inviolable."
1ae92:  c1 91 3a 46 01 03 44 00 06
                               JE              G2a,#46,#0103,#44 [FALSE] 1ae9f
1ae9b:  8f 6b b4                CALL_1N         1aed0
1ae9e:  b0                      RTRUE
1ae9f:  b1                      RFALSE

Routine 1aea0, 1 local

1aea1:  42 01 00 00 06          JL              L00,#00 [FALSE] 1aeaa
1aea6:  35 00 01 01             SUB             #00,L00 -> L00
1aeaa:  41 01 00 00 07          JE              L00,#00 [FALSE] 1aeb4
1aeaf:  b2 ...                  PRINT           "nought"
1aeb4:  41 01 01 00 08          JE              L00,#01 [FALSE] 1aebf
1aeb9:  b2 ...                  PRINT           "a pace"
1aebe:  b1                      RFALSE
1aebf:  42 01 02 80 07          JL              L00,#02 [TRUE] 1aec9
1aec4:  da 2f 99 a2 01          CALL_2N         26688 (L00)
1aec9:  b2 ...                  PRINT           " paces"
1aece:  b0                      RTRUE

Routine 1aed0, 0 locals

1aed1:  41 a6 03 00 17          JE              G96,#03 [FALSE] 1aeeb
1aed6:  b3 ...                  PRINT_RET       "The priestess has told you
enough."
1aeeb:  0a ff 08 80 39          TEST_ATTR       "Oracle",#08 [TRUE] 1af27
1aef0:  b3 ...                  PRINT_RET       "The priestess remains silent.
Only by an offering can the wisdom of Apollo be gained."
1af27:  0c ff 08                CLEAR_ATTR      "Oracle",#08
1af2a:  95 a6                   INC             G96
1af2c:  b2 ...                  PRINT           "The priestess, Pythian oracle
of Loxias, seems hardly to hear or understand: but goes into a trance, swaying
to a sensuous rhythm: and chants, in English,

"
1af93:  41 a6 01 00 85          JE              G96,#01 [FALSE] 1b01b
1af98:  b2 ...                  PRINT           " "As Hephaestus, master of the
metals
  uncovered the gilden sunrise of Helicon
  so, in "
1afd3:  da 2f 6b a8 97          CALL_2N         1aea0 (G87)
1afd8:  b2 ...                  PRINT           " and "
1afdd:  da 2f 6b a8 98          CALL_2N         1aea0 (G88)
1afe2:  b2 ...                  PRINT           "
  when six arches have stood sixty years
  shall even a shade's remains be cast.""
1b01b:  41 a6 02 00 63          JE              G96,#02 [FALSE] 1b081
1b020:  b2 ...                  PRINT           " "Like the eruptions of
Sicilian mounts
  shall come devices to ruin a castle,
  which no bronze armour can withstand
  save, it may be, a veil of the neck.""
1b081:  41 a6 03 00 57          JE              G96,#03 [FALSE] 1b0db
1b086:  b2 ...                  PRINT           " "Your ancestor, pestle in
hand
  made the salve you shall need
  to defy the Druids' earthly band:
  take care, mortal, take heed.""
1b0db:  bb                      NEW_LINE
1b0dc:  41 a6 01 00 3f          JE              G96,#01 [FALSE] 1b11e
1b0e1:  b3 ...                  PRINT_RET       "
Apollo is what you might call an annoying git, were he not also an alarmingly
powerful deity."
1b11e:  b0                      RTRUE

Routine 1b120, 0 locals

1b121:  c1 8f 3a 01 01 00 d7    JE              G2a,#0101 [FALSE] 1b1fd
1b128:  61 30 19 00 09          JE              G20,G09 [FALSE] 1b134
1b12d:  f9 1b 36 0d 15 2f       CALL_VN         d834 (#15,G1f)
1b133:  b0                      RTRUE
1b134:  a9 30                   REMOVE_OBJ      G20
1b136:  26 ff 11 80 39          JIN             "Oracle",G01 [TRUE] 1b172
1b13b:  b3 ...                  PRINT_RET       "Perhaps the gods no longer
inhabit such places. Your offering burns to nothing, for nothing."
1b172:  41 30 e2 00 0e          JE              G20,#e2 [FALSE] 1b183
1b177:  0e e2 e0                INSERT_OBJ      "fig","Outside Taverna"
1b17a:  e3 53 e2 11 d1 3e       PUT_PROP        "fig",#11,S531
1b180:  0c e2 0c                CLEAR_ATTR      "fig",#0c
1b183:  4a 30 05 00 48          TEST_ATTR       G20,#05 [FALSE] 1b1ce
1b188:  0b ff 08                SET_ATTR        "Oracle",#08
1b18b:  b3 ...                  PRINT_RET       "You have pleased the god
Apollo - Loxias, god of words and counsel, as he was once called!  Very wise."
1b1ce:  b3 ...                  PRINT_RET       "The god Apollo is unimpressed
with your offering, which feeds the eternal flame."
1b1fd:  41 3a 15 00 17          JE              G2a,#15 [FALSE] 1b217
1b202:  b3 ...                  PRINT_RET       "You have no desire to be
burnt."
1b217:  b1                      RFALSE

Routine 1b218, 0 locals

1b219:  b2 ...                  PRINT           "You stand atop a pinnacle of
stone, on an early Pharos, or lighthouse. Considerately enough, the builders
have provided a spiral staircase down. "
1b274:  0a da 18 00 3f          TEST_ATTR       "Sea Shore",#18 [FALSE] 1b2b6
1b279:  b2 ...                  PRINT           "The cliffs below are familiar,
but it's a little later in the day than your arrival on the sea shore. "
1b2b6:  0a 3f 08 00 44          TEST_ATTR       "photographer's flash",#08
[FALSE] 1b2fd
1b2bb:  b2 ...                  PRINT           "Much traffic plies across the
bay, and trade seems to be picking up again now that the Kraken has gone."
1b2fa:  8c 00 47                JUMP            1b342
1b2fd:  b2 ...                  PRINT           "There seems to be very little
traffic at the moment, though a smudge on the horizon might possibly be a
quinquireme."
1b342:  b2 ...                  PRINT           "

In the centre of the pinnacle is a marvellous device of polished bronze
mirrors, its open end pointed out across the bay. "
1b38d:  0a 3f 08 00 26          TEST_ATTR       "photographer's flash",#08
[FALSE] 1b3b6
1b392:  b3 ...                  PRINT_RET       "The Mediterranean sparkles in
the hot afternoon sun."
1b3b3:  8c 00 3f                JUMP            1b3f3
1b3b6:  b3 ...                  PRINT_RET       "The sun is rising and the sky
is clear blue over the Mediterranean: it's going to be a beautiful day."
1b3f3:  b1                      RFALSE

Routine 1b3f4, 0 locals

1b3f5:  8f 6c ff                CALL_1N         1b3fc
1b3f8:  8b 01 03                RET             #0103

Routine 1b3fc, 0 locals

1b3fd:  c6 4f 3f 01 02 00 36    JIN             "photographer's
flash","mirrored device" [FALSE] 1b438
1b404:  b2 ...                  PRINT           "(Out of the corner of your
eye, you notice the flash fall out of the device.)
"
1b433:  ce 4f 3f 01 01          INSERT_OBJ      "photographer's
flash","Lighthouse"
1b438:  b0                      RTRUE

Routine 1b43c, 0 locals

1b43d:  41 2a 26 00 0a          JE              G1a,#26 [FALSE] 1b44a
1b442:  41 30 0b 00 05          JE              G20,#0b [FALSE] 1b44a
1b447:  8f 6c ff                CALL_1N         1b3fc
1b44a:  b1                      RFALSE

Routine 1b44c, 0 locals

1b44d:  b3 ...                  PRINT_RET       "Here aboard ship, such a
landlubber's direction seems inappropriate."

Routine 1b47c, 0 locals

1b47d:  c6 1f 01 05 01 00 03    JIN             "port wall","compass" [FALSE]
1b485
1b484:  b1                      RFALSE
1b485:  ce 4f 02 01 0d          INSERT_OBJ      "north wall","flagpole"
1b48a:  ce 4f 03 01 0d          INSERT_OBJ      "south wall","flagpole"
1b48f:  ce 4f 04 01 0d          INSERT_OBJ      "east wall","flagpole"
1b494:  ce 4f 05 01 0d          INSERT_OBJ      "west wall","flagpole"
1b499:  ce 4f 06 01 0d          INSERT_OBJ      "northeast wall","flagpole"
1b49e:  ce 4f 08 01 0d          INSERT_OBJ      "northwest wall","flagpole"
1b4a3:  ce 4f 07 01 0d          INSERT_OBJ      "southeast wall","flagpole"
1b4a8:  ce 4f 09 01 0d          INSERT_OBJ      "southwest wall","flagpole"
1b4ad:  ce 1f 01 05 01          INSERT_OBJ      "port wall","compass"
1b4b2:  ce 1f 01 06 01          INSERT_OBJ      "starboard wall","compass"
1b4b7:  ce 1f 01 08 01          INSERT_OBJ      "aft wall","compass"
1b4bc:  ce 1f 01 07 01          INSERT_OBJ      "fore wall","compass"
1b4c1:  ce 1f 01 09 01          INSERT_OBJ      "some landlubber's
direction","compass"
1b4c6:  da 2f 37 47 2f          CALL_2N         dd1c (G1f)
1b4cb:  b1                      RFALSE

Routine 1b4cc, 0 locals

1b4cd:  4a 11 25 00 03          TEST_ATTR       G01,#25 [FALSE] 1b4d3
1b4d2:  b1                      RFALSE
1b4d3:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
1b4d8:  89 01 05                REMOVE_OBJ      "port wall"
1b4db:  89 01 06                REMOVE_OBJ      "starboard wall"
1b4de:  89 01 08                REMOVE_OBJ      "aft wall"
1b4e1:  89 01 07                REMOVE_OBJ      "fore wall"
1b4e4:  89 01 09                REMOVE_OBJ      "some landlubber's direction"
1b4e7:  0e 02 01                INSERT_OBJ      "north wall","compass"
1b4ea:  0e 03 01                INSERT_OBJ      "south wall","compass"
1b4ed:  0e 04 01                INSERT_OBJ      "east wall","compass"
1b4f0:  0e 05 01                INSERT_OBJ      "west wall","compass"
1b4f3:  0e 06 01                INSERT_OBJ      "northeast wall","compass"
1b4f6:  0e 08 01                INSERT_OBJ      "northwest wall","compass"
1b4f9:  0e 07 01                INSERT_OBJ      "southeast wall","compass"
1b4fc:  0e 09 01                INSERT_OBJ      "southwest wall","compass"
1b4ff:  b1                      RFALSE

Routine 1b500, 0 locals

1b501:  c1 97 3a 15 4b 00 09    JE              G2a,#15,#4b [FALSE] 1b50f
1b508:  f9 17 36 0d 26 0a       CALL_VN         d834 (#26,#0a)
1b50e:  b0                      RTRUE
1b50f:  b1                      RFALSE

Routine 1b510, 0 locals

1b511:  b2 ...                  PRINT           "You wander out onto the
flagpole, which bows and bends alarmingly, until suddenly...

Crack!  And you are falling"
1b55a:  ca 1f 01 0e 08 80 3c    TEST_ATTR       "flag of the British Merchant
Navy",#08 [TRUE] 1b59b
1b561:  0d 1d 01                STORE           G0d,#01
1b564:  b3 ...                  PRINT_RET       ", plummeting, head over heels
to the hard wooden deck and the inevitable iron fixtures..."
1b59b:  ce 0f 01 0e 01 0a       INSERT_OBJ      "flag of the British Merchant
Navy","Aboard Ship"
1b5a1:  cc 1f 01 0e 02          CLEAR_ATTR      "flag of the British Merchant
Navy",#02
1b5a6:  cc 1f 01 0e 08          CLEAR_ATTR      "flag of the British Merchant
Navy",#08
1b5ab:  89 01 0d                REMOVE_OBJ      "flagpole"
1b5ae:  ce 0f 01 0f 01 0a       INSERT_OBJ      "old timber spar","Aboard Ship"
1b5b4:  ce 8f 19 01 0a          INSERT_OBJ      G09,"Aboard Ship"
1b5b9:  cd 4f 11 01 0a          STORE           G01,#010a
1b5be:  da 1f 9d bb 19          CALL_2N         276ec (#19)
1b5c3:  b3 ...                  PRINT_RET       "... but gracefully, as the
flag billows out into a parachute, until it suddenly tears out of your hand and
you come down in an ignominious heap."

Routine 1b620, 0 locals

1b621:  ca 1f 01 0e 08 00 28    TEST_ATTR       "flag of the British Merchant
Navy",#08 [FALSE] 1b64e
1b628:  cc 1f 01 0e 08          CLEAR_ATTR      "flag of the British Merchant
Navy",#08
1b62d:  b2 ...                  PRINT           "You are obliged to leave hold
of the flag en route.

"
1b64e:  8b 01 0a                RET             #010a

Routine 1b654, 0 locals

1b655:  41 3a 60 00 51          JE              G2a,#60 [FALSE] 1b6a9
1b65a:  b2 ...                  PRINT           "You jump (madly) from the
crow's nest "
1b673:  ca 1f 01 0e 08 00 15    TEST_ATTR       "flag of the British Merchant
Navy",#08 [FALSE] 1b68d
1b67a:  b2 ...                  PRINT           "(tearing the flag as you go) "
1b68d:  0d 1d 01                STORE           G0d,#01
1b690:  b3 ...                  PRINT_RET       "to a colourful demise on the
deck below."
1b6a9:  c1 97 3a 76 7a 00 09    JE              G2a,#76,#7a [FALSE] 1b6b7
1b6b0:  b3 ...                  PRINT_RET       "Up here?"
1b6b7:  b1                      RFALSE

Routine 1b6b8, 0 locals

1b6b9:  41 3a 1c 00 67          JE              G2a,#1c [FALSE] 1b723
1b6be:  ce 8f 30 01 0a          INSERT_OBJ      G20,"Aboard Ship"
1b6c3:  41 30 37 00 44          JE              G20,#37 [FALSE] 1b70a
1b6c8:  4a 30 0b 00 3f          TEST_ATTR       G20,#0b [FALSE] 1b70a
1b6cd:  0c 37 0b                CLEAR_ATTR      "mb",#0b
1b6d0:  0b 37 0e                SET_ATTR        "mb",#0e
1b6d3:  b3 ...                  PRINT_RET       "The medicine bottle drops like
a stone to the deck far below, where it cracks like an egg."
1b70a:  b3 ...                  PRINT_RET       "Dropped a long way down, onto
the deck."
1b723:  b1                      RFALSE

Routine 1b724, 0 locals

1b725:  c1 95 3a 13 3f 3d 80 07 JE              G2a,#13,#3f,#3d [TRUE] 1b732
1b72d:  41 3a 3c 00 23          JE              G2a,#3c [FALSE] 1b753
1b732:  b3 ...                  PRINT_RET       "The flagpole is very securely
fixed to the main mast."
1b753:  b1                      RFALSE

Routine 1b754, 0 locals

1b755:  46 2f 61 00 24          JIN             G1f,"comfortable bed" [FALSE]
1b77c
1b75a:  c1 97 2a 13 14 00 1d    JE              G1a,#13,#14 [FALSE] 1b77c
1b761:  b3 ...                  PRINT_RET       "The flag seems perfect for the
bed as it is."
1b77c:  c6 8f 2f 01 0c 80 03    JIN             G1f,"Up the Mast" [TRUE] 1b784
1b783:  b1                      RFALSE
1b784:  c1 97 3a 13 3c 00 40    JE              G2a,#13,#3c [FALSE] 1b7c9
1b78b:  cb 1f 01 0e 08          SET_ATTR        "flag of the British Merchant
Navy",#08
1b790:  b3 ...                  PRINT_RET       "You take hold of the tassels
of the flag in one hand (though it won't pull away from the pole)."
1b7c9:  c1 97 3a 1c 14 00 20    JE              G2a,#1c,#14 [FALSE] 1b7ee
1b7d0:  cc 1f 01 0e 08          CLEAR_ATTR      "flag of the British Merchant
Navy",#08
1b7d5:  b3 ...                  PRINT_RET       "You leave hold of the tassels
of the flag."
1b7ee:  b1                      RFALSE

Routine 1b7f0, 0 locals

1b7f1:  41 3a 13 00 17          JE              G2a,#13 [FALSE] 1b80b
1b7f6:  ca 1f 01 0f 08 80 03    TEST_ATTR       "old timber spar",#08 [TRUE]
1b7fe
1b7fd:  b1                      RFALSE
1b7fe:  cc 1f 01 0f 08          CLEAR_ATTR      "old timber spar",#08
1b803:  f9 07 37 1a 01 35 05    CALL_VN         dc68 (#0135,#05)
1b80a:  b1                      RFALSE
1b80b:  b1                      RFALSE

Routine 1b80c, 0 locals

1b80d:  b2 ...                  PRINT           "You can only go aft.
"
1b81c:  da 1f 97 a4 0b          CALL_2N         25e90 (#0b)
1b821:  b0                      RTRUE

Routine 1b824, 0 locals

1b825:  41 3a 39 00 e5          JE              G2a,#39 [FALSE] 1b90d
1b82a:  26 72 11 00 41          JIN             "Jemima",G01 [FALSE] 1b86e
1b82f:  b3 ...                  PRINT_RET       "Jemima, who has hay fever, is
extremely annoyed by this. So it wasn't a turn entirely wasted."
1b86e:  c1 8f 11 01 d9 00 0b    JE              G01,#01d9 [FALSE] 1b87e
1b875:  83 01 dc 00             GET_PARENT      "corn crake" -> -(SP)
1b879:  41 00 00 00 43          JE              (SP)+,#00 [FALSE] 1b8bf
1b87e:  b3 ...                  PRINT_RET       "The pollen given off makes you
sneeze a little, but fails to give you the bird. (Worth a try, anyway.)"
1b8bf:  89 01 dc                REMOVE_OBJ      "corn crake"
1b8c2:  b3 ...                  PRINT_RET       "The bird is so startled by the
cloud of pollen from the waved branch that she leaps into the skies, squawking
with flighty anxiety."
1b90d:  b1                      RFALSE

Routine 1b910, 0 locals

1b911:  ca 1f 01 13 08 80 83    TEST_ATTR       "capstan",#08 [TRUE] 1b999
1b918:  b3 ...                  PRINT_RET       "You shin precariously down the
anchor chain, but reach the end while still hanging very far above the...
water? quicksand?  Concentrating very carefully, you heave yourself back aboard
and pant with relief."
1b999:  4e 19 47                INSERT_OBJ      G09,"Souvenirs Room"
1b99c:  0d 11 47                STORE           G01,#47
1b99f:  b3 ...                  PRINT_RET       "You shin down the anchor
chain, down, down, under the keel of the Lady Magdalena, down until there is
nothing but the glassy mist and the endless chain...

...And the approaching soft, spongy, pinkish sand-bank, which welcomes you with
its warmth: you step ashore, and immediately sink into the clammy, living sand,
until you are engulfed altogether... and pass out.

However, the hard attic floorboards beneath your back soon wake you again."

Routine 1bab4, 0 locals

1bab5:  c1 95 3a 3f 3d 3e 00 41 JE              G2a,#3f,#3d,#3e [FALSE] 1bafc
1babd:  b2 ...                  PRINT           "You heave away at the capstan,
"
1bad0:  ca 1f 01 13 08 00 0a    TEST_ATTR       "capstan",#08 [FALSE] 1badf
1bad7:  cc 1f 01 13 08          CLEAR_ATTR      "capstan",#08
1badc:  8c 00 0a                JUMP            1bae7
1badf:  cb 1f 01 13 08          SET_ATTR        "capstan",#08
1bae4:  b2 ...                  PRINT           "un"
1bae7:  b3 ...                  PRINT_RET       "winding the great anchor
chain."
1bafc:  c1 97 3a 4b 15 00 09    JE              G2a,#4b,#15 [FALSE] 1bb0a
1bb03:  f9 17 36 0d 26 0b       CALL_VN         d834 (#26,#0b)
1bb09:  b0                      RTRUE
1bb0a:  b1                      RFALSE

Routine 1bb0c, 0 locals

1bb0d:  41 3a 4e 00 11          JE              G2a,#4e [FALSE] 1bb21
1bb12:  b3 ...                  PRINT_RET       "Too shallow for comfort."
1bb21:  41 3a 5d 00 23          JE              G2a,#5d [FALSE] 1bb47
1bb26:  b3 ...                  PRINT_RET       "Just about drinkable. Not much
fun, though."
1bb47:  b1                      RFALSE

Routine 1bb48, 0 locals

1bb49:  41 3a 30 00 06          JE              G2a,#30 [FALSE] 1bb52
1bb4e:  0c 7e 0e                CLEAR_ATTR      "metal door",#0e
1bb51:  b1                      RFALSE
1bb52:  41 3a 2e 00 06          JE              G2a,#2e [FALSE] 1bb5b
1bb57:  0b 7e 0e                SET_ATTR        "metal door",#0e
1bb5a:  b1                      RFALSE
1bb5b:  41 3a 2f 00 06          JE              G2a,#2f [FALSE] 1bb64
1bb60:  0c 7e 0b                CLEAR_ATTR      "metal door",#0b
1bb63:  b1                      RFALSE
1bb64:  41 3a 41 00 06          JE              G2a,#41 [FALSE] 1bb6d
1bb69:  0b 7e 0b                SET_ATTR        "metal door",#0b
1bb6c:  b1                      RFALSE
1bb6d:  b1                      RFALSE

Routine 1bb70, 0 locals

1bb71:  41 3a 5d 00 25          JE              G2a,#5d [FALSE] 1bb99
1bb76:  b3 ...                  PRINT_RET       "It's a warm, not unpleasant
taste, silt and algae."
1bb99:  41 3a 15 00 08          JE              G2a,#15 [FALSE] 1bba4
1bb9e:  da 1f 36 0d 4e          CALL_2N         d834 (#4e)
1bba3:  b0                      RTRUE
1bba4:  b1                      RFALSE

Routine 1bba8, 0 locals

1bba9:  c1 97 3a 4b 15 00 15    JE              G2a,#4b,#15 [FALSE] 1bbc3
1bbb0:  b3 ...                  PRINT_RET       "It's only three feet high!"
1bbc3:  41 3a 3f 00 15          JE              G2a,#3f [FALSE] 1bbdb
1bbc8:  b3 ...                  PRINT_RET       "You swivel the plant's tub."
1bbdb:  c1 95 3a 3d 3e 3c 00 57 JE              G2a,#3d,#3e,#3c [FALSE] 1bc38
1bbe3:  4a 2f 08 00 03          TEST_ATTR       G1f,#08 [FALSE] 1bbe9
1bbe8:  b1                      RFALSE
1bbe9:  4b 2f 08                SET_ATTR        G1f,#08
1bbec:  ce 2f 01 1a 11          INSERT_OBJ      "timber hatch",G01
1bbf1:  e3 13 01 17 0e 01 1a    PUT_PROP        "Beside the Wall",#0e,#011a
1bbf8:  6e 2f 11                INSERT_OBJ      G1f,G01
1bbfb:  b3 ...                  PRINT_RET       "Pushing the shrub a little
aside reveals an unsightly old timber hatch, about three feet in diameter."
1bc38:  b1                      RFALSE

Routine 1bc3c, 0 locals

1bc3d:  c1 97 3a 4b 15 00 5b    JE              G2a,#4b,#15 [FALSE] 1bc9d
1bc44:  b3 ...                  PRINT_RET       "The old, carved garden wall is
one of the treasures of rural England, and you're not nearly desperate enough
to crumble it further into ruin."
1bc9d:  b1                      RFALSE

Routine 1bca0, 0 locals

1bca1:  c1 85 3a 01 03 44 46 00 47
                               JE              G2a,#0103,#44,#46 [FALSE] 1bcef
1bcaa:  41 2a 75 80 11          JE              G1a,#75 [TRUE] 1bcbe
1bcaf:  b3 ...                  PRINT_RET       "The old wall is mute."
1bcbe:  b3 ...                  PRINT_RET       "For a moment, the slightest of
zephyrs blows from the wall, but dies away to nothing."
1bcef:  b1                      RFALSE

Routine 1bcf0, 0 locals

1bcf1:  41 3a 2e 00 0d          JE              G2a,#2e [FALSE] 1bd01
1bcf6:  0b 84 09                SET_ATTR        "Wine Cellars",#09
1bcf9:  51 2f 11 00             GET_PROP        G1f,#11 -> -(SP)
1bcfd:  ad 00                   PRINT_PADDR     (SP)+
1bcff:  bb                      NEW_LINE
1bd00:  b0                      RTRUE
1bd01:  41 3a 30 00 06          JE              G2a,#30 [FALSE] 1bd0a
1bd06:  0c 84 09                CLEAR_ATTR      "Wine Cellars",#09
1bd09:  b1                      RFALSE
1bd0a:  b1                      RFALSE

Routine 1bd0c, 0 locals

1bd0d:  0d a8 04                STORE           G98,#04
1bd10:  0d a9 06                STORE           G99,#06
1bd13:  b1                      RFALSE

Routine 1bd14, 0 locals

1bd15:  c6 8f 19 01 28 00 05    JIN             G09,"garden roller" [FALSE]
1bd1f
1bd1c:  8b 01 2d                RET             #012d
1bd1f:  b3 ...                  PRINT_RET       "You can't go that way.

Now, this takes a little explaining... These days, it isn't easy to keep up a
house the size of Meldrew Hall, and your family has had to strike a bargain
with the National Trust that the house should be open to the public in the
summer months. The maze is so popular with visitors that the grass has worn
away, and it's being reseeded at the moment, so you shouldn't go treading all
over it."

Routine 1be10, 0 locals

1be11:  41 3a 4b 00 09          JE              G2a,#4b [FALSE] 1be1d
1be16:  f9 17 36 0d 26 0a       CALL_VN         d834 (#26,#0a)
1be1c:  b0                      RTRUE
1be1d:  b1                      RFALSE

Routine 1be20, 0 locals

1be21:  c1 8f 3a 01 01 00 1f    JE              G2a,#0101 [FALSE] 1be45
1be28:  4e 30 3d                INSERT_OBJ      G20,"hanging cord"
1be2b:  cc 1f 01 81 08          CLEAR_ATTR      "CR",#08
1be30:  b3 ...                  PRINT_RET       "It plummets down into the
well."
1be45:  b1                      RFALSE

Routine 1be48, 0 locals

1be49:  41 3a 60 00 18          JE              G2a,#60 [FALSE] 1be64
1be4e:  0d 1d 01                STORE           G0d,#01
1be51:  b3 ...                  PRINT_RET       "You fall and break your neck!"
1be64:  b1                      RFALSE

Routine 1be68, 0 locals

1be69:  41 3a 1c 00 51          JE              G2a,#1c [FALSE] 1bebd
1be6e:  ce 8f 30 01 1b          INSERT_OBJ      G20,"Family Tree"
1be73:  41 30 37 00 2f          JE              G20,#37 [FALSE] 1bea5
1be78:  4a 30 0b 00 2a          TEST_ATTR       G20,#0b [FALSE] 1bea5
1be7d:  b2 ...                  PRINT           "The medicine bottle plummets
to the earth below.
"
1be9e:  0c 37 0b                CLEAR_ATTR      "mb",#0b
1bea1:  0b 37 0e                SET_ATTR        "mb",#0e
1bea4:  b0                      RTRUE
1bea5:  da 2f 38 53 2b          CALL_2N         e14c (G1b)
1beaa:  b3 ...                  PRINT_RET       " plummets to the earth below."
1bebd:  b1                      RFALSE

Routine 1bec0, 0 locals

1bec1:  41 3a 26 00 b9          JE              G2a,#26 [FALSE] 1bf7d
1bec6:  4a 2f 0d 80 1e          TEST_ATTR       G1f,#0d [TRUE] 1bee7
1becb:  b2 ...                  PRINT           "(The motor isn't on at the
moment.)
"
1bee4:  8c 00 97                JUMP            1bf7c
1bee7:  c1 97 30 0a 0b 00 27    JE              G20,#0a,#0b [FALSE] 1bf13
1beee:  b2 ...                  PRINT           "The garden roller is a
somewhat horizontal conveyance.
"
1bf11:  9b 02                   RET             #02
1bf13:  c1 8f 11 01 14 00 20    JE              G01,#0114 [FALSE] 1bf38
1bf1a:  41 30 03 00 1b          JE              G20,#03 [FALSE] 1bf38
1bf1f:  b2 ...                  PRINT           "The garden roller will never
fit.
"
1bf36:  9b 02                   RET             #02
1bf38:  c1 8f 11 01 1d 00 3e    JE              G01,#011d [FALSE] 1bf7b
1bf3f:  41 30 04 00 39          JE              G20,#04 [FALSE] 1bf7b
1bf44:  b2 ...                  PRINT           "Philistine!  How dare you try
to drive a garden roller over a Roman mosaic.
"
1bf79:  9b 02                   RET             #02
1bf7b:  b0                      RTRUE
1bf7c:  b1                      RFALSE
1bf7d:  b1                      RFALSE

Routine 1bf80, 0 locals

1bf81:  66 19 2f 00 07          JIN             G09,G1f [FALSE] 1bf8b
1bf86:  4a 2f 0d 80 03          TEST_ATTR       G1f,#0d [TRUE] 1bf8c
1bf8b:  b1                      RFALSE
1bf8c:  c1 8f 11 01 1d 00 42    JE              G01,#011d [FALSE] 1bfd3
1bf93:  c6 0f 01 1e 01 1d 00 3a JIN             "plaster statuette","Lawn
Ornaments" [FALSE] 1bfd3
1bf9b:  b2 ...                  PRINT           "
Crunch!  The garden roller ran into something there.
"
1bfc0:  cb 1f 01 81 09          SET_ATTR        "CR",#09
1bfc5:  89 01 1e                REMOVE_OBJ      "plaster statuette"
1bfc8:  ce 0f 01 1f 01 1d       INSERT_OBJ      "ancient well","Lawn Ornaments"
1bfce:  cb 1f 01 1d 08          SET_ATTR        "Lawn Ornaments",#08
1bfd3:  26 37 11 00 5f          JIN             "mb",G01 [FALSE] 1c035
1bfd8:  0a 37 0b 00 5a          TEST_ATTR       "mb",#0b [FALSE] 1c035
1bfdd:  c1 8f 11 01 27 80 53    JE              G01,#0127 [TRUE] 1c035
1bfe4:  b2 ...                  PRINT           "
Oh dear. The medicine bottle, which you negligently left lying in the path of
the roller, seems to have been cracked.
"
1c02f:  0b 37 0e                SET_ATTR        "mb",#0e
1c032:  0c 37 0b                CLEAR_ATTR      "mb",#0b
1c035:  b1                      RFALSE

Routine 1c038, 1 local

1c039:  c1 97 3a 4d 3d 01 ce    JE              G2a,#4d,#3d [FALSE] 1c20c
1c040:  4a 2f 08 00 1f          TEST_ATTR       G1f,#08 [FALSE] 1c062
1c045:  b3 ...                  PRINT_RET       "Nothing emerges. The bottle
must be empty."
1c062:  4b 2f 08                SET_ATTR        G1f,#08
1c065:  41 11 e6 00 37          JE              G01,#e6 [FALSE] 1c09f
1c06a:  b3 ...                  PRINT_RET       "A valiant but doomed idea. The
weed killer harms barely a single tendril of the wall."
1c09f:  c1 8f 11 01 24 00 32    JE              G01,#0124 [FALSE] 1c0d6
1c0a6:  89 01 25                REMOVE_OBJ      "runner-bean plant"
1c0a9:  e3 17 01 24 0d 00       PUT_PROP        "Vegetable Garden",#0d,#00
1c0af:  b3 ...                  PRINT_RET       "Congratulations. You have
devastated the runner-bean plant."
1c0d6:  c1 8f 11 01 1b 00 31    JE              G01,#011b [FALSE] 1c10c
1c0dd:  b3 ...                  PRINT_RET       "Happily, the weed killer makes
no impression on the beautiful old tree."
1c10c:  41 8c 05 00 05          JE              G7c,#05 [FALSE] 1c114
1c111:  8c 00 cb                JUMP            1c1dd
1c114:  41 8c 06 80 45          JE              G7c,#06 [TRUE] 1c15c
1c119:  b3 ...                  PRINT_RET       "A stream of weed-killer
emerges, but evaporates almost at once, just as well considering the vile
smell."
1c15c:  c1 8f 11 01 36 80 05    JE              G01,#0136 [TRUE] 1c166
1c163:  8c 00 79                JUMP            1c1dd
1c166:  e0 2b 70 a5 a8 a9 01    CALL_VS         1c294 (G98,G99) -> L00
1c16d:  41 01 00 00 31          JE              L00,#00 [FALSE] 1c1a1
1c172:  b3 ...                  PRINT_RET       "A stream of weed-killer soaks
into the grass, and does nothing obvious."
1c1a1:  2d aa a8                STORE           G9a,G98
1c1a4:  2d ab a9                STORE           G9b,G99
1c1a7:  da 2f 37 47 2f          CALL_2N         dd1c (G1f)
1c1ac:  b3 ...                  PRINT_RET       "A stream of weed-killer soaks
into the seedbed, and does nothing obvious."
1c1dd:  b3 ...                  PRINT_RET       "A stream of weed-killer soaks
into the earth, and does nothing obvious."
1c20c:  b1                      RFALSE

Routine 1c210, 1 local

1c211:  41 8c 06 80 14          JE              G7c,#06 [TRUE] 1c228
1c216:  36 09 ab 00             MUL             #09,G9b -> -(SP)
1c21a:  74 aa 00 01             ADD             G9a,(SP)+ -> L00
1c21e:  e2 a7 a7 01 30          STOREB          G97,L00,#30
1c223:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
1c228:  b1                      RFALSE

Routine 1c22c, 0 locals

1c22d:  4a 2f 08 00 0a          TEST_ATTR       G1f,#08 [FALSE] 1c23a
1c232:  b2 ...                  PRINT           "spade"
1c237:  8c 00 17                JUMP            1c24f
1c23a:  b2 ...                  PRINT           "bladed agricultural implement"
1c24f:  b0                      RTRUE

Routine 1c250, 0 locals

1c251:  41 3a 2a 00 3e          JE              G2a,#2a [FALSE] 1c292
1c256:  ca 1f 01 2a 08 00 03    TEST_ATTR       "spade",#08 [FALSE] 1c25e
1c25d:  b1                      RFALSE
1c25e:  cb 1f 01 2a 08          SET_ATTR        "spade",#08
1c263:  d2 1f 01 2a 01 00       GET_PROP_ADDR   "spade",#01 -> -(SP)
1c269:  e1 93 00 03 9a 50       STOREW          (SP)+,#03,"spade"
1c26f:  b3 ...                  PRINT_RET       "On second thoughts, let's just
call a spade a spade."
1c292:  b1                      RFALSE

Routine 1c294, 3 locals

1c295:  42 01 00 80 11          JL              L00,#00 [TRUE] 1c2a9
1c29a:  43 01 08 80 0c          JG              L00,#08 [TRUE] 1c2a9
1c29f:  42 02 00 80 07          JL              L01,#00 [TRUE] 1c2a9
1c2a4:  43 02 06 00 03          JG              L01,#06 [FALSE] 1c2aa
1c2a9:  b1                      RFALSE
1c2aa:  36 09 02 00             MUL             #09,L01 -> -(SP)
1c2ae:  74 00 01 00             ADD             (SP)+,L00 -> -(SP)
1c2b2:  70 a7 00 03             LOADB           G97,(SP)+ -> L02
1c2b6:  41 03 30 00 03          JE              L02,#30 [FALSE] 1c2bc
1c2bb:  b1                      RFALSE
1c2bc:  41 03 31 00 03          JE              L02,#31 [FALSE] 1c2c2
1c2c1:  b0                      RTRUE
1c2c2:  b0                      RTRUE

Routine 1c2c4, 3 locals

1c2c5:  c1 97 01 00 08 80 09    JE              L00,#00,#08 [TRUE] 1c2d3
1c2cc:  c1 97 02 00 06 00 1b    JE              L01,#00,#06 [FALSE] 1c2ec
1c2d3:  36 09 02 00             MUL             #09,L01 -> -(SP)
1c2d7:  74 00 01 00             ADD             (SP)+,L00 -> -(SP)
1c2db:  70 a7 00 03             LOADB           G97,(SP)+ -> L02
1c2df:  41 03 30 00 03          JE              L02,#30 [FALSE] 1c2e5
1c2e4:  b1                      RFALSE
1c2e5:  41 03 31 00 04          JE              L02,#31 [FALSE] 1c2ec
1c2ea:  9b 02                   RET             #02
1c2ec:  e0 2b 70 a5 01 02 00    CALL_VS         1c294 (L00,L01) -> -(SP)
1c2f3:  ab 00                   RET             (SP)+

Routine 1c2f8, 3 locals

1c2f9:  e0 2b 70 b1 01 02 03    CALL_VS         1c2c4 (L00,L01) -> L02
1c300:  41 03 02 00 05          JE              L02,#02 [FALSE] 1c308
1c305:  0d 03 00                STORE           L02,#00
1c308:  ab 03                   RET             L02

Routine 1c30c, 3 locals

1c30d:  e0 2b 70 b1 01 02 03    CALL_VS         1c2c4 (L00,L01) -> L02
1c314:  41 03 01 00 05          JE              L02,#01 [FALSE] 1c31c
1c319:  0d 03 00                STORE           L02,#00
1c31c:  41 03 02 00 05          JE              L02,#02 [FALSE] 1c324
1c321:  0d 03 01                STORE           L02,#01
1c324:  ab 03                   RET             L02

Routine 1c328, 0 locals

1c329:  41 3a 60 00 18          JE              G2a,#60 [FALSE] 1c344
1c32e:  0d 1d 01                STORE           G0d,#01
1c331:  b3 ...                  PRINT_RET       "You fall and break your neck!"
1c344:  b1                      RFALSE

Routine 1c348, 3 locals

1c349:  b2 ...                  PRINT           "The layout is roughly as
follows:

"
1c362:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1c366:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1c36a:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1c36f:  0d 01 00                STORE           L00,#00
1c372:  43 01 06 80 35          JG              L00,#06 [TRUE] 1c3aa
1c377:  b2 ...                  PRINT           "    "
1c37c:  0d 02 00                STORE           L01,#00
1c37f:  43 02 08 80 22          JG              L01,#08 [TRUE] 1c3a4
1c384:  e0 2b 70 a5 02 01 03    CALL_VS         1c294 (L01,L00) -> L02
1c38b:  41 03 00 00 07          JE              L02,#00 [FALSE] 1c395
1c390:  b2 ...                  PRINT           "..."
1c395:  41 03 01 00 07          JE              L02,#01 [FALSE] 1c39f
1c39a:  b2 ...                  PRINT           "###"
1c39f:  95 02                   INC             L01
1c3a1:  8c ff dd                JUMP            1c37f
1c3a4:  bb                      NEW_LINE
1c3a5:  95 01                   INC             L00
1c3a7:  8c ff ca                JUMP            1c372
1c3aa:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1c3ae:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
1c3b4:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1c3b9:  b1                      RFALSE

Routine 1c3bc, 5 locals

1c3bd:  96 a9                   DEC             G99
1c3bf:  e0 2b 70 a5 a8 a9 02    CALL_VS         1c294 (G98,G99) -> L01
1c3c6:  95 a9                   INC             G99
1c3c8:  95 a8                   INC             G98
1c3ca:  e0 2b 70 a5 a8 a9 04    CALL_VS         1c294 (G98,G99) -> L03
1c3d1:  96 a8                   DEC             G98
1c3d3:  95 a9                   INC             G99
1c3d5:  e0 2b 70 a5 a8 a9 03    CALL_VS         1c294 (G98,G99) -> L02
1c3dc:  96 a9                   DEC             G99
1c3de:  96 a8                   DEC             G98
1c3e0:  e0 2b 70 a5 a8 a9 05    CALL_VS         1c294 (G98,G99) -> L04
1c3e7:  95 a8                   INC             G98
1c3e9:  74 02 04 00             ADD             L01,L03 -> -(SP)
1c3ed:  74 00 03 00             ADD             (SP)+,L02 -> -(SP)
1c3f1:  74 00 05 01             ADD             (SP)+,L04 -> L00
1c3f5:  41 01 04 00 19          JE              L00,#04 [FALSE] 1c411
1c3fa:  b3 ...                  PRINT_RET       "
You are hedged in on all sides."
1c411:  41 01 03 00 1b          JE              L00,#03 [FALSE] 1c42f
1c416:  b2 ...                  PRINT           "
You are hedged in and can only go back "
1c42f:  41 01 02 00 11          JE              L00,#02 [FALSE] 1c443
1c434:  b2 ...                  PRINT           "
The corridor runs "
1c443:  41 01 01 00 19          JE              L00,#01 [FALSE] 1c45f
1c448:  b2 ...                  PRINT           "
At this junction, the maze runs "
1c45f:  41 01 00 00 17          JE              L00,#00 [FALSE] 1c479
1c464:  b3 ...                  PRINT_RET       "
This is a crossroads in the maze."
1c479:  42 01 04 00 69          JL              L00,#04 [FALSE] 1c4e5
1c47e:  41 02 00 00 0d          JE              L01,#00 [FALSE] 1c48e
1c483:  b2 ...                  PRINT           "north"
1c488:  0d 02 01                STORE           L01,#01
1c48b:  8c 00 32                JUMP            1c4be
1c48e:  41 04 00 00 0d          JE              L03,#00 [FALSE] 1c49e
1c493:  b2 ...                  PRINT           "east"
1c498:  0d 04 01                STORE           L03,#01
1c49b:  8c 00 22                JUMP            1c4be
1c49e:  41 03 00 00 0d          JE              L02,#00 [FALSE] 1c4ae
1c4a3:  b2 ...                  PRINT           "south"
1c4a8:  0d 03 01                STORE           L02,#01
1c4ab:  8c 00 12                JUMP            1c4be
1c4ae:  41 05 00 00 0d          JE              L04,#00 [FALSE] 1c4be
1c4b3:  b2 ...                  PRINT           "west"
1c4b8:  0d 05 01                STORE           L04,#01
1c4bb:  8c 00 02                JUMP            1c4be
1c4be:  95 01                   INC             L00
1c4c0:  41 01 04 00 05          JE              L00,#04 [FALSE] 1c4c8
1c4c5:  b3 ...                  PRINT_RET       "."
1c4c8:  41 01 03 00 07          JE              L00,#03 [FALSE] 1c4d2
1c4cd:  b2 ...                  PRINT           " and "
1c4d2:  41 01 02 00 05          JE              L00,#02 [FALSE] 1c4da
1c4d7:  b2 ...                  PRINT           ", "
1c4da:  41 01 01 00 05          JE              L00,#01 [FALSE] 1c4e2
1c4df:  b2 ...                  PRINT           ", "
1c4e2:  8c ff 96                JUMP            1c479
1c4e5:  b0                      RTRUE

Routine 1c4e8, 2 locals

1c4e9:  41 3a 12 00 13          JE              G2a,#12 [FALSE] 1c4ff
1c4ee:  b3 ...                  PRINT_RET       "Remember the poor grass!"
1c4ff:  41 3a 26 01 25          JE              G2a,#26 [FALSE] 1c627
1c504:  ca 1f 01 28 0d 80 27    TEST_ATTR       "garden roller",#0d [TRUE]
1c530
1c50b:  b3 ...                  PRINT_RET       "But the garden roller is
switched off, and won't drive."
1c530:  41 a8 04 00 0d          JE              G98,#04 [FALSE] 1c540
1c535:  41 a9 06 00 08          JE              G99,#06 [FALSE] 1c540
1c53a:  41 30 03 00 03          JE              G20,#03 [FALSE] 1c540
1c53f:  b1                      RFALSE
1c540:  41 a8 00 00 0d          JE              G98,#00 [FALSE] 1c550
1c545:  41 a9 01 00 08          JE              G99,#01 [FALSE] 1c550
1c54a:  41 30 05 00 03          JE              G20,#05 [FALSE] 1c550
1c54f:  b1                      RFALSE
1c550:  0d 01 64                STORE           L00,#64
1c553:  0d 02 64                STORE           L01,#64
1c556:  41 30 02 00 09          JE              G20,#02 [FALSE] 1c562
1c55b:  2d 01 a8                STORE           L00,G98
1c55e:  55 a9 01 02             SUB             G99,#01 -> L01
1c562:  41 30 04 00 09          JE              G20,#04 [FALSE] 1c56e
1c567:  54 a8 01 01             ADD             G98,#01 -> L00
1c56b:  2d 02 a9                STORE           L01,G99
1c56e:  41 30 03 00 09          JE              G20,#03 [FALSE] 1c57a
1c573:  2d 01 a8                STORE           L00,G98
1c576:  54 a9 01 02             ADD             G99,#01 -> L01
1c57a:  41 30 05 00 09          JE              G20,#05 [FALSE] 1c586
1c57f:  55 a8 01 01             SUB             G98,#01 -> L00
1c583:  2d 02 a9                STORE           L01,G99
1c586:  41 01 64 00 47          JE              L00,#64 [FALSE] 1c5d0
1c58b:  b3 ...                  PRINT_RET       "The maze is constructed with
rectangular grid-lines of privet, so you can only proceed north, east, south or
west."
1c5d0:  e0 2b 70 a5 01 02 00    CALL_VS         1c294 (L00,L01) -> -(SP)
1c5d7:  41 00 01 00 15          JE              (SP)+,#01 [FALSE] 1c5ef
1c5dc:  b3 ...                  PRINT_RET       "The privet hedge is in the
way."
1c5ef:  2d a8 01                STORE           G98,L00
1c5f2:  2d a9 02                STORE           G99,L01
1c5f5:  c1 8f 11 01 2e 00 0d    JE              G01,#012e [FALSE] 1c607
1c5fc:  cd 4f 11 01 2d          STORE           G01,#012d
1c601:  ce 0f 01 28 01 2d       INSERT_OBJ      "garden roller","Maze"
1c607:  41 a8 07 00 12          JE              G98,#07 [FALSE] 1c61c
1c60c:  41 a9 05 00 0d          JE              G99,#05 [FALSE] 1c61c
1c611:  cd 4f 11 01 2e          STORE           G01,#012e
1c616:  ce 0f 01 28 01 2e       INSERT_OBJ      "garden roller","Patio in Maze"
1c61c:  da 1f 97 a4 27          CALL_2N         25e90 (#27)
1c621:  da 1f 36 0d 29          CALL_2N         d834 (#29)
1c626:  b0                      RTRUE
1c627:  b1                      RFALSE

Routine 1c628, 0 locals

1c629:  41 3a 29 00 06          JE              G2a,#29 [FALSE] 1c632
1c62e:  8f 70 ef                CALL_1N         1c3bc
1c631:  b0                      RTRUE
1c632:  b1                      RFALSE

Routine 1c634, 0 locals

1c635:  41 3a 26 00 30          JE              G2a,#26 [FALSE] 1c668
1c63a:  c1 97 30 0b 0a 00 03    JE              G20,#0b,#0a [FALSE] 1c642
1c641:  b1                      RFALSE
1c642:  c6 8f 19 01 28 80 17    JIN             G09,"garden roller" [TRUE]
1c65e
1c649:  b3 ...                  PRINT_RET       "Mustn't tread on the grass
now!"
1c65e:  e0 07 34 7a 01 2d 02 00 CALL_VS         d1e8 (#012d,#02) -> -(SP)
1c666:  ab 00                   RET             (SP)+
1c668:  b1                      RFALSE

Routine 1c66c, 0 locals

1c66d:  41 3a 29 00 06          JE              G2a,#29 [FALSE] 1c676
1c672:  8f 70 ef                CALL_1N         1c3bc
1c675:  b0                      RTRUE
1c676:  b1                      RFALSE

Routine 1c678, 0 locals

1c679:  c1 97 3a 1a 22 00 3a    JE              G2a,#1a,#22 [FALSE] 1c6b8
1c680:  c1 8f 31 01 ec 00 33    JE              G21,#01ec [FALSE] 1c6b8
1c687:  b3 ...                  PRINT_RET       "It would look perfect in
Diana's hair, but her head is far too high to reach."
1c6b8:  b1                      RFALSE

Routine 1c6bc, 0 locals

1c6bd:  41 3a 2a 00 26          JE              G2a,#2a [FALSE] 1c6e6
1c6c2:  c6 8f 19 01 28 00 1e    JIN             G09,"garden roller" [FALSE]
1c6e5
1c6c9:  c1 8f 30 01 31 00 17    JE              G20,#0131 [FALSE] 1c6e5
1c6d0:  b3 ...                  PRINT_RET       "The writing's too small from
here."
1c6e5:  b1                      RFALSE
1c6e6:  41 3a 26 00 2c          JE              G2a,#26 [FALSE] 1c715
1c6eb:  41 30 04 00 26          JE              G20,#04 [FALSE] 1c714
1c6f0:  c6 8f 19 01 28 80 1f    JIN             G09,"garden roller" [TRUE]
1c714
1c6f7:  b3 ...                  PRINT_RET       "For the sake of the grass, you
can't go that way."
1c714:  b1                      RFALSE
1c715:  b1                      RFALSE

Routine 1c718, 0 locals

1c719:  0d a8 00                STORE           G98,#00
1c71c:  0d a9 01                STORE           G99,#01
1c71f:  b1                      RFALSE

Routine 1c720, 0 locals

1c721:  41 3a 13 00 12          JE              G2a,#13 [FALSE] 1c736
1c726:  4a 2f 08 80 03          TEST_ATTR       G1f,#08 [TRUE] 1c72c
1c72b:  b1                      RFALSE
1c72c:  4b 2f 08                SET_ATTR        G1f,#08
1c72f:  f9 27 37 1a 2f 05       CALL_VN         dc68 (G1f,#05)
1c735:  b1                      RFALSE
1c736:  b1                      RFALSE

Routine 1c738, 0 locals

1c739:  41 8c 06 00 da          JE              G7c,#06 [FALSE] 1c816
1c73e:  b2 ...                  PRINT           "
There is a great rumbling sound and then a thunderous avalanche of stone
cascades down the hillside into the valley. The Folly has collapsed!
Capability Meldrew and his workmen come running to investigate. In the ensuing
confusion, they come across you and, of course, blame you for their incompetent
masonry. You are hauled up before the county assizes...
"
1c813:  0d 1d 05                STORE           G0d,#05
1c816:  b1                      RFALSE

Routine 1c818, 2 locals

1c819:  41 3a 26 00 d3          JE              G2a,#26 [FALSE] 1c8ef
1c81e:  41 a8 04 00 0d          JE              G98,#04 [FALSE] 1c82e
1c823:  41 a9 06 00 08          JE              G99,#06 [FALSE] 1c82e
1c828:  41 30 03 00 03          JE              G20,#03 [FALSE] 1c82e
1c82d:  b1                      RFALSE
1c82e:  41 a8 00 00 0d          JE              G98,#00 [FALSE] 1c83e
1c833:  41 a9 01 00 08          JE              G99,#01 [FALSE] 1c83e
1c838:  41 30 05 00 03          JE              G20,#05 [FALSE] 1c83e
1c83d:  b1                      RFALSE
1c83e:  0d 01 64                STORE           L00,#64
1c841:  0d 02 64                STORE           L01,#64
1c844:  41 2b 02 00 09          JE              G1b,#02 [FALSE] 1c850
1c849:  2d 01 a8                STORE           L00,G98
1c84c:  55 a9 01 02             SUB             G99,#01 -> L01
1c850:  41 2b 04 00 09          JE              G1b,#04 [FALSE] 1c85c
1c855:  54 a8 01 01             ADD             G98,#01 -> L00
1c859:  2d 02 a9                STORE           L01,G99
1c85c:  41 2b 03 00 09          JE              G1b,#03 [FALSE] 1c868
1c861:  2d 01 a8                STORE           L00,G98
1c864:  54 a9 01 02             ADD             G99,#01 -> L01
1c868:  41 2b 05 00 09          JE              G1b,#05 [FALSE] 1c874
1c86d:  55 a8 01 01             SUB             G98,#01 -> L00
1c871:  2d 02 a9                STORE           L01,G99
1c874:  41 2b 06 00 0a          JE              G1b,#06 [FALSE] 1c881
1c879:  54 a8 01 01             ADD             G98,#01 -> L00
1c87d:  55 a9 01 02             SUB             G99,#01 -> L01
1c881:  41 2b 08 00 0a          JE              G1b,#08 [FALSE] 1c88e
1c886:  55 a8 01 01             SUB             G98,#01 -> L00
1c88a:  55 a9 01 02             SUB             G99,#01 -> L01
1c88e:  41 2b 07 00 0a          JE              G1b,#07 [FALSE] 1c89b
1c893:  54 a8 01 01             ADD             G98,#01 -> L00
1c897:  54 a9 01 02             ADD             G99,#01 -> L01
1c89b:  41 2b 09 00 0a          JE              G1b,#09 [FALSE] 1c8a8
1c8a0:  55 a8 01 01             SUB             G98,#01 -> L00
1c8a4:  54 a9 01 02             ADD             G99,#01 -> L01
1c8a8:  41 01 64 00 19          JE              L00,#64 [FALSE] 1c8c4
1c8ad:  b3 ...                  PRINT_RET       "The maze is only
two-dimensional."
1c8c4:  e0 2b 70 c3 01 02 00    CALL_VS         1c30c (L00,L01) -> -(SP)
1c8cb:  41 00 00 80 15          JE              (SP)+,#00 [TRUE] 1c8e3
1c8d0:  b3 ...                  PRINT_RET       "The wooden fence is in the
way."
1c8e3:  2d a8 01                STORE           G98,L00
1c8e6:  2d a9 02                STORE           G99,L01
1c8e9:  da 1f a0 ac 01          CALL_2N         282b0 (#01)
1c8ee:  b0                      RTRUE
1c8ef:  b1                      RFALSE

Routine 1c8f0, 0 locals

1c8f1:  41 3a 29 00 06          JE              G2a,#29 [FALSE] 1c8fa
1c8f6:  8f 72 48                CALL_1N         1c920
1c8f9:  b0                      RTRUE
1c8fa:  41 3a 1c 00 22          JE              G2a,#1c [FALSE] 1c91f
1c8ff:  0d 1d 06                STORE           G0d,#06
1c902:  b3 ...                  PRINT_RET       "You feel an alarming wrench in
your insides."
1c91f:  b1                      RFALSE

Routine 1c920, 6 locals

1c921:  e0 2b 70 a5 a8 a9 01    CALL_VS         1c294 (G98,G99) -> L00
1c928:  41 a8 07 00 0a          JE              G98,#07 [FALSE] 1c935
1c92d:  41 a9 05 00 05          JE              G99,#05 [FALSE] 1c935
1c932:  0d 01 02                STORE           L00,#02
1c935:  bb                      NEW_LINE
1c936:  41 01 01 00 2b          JE              L00,#01 [FALSE] 1c964
1c93b:  b2 ...                  PRINT           "You are standing on a bed in
which seeds have been recently planted. "
1c964:  41 01 00 00 19          JE              L00,#00 [FALSE] 1c980
1c969:  b2 ...                  PRINT           "You stand on a rough patch of
grass. "
1c980:  41 01 02 00 2b          JE              L00,#02 [FALSE] 1c9ae
1c985:  b2 ...                  PRINT           "You stand on a rough patch of
grass, marked out with whitewash. "
1c9ae:  96 a9                   DEC             G99
1c9b0:  e0 2b 70 be a8 a9 02    CALL_VS         1c2f8 (G98,G99) -> L01
1c9b7:  95 a9                   INC             G99
1c9b9:  95 a8                   INC             G98
1c9bb:  e0 2b 70 be a8 a9 04    CALL_VS         1c2f8 (G98,G99) -> L03
1c9c2:  96 a8                   DEC             G98
1c9c4:  95 a9                   INC             G99
1c9c6:  e0 2b 70 be a8 a9 03    CALL_VS         1c2f8 (G98,G99) -> L02
1c9cd:  96 a9                   DEC             G99
1c9cf:  96 a8                   DEC             G98
1c9d1:  e0 2b 70 be a8 a9 05    CALL_VS         1c2f8 (G98,G99) -> L04
1c9d8:  95 a8                   INC             G98
1c9da:  74 02 04 00             ADD             L01,L03 -> -(SP)
1c9de:  74 00 03 00             ADD             (SP)+,L02 -> -(SP)
1c9e2:  74 00 05 01             ADD             (SP)+,L04 -> L00
1c9e6:  41 01 04 00 1a          JE              L00,#04 [FALSE] 1ca03
1c9eb:  b2 ...                  PRINT           "There are seedbeds on all
sides. "
1ca00:  8c 00 b3                JUMP            1cab4
1ca03:  41 01 03 00 0f          JE              L00,#03 [FALSE] 1ca15
1ca08:  b2 ...                  PRINT           "There are seedbeds to "
1ca15:  41 01 02 00 11          JE              L00,#02 [FALSE] 1ca29
1ca1a:  b2 ...                  PRINT           "There are seedbeds to the "
1ca29:  41 01 01 00 11          JE              L00,#01 [FALSE] 1ca3d
1ca2e:  b2 ...                  PRINT           "There is a seedbed to the "
1ca3d:  41 01 00 00 05          JE              L00,#00 [FALSE] 1ca45
1ca42:  8c 00 71                JUMP            1cab4
1ca45:  43 01 00 00 6c          JG              L00,#00 [FALSE] 1cab4
1ca4a:  41 02 01 00 0d          JE              L01,#01 [FALSE] 1ca5a
1ca4f:  b2 ...                  PRINT           "north"
1ca54:  0d 02 00                STORE           L01,#00
1ca57:  8c 00 32                JUMP            1ca8a
1ca5a:  41 04 01 00 0d          JE              L03,#01 [FALSE] 1ca6a
1ca5f:  b2 ...                  PRINT           "east"
1ca64:  0d 04 00                STORE           L03,#00
1ca67:  8c 00 22                JUMP            1ca8a
1ca6a:  41 03 01 00 0d          JE              L02,#01 [FALSE] 1ca7a
1ca6f:  b2 ...                  PRINT           "south"
1ca74:  0d 03 00                STORE           L02,#00
1ca77:  8c 00 12                JUMP            1ca8a
1ca7a:  41 05 01 00 0d          JE              L04,#01 [FALSE] 1ca8a
1ca7f:  b2 ...                  PRINT           "west"
1ca84:  0d 05 00                STORE           L04,#00
1ca87:  8c 00 02                JUMP            1ca8a
1ca8a:  96 01                   DEC             L00
1ca8c:  41 01 00 00 08          JE              L00,#00 [FALSE] 1ca97
1ca91:  b2 ...                  PRINT           ". "
1ca94:  8c 00 1f                JUMP            1cab4
1ca97:  41 01 01 00 07          JE              L00,#01 [FALSE] 1caa1
1ca9c:  b2 ...                  PRINT           " and "
1caa1:  41 01 02 00 05          JE              L00,#02 [FALSE] 1caa9
1caa6:  b2 ...                  PRINT           ", "
1caa9:  41 01 03 00 05          JE              L00,#03 [FALSE] 1cab1
1caae:  b2 ...                  PRINT           ", "
1cab1:  8c ff 93                JUMP            1ca45
1cab4:  96 a9                   DEC             G99
1cab6:  e0 2b 70 c3 a8 a9 02    CALL_VS         1c30c (G98,G99) -> L01
1cabd:  95 a9                   INC             G99
1cabf:  95 a8                   INC             G98
1cac1:  e0 2b 70 c3 a8 a9 04    CALL_VS         1c30c (G98,G99) -> L03
1cac8:  96 a8                   DEC             G98
1caca:  95 a9                   INC             G99
1cacc:  e0 2b 70 c3 a8 a9 03    CALL_VS         1c30c (G98,G99) -> L02
1cad3:  96 a9                   DEC             G99
1cad5:  96 a8                   DEC             G98
1cad7:  e0 2b 70 c3 a8 a9 05    CALL_VS         1c30c (G98,G99) -> L04
1cade:  95 a8                   INC             G98
1cae0:  74 02 04 00             ADD             L01,L03 -> -(SP)
1cae4:  74 00 03 00             ADD             (SP)+,L02 -> -(SP)
1cae8:  74 00 05 01             ADD             (SP)+,L04 -> L00
1caec:  41 01 00 00 04          JE              L00,#00 [FALSE] 1caf3
1caf1:  bb                      NEW_LINE
1caf2:  b1                      RFALSE
1caf3:  41 01 01 00 0f          JE              L00,#01 [FALSE] 1cb05
1caf8:  b2 ...                  PRINT           "There is a fence to the "
1cb05:  41 01 02 00 0f          JE              L00,#02 [FALSE] 1cb17
1cb0a:  b2 ...                  PRINT           "There are fences to "
1cb17:  41 01 03 00 0f          JE              L00,#03 [FALSE] 1cb29
1cb1c:  b2 ...                  PRINT           "There are fences to "
1cb29:  41 01 04 00 13          JE              L00,#04 [FALSE] 1cb3f
1cb2e:  b3 ...                  PRINT_RET       "This is a fenced-in area."
1cb3f:  41 01 02 00 0f          JE              L00,#02 [FALSE] 1cb51
1cb44:  41 04 01 00 0a          JE              L03,#01 [FALSE] 1cb51
1cb49:  41 05 01 00 05          JE              L04,#01 [FALSE] 1cb51
1cb4e:  0d 06 01                STORE           L05,#01
1cb51:  43 01 00 00 a3          JG              L00,#00 [FALSE] 1cbf7
1cb56:  41 02 01 00 0d          JE              L01,#01 [FALSE] 1cb66
1cb5b:  b2 ...                  PRINT           "north"
1cb60:  0d 02 00                STORE           L01,#00
1cb63:  8c 00 32                JUMP            1cb96
1cb66:  41 04 01 00 0d          JE              L03,#01 [FALSE] 1cb76
1cb6b:  b2 ...                  PRINT           "east"
1cb70:  0d 04 00                STORE           L03,#00
1cb73:  8c 00 22                JUMP            1cb96
1cb76:  41 03 01 00 0d          JE              L02,#01 [FALSE] 1cb86
1cb7b:  b2 ...                  PRINT           "south"
1cb80:  0d 03 00                STORE           L02,#00
1cb83:  8c 00 12                JUMP            1cb96
1cb86:  41 05 01 00 0d          JE              L04,#01 [FALSE] 1cb96
1cb8b:  b2 ...                  PRINT           "west"
1cb90:  0d 05 00                STORE           L04,#00
1cb93:  8c 00 02                JUMP            1cb96
1cb96:  96 01                   DEC             L00
1cb98:  41 01 00 00 3f          JE              L00,#00 [FALSE] 1cbda
1cb9d:  41 06 01 00 37          JE              L05,#01 [FALSE] 1cbd7
1cba2:  b3 ...                  PRINT_RET       "; uncouth rustics are at work
to the south, but fortunately they haven't yet seen you."
1cbd7:  b3 ...                  PRINT_RET       "."
1cbda:  41 01 01 00 07          JE              L00,#01 [FALSE] 1cbe4
1cbdf:  b2 ...                  PRINT           " and "
1cbe4:  41 01 02 00 05          JE              L00,#02 [FALSE] 1cbec
1cbe9:  b2 ...                  PRINT           ", "
1cbec:  41 01 03 00 05          JE              L00,#03 [FALSE] 1cbf4
1cbf1:  b2 ...                  PRINT           ", "
1cbf4:  8c ff 5c                JUMP            1cb51
1cbf7:  b0                      RTRUE

Routine 1cbf8, 0 locals

1cbf9:  0d 1d 05                STORE           G0d,#05
1cbfc:  b1                      RFALSE

Routine 1cc00, 0 locals

1cc01:  da 1f 97 a4 16          CALL_2N         25e90 (#16)
1cc06:  b1                      RFALSE

Routine 1cc08, 0 locals

1cc09:  cb 1f 01 3a 08          SET_ATTR        "flock of sparrows",#08
1cc0e:  b2 ...                  PRINT           "Your first step towards the
sparrows startles them into the air, and they whirl upwards and around with
panic, chirping their alarm.
"
1cc5d:  8b 01 3b                RET             #013b

Routine 1cc60, 0 locals

1cc61:  ca 1f 01 3a 08 00 32    TEST_ATTR       "flock of sparrows",#08 [FALSE]
1cc98
1cc68:  cc 1f 01 3a 08          CLEAR_ATTR      "flock of sparrows",#08
1cc6d:  b2 ...                  PRINT           "As you step out, the sparrows
gradually settle back down again.
"
1cc98:  8b 01 39                RET             #0139

Routine 1cc9c, 0 locals

1cc9d:  41 3a 29 00 6d          JE              G2a,#29 [FALSE] 1cd0d
1cca2:  ca 1f 01 3a 08 80 32    TEST_ATTR       "flock of sparrows",#08 [TRUE]
1ccd9
1cca9:  b2 ...                  PRINT           "
Sparrows chirp happily away to themselves around the high gutter.
"
1ccd6:  8c 00 35                JUMP            1cd0c
1ccd9:  b2 ...                  PRINT           "
Startled sparrows circle high in the sky, showing no signs of calming down.
"
1cd0c:  b1                      RFALSE
1cd0d:  b1                      RFALSE

Routine 1cd10, 0 locals

1cd11:  4a 2f 0c 80 27          TEST_ATTR       G1f,#0c [TRUE] 1cd3b
1cd16:  b3 ...                  PRINT_RET       "The watch is just within
sight, but quite beyond reach."
1cd3b:  c1 97 3a 4f 39 00 21    JE              G2a,#4f,#39 [FALSE] 1cd61
1cd42:  b3 ...                  PRINT_RET       "You come dangerously close to
hypnotising yourself."
1cd61:  b1                      RFALSE

Routine 1cd64, 0 locals

1cd65:  c1 95 3a 2e 3d 3c 80 07 JE              G2a,#2e,#3d,#3c [TRUE] 1cd72
1cd6d:  41 3a 3f 00 33          JE              G2a,#3f [FALSE] 1cda3
1cd72:  c6 2f 01 41 11 00 2b    JIN             "irate squirrel friend",G01
[FALSE] 1cda2
1cd79:  b3 ...                  PRINT_RET       "The squirrel rears up and nips
you on the wrist. You withdraw, hurt."
1cda2:  b1                      RFALSE
1cda3:  b1                      RFALSE

Routine 1cda4, 0 locals

1cda5:  41 3a 2b 00 2d          JE              G2a,#2b [FALSE] 1cdd5
1cdaa:  b3 ...                  PRINT_RET       "Through the crack you can see
sunlight on the summer-house floorboards."
1cdd5:  b1                      RFALSE

Routine 1cdd8, 0 locals

1cdd9:  c1 8f 3a 01 01 00 a3    JE              G2a,#0101 [FALSE] 1ce81
1cde0:  c1 8f 30 01 db 00 76    JE              G20,#01db [FALSE] 1ce5b
1cde7:  cb 1f 01 3f 0e          SET_ATTR        "loose board",#0e
1cdec:  ce 0f 01 db 01 41       INSERT_OBJ      "bunch of nuts","irate squirrel
friend"
1cdf2:  ce 0f 01 41 01 3b       INSERT_OBJ      "irate squirrel friend","Summer
House"
1cdf8:  8f 73 e6                CALL_1N         1cf98
1cdfb:  e3 13 01 3b 05 01 3e    PUT_PROP        "Summer House",#05,#013e
1ce02:  b3 ...                  PRINT_RET       "You throw the nuts through the
loose board into the summer house, and the squirrel jumps up after them,
battering through the board and opening up a hole in the wall."
1ce5b:  ce 8f 30 01 3b          INSERT_OBJ      G20,"Summer House"
1ce60:  b3 ...                  PRINT_RET       "Thrown through the loose board
into the summer house."
1ce81:  b1                      RFALSE

Routine 1ce84, 0 locals

1ce85:  41 3a 24 00 27          JE              G2a,#24 [FALSE] 1ceaf
1ce8a:  c1 8f 30 01 db 00 1f    JE              G20,#01db [FALSE] 1ceae
1ce91:  b3 ...                  PRINT_RET       "The squirrel finds them of
consuming interest."
1ceae:  b1                      RFALSE
1ceaf:  41 3a 22 00 e4          JE              G2a,#22 [FALSE] 1cf96
1ceb4:  4a 30 05 00 de          TEST_ATTR       G20,#05 [FALSE] 1cf95
1ceb9:  a9 30                   REMOVE_OBJ      G20
1cebb:  c1 8f 30 01 db 00 52    JE              G20,#01db [FALSE] 1cf12
1cec2:  8f 73 e6                CALL_1N         1cf98
1cec5:  b3 ...                  PRINT_RET       "The squirrel is extremely
pleased, and devours the nuts delightedly. You have an uncomfortable feeling of
having been suckered."
1cf12:  b2 ...                  PRINT           "Grateful for any food he can
get, however unsuitable, the squirrel eagerly consumes "
1cf47:  41 30 e4 00 07          JE              G20,#e4 [FALSE] 1cf51
1cf4c:  b2 ...                  PRINT           "the "
1cf51:  da 2f 38 4e 30          CALL_2N         e138 (G20)
1cf56:  b3 ...                  PRINT_RET       ". He does of course feel no
obligation towards you at all as a result, so don't expect any favours."
1cf95:  b1                      RFALSE
1cf96:  b1                      RFALSE

Routine 1cf98, 0 locals

1cf99:  e3 13 01 41 11 d7 f2    PUT_PROP        "irate squirrel
friend",#11,S644
1cfa0:  b0                      RTRUE

Routine 1cfa4, 2 locals

1cfa5:  41 01 00 80 23          JE              L00,#00 [TRUE] 1cfcb
1cfaa:  da 2f 6b a8 01          CALL_2N         1aea0 (L00)
1cfaf:  43 01 00 00 0a          JG              L00,#00 [FALSE] 1cfbc
1cfb4:  b2 ...                  PRINT           " east"
1cfb9:  8c 00 07                JUMP            1cfc1
1cfbc:  b2 ...                  PRINT           " west"
1cfc1:  41 02 00 80 07          JE              L01,#00 [TRUE] 1cfcb
1cfc6:  b2 ...                  PRINT           " and "
1cfcb:  41 02 00 80 19          JE              L01,#00 [TRUE] 1cfe7
1cfd0:  da 2f 6b a8 02          CALL_2N         1aea0 (L01)
1cfd5:  43 02 00 00 0a          JG              L01,#00 [FALSE] 1cfe2
1cfda:  b2 ...                  PRINT           " north"
1cfdf:  8c 00 07                JUMP            1cfe7
1cfe2:  b2 ...                  PRINT           " south"
1cfe7:  b0                      RTRUE

Routine 1cfe8, 0 locals

1cfe9:  b2 ...                  PRINT           "One of the most beautiful
hedge-enclosed, tree-muffled lawns in England, and just out of sight of the
house, this has been a jewel in the gardens for centuries. Since the twenties
it has also been a croquet lawn, of the regulation twenty-four yards square,
laid out with a central coloured peg and six peripheral hoops"
1d0aa:  51 2f 0b 00             GET_PROP        G1f,#0b -> -(SP)
1d0ae:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 1d0b6
1d0b3:  b3 ...                  PRINT_RET       "."
1d0b6:  b3 ...                  PRINT_RET       ". The hedge is broken slightly
to the northwest."

Routine 1d0d4, 0 locals

1d0d5:  0d ac 00                STORE           G9c,#00
1d0d8:  0d ad 00                STORE           G9d,#00
1d0db:  b1                      RFALSE

Routine 1d0dc, 0 locals

1d0dd:  41 ac 00 00 08          JE              G9c,#00 [FALSE] 1d0e8
1d0e2:  41 ad 00 00 03          JE              G9d,#00 [FALSE] 1d0e8
1d0e7:  b1                      RFALSE
1d0e8:  41 91 01 00 03          JE              G81,#01 [FALSE] 1d0ee
1d0ed:  b1                      RFALSE
1d0ee:  b2 ...                  PRINT           "Croquet Lawn ("
1d0fb:  f9 2b 73 e9 ac ad       CALL_VN         1cfa4 (G9c,G9d)
1d101:  b2 ...                  PRINT           " of the peg)"
1d10a:  b0                      RTRUE

Routine 1d10c, 0 locals

1d10d:  41 3a 14 00 15          JE              G2a,#14 [FALSE] 1d125
1d112:  61 30 31 00 0f          JE              G20,G21 [FALSE] 1d124
1d117:  b3 ...                  PRINT_RET       "It is in one piece."
1d124:  b1                      RFALSE
1d125:  41 3a 2b 00 eb          JE              G2a,#2b [FALSE] 1d213
1d12a:  83 01 45 00             GET_PARENT      "golden astrolabe" -> -(SP)
1d12e:  c1 8f 00 01 d4 00 09    JE              (SP)+,#01d4 [FALSE] 1d13c
1d135:  ca 1f 01 45 0c 00 59    TEST_ATTR       "golden astrolabe",#0c [FALSE]
1d193
1d13c:  b3 ...                  PRINT_RET       "You catch a fascinating, but
all too brief, glimpse of something grey, angular and tall... which slips out
of view as your unsteady hand shakes."
1d193:  b2 ...                  PRINT           "Through the golden eyepiece
you see, not the moon (for the astrolabe is tilted too low), but a curious,
sunlit, grey triangle.

Fascinated, you strain closer to the vision... closer...
"
1d20c:  da 0f 9d 20 01 ef       CALL_2N         27480 (#01ef)
1d212:  b0                      RTRUE
1d213:  b1                      RFALSE

Routine 1d214, 0 locals

1d215:  41 3a 13 00 08          JE              G2a,#13 [FALSE] 1d220
1d21a:  da 1f 97 a4 2b          CALL_2N         25e90 (#2b)
1d21f:  b1                      RFALSE
1d220:  b1                      RFALSE

Routine 1d224, 0 locals

1d225:  41 3a 13 00 37          JE              G2a,#13 [FALSE] 1d25f
1d22a:  b3 ...                  PRINT_RET       "A surreal idea, somewhat
reminiscent of the Beatles film "Yellow Submarine"."
1d25f:  b1                      RFALSE

Routine 1d260, 0 locals

1d261:  61 ae ac 00 22          JE              G9e,G9c [FALSE] 1d286
1d266:  61 af ad 00 1d          JE              G9f,G9d [FALSE] 1d286
1d26b:  b3 ...                  PRINT_RET       "
The hole you dug in the lawn is just here."
1d286:  b2 ...                  PRINT           "
Some vandal has dug a hole in the lawn, "
1d29f:  75 af ad 00             SUB             G9f,G9d -> -(SP)
1d2a3:  75 ae ac 00             SUB             G9e,G9c -> -(SP)
1d2a7:  f9 2b 73 e9 00 00       CALL_VN         1cfa4 ((SP)+,(SP)+)
1d2ad:  b3 ...                  PRINT_RET       "."

Routine 1d2b0, 0 locals

1d2b1:  da 2f 37 47 2f          CALL_2N         dd1c (G1f)
1d2b6:  b1                      RFALSE

Routine 1d2b8, 1 local

1d2b9:  41 8c 07 80 07          JE              G7c,#07 [TRUE] 1d2c3
1d2be:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
1d2c3:  2d 01 b0                STORE           L00,Ga0
1d2c6:  43 01 00 00 04          JG              L00,#00 [FALSE] 1d2cd
1d2cb:  95 b0                   INC             Ga0
1d2cd:  41 01 01 00 23          JE              L00,#01 [FALSE] 1d2f3
1d2d2:  b3 ...                  PRINT_RET       "
From up on the hill you hear the blowing of a horn."
1d2f3:  41 01 02 00 25          JE              L00,#02 [FALSE] 1d31b
1d2f8:  b3 ...                  PRINT_RET       "
Horses are approaching the villa, coming down the hill."
1d31b:  41 01 03 00 19          JE              L00,#03 [FALSE] 1d337
1d320:  b3 ...                  PRINT_RET       "
The sound of horses draws nearer."
1d337:  41 01 04 00 63          JE              L00,#04 [FALSE] 1d39d
1d33c:  c1 8f 11 01 5f 00 3d    JE              G01,#015f [FALSE] 1d37e
1d343:  b2 ...                  PRINT           "
Horsemen suddenly gallop into the courtyard and you are soon ringed by guards!
"
1d378:  8f 78 48                CALL_1N         1e120
1d37b:  8c 00 21                JUMP            1d39d
1d37e:  b3 ...                  PRINT_RET       "
There is definitely activity outside the villa."
1d39d:  42 01 05 80 4c          JL              L00,#05 [TRUE] 1d3ec
1d3a2:  c1 8f 11 01 5f 00 1c    JE              G01,#015f [FALSE] 1d3c3
1d3a9:  b2 ...                  PRINT           "
You walk straight into the guards.
"
1d3c0:  8f 78 48                CALL_1N         1e120
1d3c3:  c1 8f 11 01 50 00 24    JE              G01,#0150 [FALSE] 1d3ec
1d3ca:  b2 ...                  PRINT           "
You walk straight into the guards at the back door.
"
1d3e9:  8f 78 48                CALL_1N         1e120
1d3ec:  41 01 07 01 2d          JE              L00,#07 [FALSE] 1d51c
1d3f1:  b2 ...                  PRINT           "
There is sudden activity as the guards make a thorough precautionary search of
the villa. "
1d426:  c1 8f 11 01 5d 00 27    JE              G01,#015d [FALSE] 1d452
1d42d:  b3 ...                  PRINT_RET       "Luckily, they don't even think
of looking down in here."
1d452:  c1 8f 11 01 5c 00 45    JE              G01,#015c [FALSE] 1d49c
1d459:  b2 ...                  PRINT           "Unfortunately, they do think
of looking into the kitchen well, and drag you out onto the triclinium floor.
"
1d49c:  c1 80 11 01 47 01 4a 01 4c 00 3c
                               JE              G01,#0147,#014a,#014c [FALSE]
1d4e1
1d4a7:  b2 ...                  PRINT           "With the kind of zeal which
really marked early Dark Age guarding, they look even here.
"
1d4de:  8c 00 3a                JUMP            1d519
1d4e1:  c1 8f 11 01 5c 80 33    JE              G01,#015c [TRUE] 1d519
1d4e8:  b2 ...                  PRINT           "The virtue of doing so is
demonstrated when they find you without difficulty.
"
1d519:  8f 78 48                CALL_1N         1e120
1d51c:  43 01 07 80 03          JG              L00,#07 [TRUE] 1d522
1d521:  b1                      RFALSE
1d522:  c1 8f 11 01 5a 00 68    JE              G01,#015a [FALSE] 1d58f
1d529:  b2 ...                  PRINT           "
An industrious-looking slave (who cooks for the horsemen) is rather surprised
to see you, but with creditable presence of mind he summons the guard at once.
"
1d58c:  8f 78 48                CALL_1N         1e120
1d58f:  c1 8f 11 01 5d 80 03    JE              G01,#015d [TRUE] 1d597
1d596:  b1                      RFALSE
1d597:  41 01 08 00 29          JE              L00,#08 [FALSE] 1d5c3
1d59c:  b3 ...                  PRINT_RET       "
You hear men walking across the mosaic just above your head."
1d5c3:  41 01 09 00 f4          JE              L00,#09 [FALSE] 1d6ba
1d5c8:  b2 ...                  PRINT           "
A voice, which can just be heard through the vent, says "
1d5eb:  41 8f 00 00 29          JE              G7f,#00 [FALSE] 1d617
1d5f0:  b3 ...                  PRINT_RET       "something in Anglo-Saxon or
Celtic (hard to say which)."
1d617:  b3 ...                  PRINT_RET       ""Welcome, great masters. We
are convened in secret conclave to decide the fate of Britain. Lament, for the
old ways are passing!  There will be a dark age, a collapse into many
monarchies, and any man who can hold a town will call himself King and heir to
Vortigern.""
1d6ba:  41 01 0a 00 7a          JE              L00,#0a [FALSE] 1d737
1d6bf:  b2 ...                  PRINT           "
A younger, more impatient voice, says "
1d6da:  41 8f 00 00 0d          JE              G7f,#00 [FALSE] 1d6ea
1d6df:  b3 ...                  PRINT_RET       "something else."
1d6ea:  b3 ...                  PRINT_RET       ""This is an opportunity!  We
must be the power behind the thrones, we will in secret unite and be the true
force of the land...""
1d737:  41 01 0b 00 bc          JE              L00,#0b [FALSE] 1d7f6
1d73c:  b2 ...                  PRINT           "
There is cynical laughter for a moment, and a third voice interjects "
1d767:  41 8f 00 00 0b          JE              G7f,#00 [FALSE] 1d775
1d76c:  b3 ...                  PRINT_RET       "something."
1d775:  b3 ...                  PRINT_RET       ""And who will lead this, this
unity?  We take all sides and none, you know that. There are potent druids in
the tents of each general down there in the rabble. They'd kill each other in a
second come the battle.""
1d7f6:  41 01 0c 01 01          JE              L00,#0c [FALSE] 1d8fa
1d7fb:  b2 ...                  PRINT           "
The first voice speaks once more. "
1d812:  41 8f 00 00 04          JE              G7f,#00 [FALSE] 1d819
1d817:  bb                      NEW_LINE
1d818:  b0                      RTRUE
1d819:  b3 ...                  PRINT_RET       ""Far worse is to come. The
jumped-up kings and their new men will no longer believe in the ancient powers.
Already I can feel the druidic magic weakening away, and we are perilously
close to the nexus now. In the valleys below, armies wait to fight the decisive
battle. Whichever side wins, they will no longer need us. In a matter of hours,
the power will be broken forever.""
1d8fa:  41 01 0d 00 fc          JE              L00,#0d [FALSE] 1d9f9
1d8ff:  b2 ...                  PRINT           "
After a sombre silence, a much older voice says "
1d920:  41 8f 00 00 29          JE              G7f,#00 [FALSE] 1d94c
1d925:  b3 ...                  PRINT_RET       "something wise. It really is a
pity you can't understand them."
1d94c:  b3 ...                  PRINT_RET       ""You did right to call us
together. There is a path prepared for us, but the sacrifice will be terrible.
We must concentrate all the remaining druidical energy into this sacred hill,
that it may last through all time, and we must ensure that druids live on this
site forever and keep the faith.""
1d9f9:  41 01 0e 00 71          JE              L00,#0e [FALSE] 1da6d
1d9fe:  b2 ...                  PRINT           "
The younger voice speaks again. "
1da15:  41 8f 00 00 04          JE              G7f,#00 [FALSE] 1da1c
1da1a:  bb                      NEW_LINE
1da1b:  b0                      RTRUE
1da1c:  b3 ...                  PRINT_RET       ""For now, yes, for a century
or two, yes, but what then?  They will forget the old ways, they will no longer
truly be druids.""
1da6d:  41 01 0f 01 5f          JE              L00,#0f [FALSE] 1dbcf
1da72:  b2 ...                  PRINT           "
The older voice replies triumphantly. "
1da8d:  41 8f 00 00 04          JE              G7f,#00 [FALSE] 1da94
1da92:  bb                      NEW_LINE
1da93:  b0                      RTRUE
1da94:  b3 ...                  PRINT_RET       ""This is what must be done.
They will forget, so we must give them a substitute. We shall accurse them to
always seek after this magical stone, which it will be all but impossible for
them to find. It will take the form of whatever they most desire. In six
hundred years, by my prophecy, religious wars in the East will capture men's
hearts, and then they will think it is the Holy Grail, the cup which held the
blood of Christ. A thousand years later they will think it is -"  But at this
moment the voices move away."
1dbcf:  b1                      RFALSE

Routine 1dbd0, 0 locals

1dbd1:  41 3a 4b 00 09          JE              G2a,#4b [FALSE] 1dbdd
1dbd6:  f9 17 36 0d 26 0b       CALL_VN         d834 (#26,#0b)
1dbdc:  b0                      RTRUE
1dbdd:  b1                      RFALSE

Routine 1dbe0, 0 locals

1dbe1:  b2 ...                  PRINT           "You clamber down the rope,
straight into a patrol of guards who capture you!
"
1dc12:  8f 78 48                CALL_1N         1e120
1dc15:  b0                      RTRUE

Routine 1dc18, 0 locals

1dc19:  41 3a 4f 00 32          JE              G2a,#4f [FALSE] 1dc4e
1dc1e:  c1 8f 30 01 4d 80 03    JE              G20,#014d [TRUE] 1dc26
1dc25:  b1                      RFALSE
1dc26:  cb 1f 01 4d 08          SET_ATTR        "hemp rope",#08
1dc2b:  b3 ...                  PRINT_RET       "You set the rope swinging back
and forth. Very exhilarating!"
1dc4e:  b1                      RFALSE

Routine 1dc50, 0 locals

1dc51:  41 3a 1c 00 24          JE              G2a,#1c [FALSE] 1dc78
1dc56:  a9 30                   REMOVE_OBJ      G20
1dc58:  da 2f 38 53 30          CALL_2N         e14c (G20)
1dc5d:  b3 ...                  PRINT_RET       " tumbles end over end into the
valley below."
1dc78:  b1                      RFALSE

Routine 1dc7c, 0 locals

1dc7d:  41 3a 19 00 23          JE              G2a,#19 [FALSE] 1dca3
1dc82:  b3 ...                  PRINT_RET       "You tuck the daisy behind your
ear, almost out of sight."
1dca3:  41 3a 13 00 2a          JE              G2a,#13 [FALSE] 1dcd0
1dca8:  4a 2f 08 80 24          TEST_ATTR       G1f,#08 [TRUE] 1dccf
1dcad:  4b 2f 08                SET_ATTR        G1f,#08
1dcb0:  b3 ...                  PRINT_RET       "Aided by the swinging of the
rope, you pick the daisy."
1dccf:  b1                      RFALSE
1dcd0:  b1                      RFALSE

Routine 1dcd4, 0 locals

1dcd5:  41 3a 13 00 46          JE              G2a,#13 [FALSE] 1dd1e
1dcda:  4a 2f 0c 80 09          TEST_ATTR       G1f,#0c [TRUE] 1dce6
1dcdf:  ca 1f 01 4d 08 00 03    TEST_ATTR       "hemp rope",#08 [FALSE] 1dce7
1dce6:  b1                      RFALSE
1dce7:  b3 ...                  PRINT_RET       "You stretch out your hand, but
cannot quite reach the daisy, such is the size of the overhang."
1dd1e:  b1                      RFALSE

Routine 1dd20, 1 local

1dd21:  4a 2f 1a 00 44          TEST_ATTR       G1f,#1a [FALSE] 1dd68
1dd26:  41 83 02 00 3f          JE              G73,#02 [FALSE] 1dd68
1dd2b:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 1dd2f
1dd2f:  41 01 00 80 22          JE              L00,#00 [TRUE] 1dd54
1dd34:  4a 01 21 00 16          TEST_ATTR       L00,#21 [FALSE] 1dd4d
1dd39:  b2 ...                  PRINT           " (twitching behind your ear)"
1dd4c:  b0                      RTRUE
1dd4d:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 1dd51
1dd51:  8c ff dd                JUMP            1dd2f
1dd54:  b2 ...                  PRINT           " (tucked behind your ear)"
1dd67:  b0                      RTRUE
1dd68:  b1                      RFALSE

Routine 1dd6c, 0 locals

1dd6d:  41 3a 4e 00 11          JE              G2a,#4e [FALSE] 1dd81
1dd72:  b3 ...                  PRINT_RET       "Too shallow for comfort."
1dd81:  41 3a 5d 00 19          JE              G2a,#5d [FALSE] 1dd9d
1dd86:  b3 ...                  PRINT_RET       "Deliciously clear and
unpolluted."
1dd9d:  b1                      RFALSE

Routine 1dda0, 0 locals

1dda1:  c1 97 3a 4b 15 00 09    JE              G2a,#4b,#15 [FALSE] 1ddaf
1dda8:  f9 17 36 0d 26 0a       CALL_VN         d834 (#26,#0a)
1ddae:  b0                      RTRUE
1ddaf:  b1                      RFALSE

Routine 1ddb0, 0 locals

1ddb1:  41 3a 50 00 7a          JE              G2a,#50 [FALSE] 1de2e
1ddb6:  b2 ...                  PRINT           "You blow the horn, and it lets
a great clarion call out to the hills. "
1dddf:  42 b0 07 80 2d          JL              Ga0,#07 [TRUE] 1de0f
1dde4:  b2 ...                  PRINT           "The guardsmen, all over the
villa, find you very quickly.
"
1de09:  8f 78 48                CALL_1N         1e120
1de0c:  8c 00 20                JUMP            1de2d
1de0f:  b2 ...                  PRINT           "A call which is rapidly
answered as...
"
1de2a:  0d b0 07                STORE           Ga0,#07
1de2d:  b0                      RTRUE
1de2e:  b1                      RFALSE

Routine 1de30, 0 locals

1de31:  41 3a 1c 00 23          JE              G2a,#1c [FALSE] 1de57
1de36:  b2 ...                  PRINT           "Alea iacta est. It comes up "
1de4b:  e7 7f 06 00             RANDOM          #06 -> -(SP)
1de4f:  da 2f 99 a2 00          CALL_2N         26688 ((SP)+)
1de54:  b3 ...                  PRINT_RET       "."
1de57:  b1                      RFALSE

Routine 1de58, 0 locals

1de59:  ca 1f 01 5b 0e 80 11    TEST_ATTR       "kitchen well",#0e [TRUE] 1de6f
1de60:  b3 ...                  PRINT_RET       "The well is covered."
1de6f:  ca 1f 01 5b 08 00 31    TEST_ATTR       "kitchen well",#08 [FALSE]
1dea5
1de76:  b2 ...                  PRINT           "Aware of the dangers, you very
carefully lower yourself...
"
1de9d:  da 1f 9d bb 14          CALL_2N         276ec (#14)
1dea2:  8b 01 5b                RET             #015b
1dea5:  0d 1d 01                STORE           G0d,#01
1dea8:  b3 ...                  PRINT_RET       "Having no reason to suppose
the well is very deep, you cheerfully lower yourself in. This turns out to be
something of a misjudgement and you soon lose your grip and fall, endlessly
banging against the walls until finally..."

Routine 1df30, 0 locals

1df31:  c6 8f 19 01 5a 80 03    JIN             G09,"Triclinium" [TRUE] 1df39
1df38:  b1                      RFALSE
1df39:  cb 1f 01 5b 08          SET_ATTR        "kitchen well",#08
1df3e:  da 1f 97 a4 09          CALL_2N         25e90 (#09)
1df43:  b3 ...                  PRINT_RET       "
You hear a splash from far down in the depths of the well."

Routine 1df68, 0 locals

1df69:  c1 8f 3a 01 01 00 74    JE              G2a,#0101 [FALSE] 1dfe2
1df70:  a9 30                   REMOVE_OBJ      G20
1df72:  4a 30 09 00 48          TEST_ATTR       G20,#09 [FALSE] 1dfbd
1df77:  cb 1f 01 5b 08          SET_ATTR        "kitchen well",#08
1df7c:  b3 ...                  PRINT_RET       "It plummets out of sight,
until even the light vanishes in the distance. This must be an extremely deep
well."
1dfbd:  c1 8f 30 01 49 80 08    JE              G20,#0149 [TRUE] 1dfca
1dfc4:  f9 27 37 1a 2f 02       CALL_VN         dc68 (G1f,#02)
1dfca:  da 2f 38 53 30          CALL_2N         e14c (G20)
1dfcf:  b3 ...                  PRINT_RET       " drops into the well-shaft."
1dfe2:  b1                      RFALSE

Routine 1dfe4, 0 locals

1dfe5:  c1 95 2a 29 26 2a 00 03 JE              G1a,#29,#26,#2a [FALSE] 1dfee
1dfed:  b1                      RFALSE
1dfee:  b3 ...                  PRINT_RET       "In this confined space there
is little room for action."

Routine 1e010, 0 locals

1e011:  c1 97 3a 2a 2b 00 ab    JE              G2a,#2a,#2b [FALSE] 1e0c1
1e018:  43 b0 07 00 85          JG              Ga0,#07 [FALSE] 1e0a0
1e01d:  b3 ...                  PRINT_RET       "Four men in druidic furs are
standing on the corners of the mosaic, in some kind of sinister conference.
This old villa must be some kind of rendezvous point. Between the men a bluish
stone rests on the mosaic floor."
1e0a0:  b3 ...                  PRINT_RET       "You see across the mosaic
floor of the moonlit atrium."
1e0c1:  b1                      RFALSE

Routine 1e0c4, 0 locals

1e0c5:  41 3a 26 00 48          JE              G2a,#26 [FALSE] 1e110
1e0ca:  c1 95 30 03 09 07 80 03 JE              G20,#03,#09,#07 [TRUE] 1e0d3
1e0d2:  b1                      RFALSE
1e0d3:  b2 ...                  PRINT           "You walk out into the
courtyard and are immediately set upon by guards, who drag you away.
"
1e10c:  8f 78 48                CALL_1N         1e120
1e10f:  b0                      RTRUE
1e110:  b1                      RFALSE

Routine 1e114, 0 locals

1e115:  41 b0 00 00 05          JE              Ga0,#00 [FALSE] 1e11d
1e11a:  0d b0 01                STORE           Ga0,#01
1e11d:  b1                      RFALSE

Routine 1e120, 2 locals

1e121:  42 b0 08 00 aa          JL              Ga0,#08 [FALSE] 1e1ce
1e126:  0d 1d 01                STORE           G0d,#01
1e129:  b3 ...                  PRINT_RET       "
The guardsmen grab your head by the chin and examine you, but take you for a
plain thief and immediately put you to the sword. A pity they did not realise
your importance, but then they are only guards, and besides they would probably
only have done you in more unpleasantly."
1e1ce:  b2 ...                  PRINT           "
Suddenly you are thrust before a druidical figure. He seems to recognise you,
and is troubled. Perhaps because of this, your life is saved and you are taken
away into custody, down in the valley among the army encampments.
"
1e25b:  f9 07 37 1a 01 61 04    CALL_VN         dc68 (#0161,#04)
1e262:  a2 19 01 c2             GET_CHILD       G09 -> L00 [TRUE] 1e266
1e266:  41 01 00 80 13          JE              L00,#00 [TRUE] 1e27c
1e26b:  a1 01 02 c2             GET_SIBLING     L00 -> L01 [TRUE] 1e26f
1e26f:  4a 01 1a 80 04          TEST_ATTR       L00,#1a [TRUE] 1e276
1e274:  a9 01                   REMOVE_OBJ      L00
1e276:  2d 01 02                STORE           L00,L01
1e279:  8c ff ec                JUMP            1e266
1e27c:  0d b0 00                STORE           Ga0,#00
1e27f:  da 0f 9d 20 01 60       CALL_2N         27480 (#0160)
1e285:  b0                      RTRUE

Routine 1e288, 0 locals

1e289:  b2 ...                  PRINT           "
Without warning a Saxon spy (or, as the guards would no doubt put it, another
Saxon spy) is thrown bodily into the tent, careering into the central pole and
slumping unconscious on the ground as a result. For a moment the whole tent
rocks with the force - the pole was nearly broken.
"
1e334:  cc 1f 01 61 13          CLEAR_ATTR      "tent pole",#13
1e339:  ce 0f 01 62 01 60       INSERT_OBJ      "unconscious Saxon spy","Rough
Tent"
1e33f:  f9 07 37 1a 01 62 05    CALL_VN         dc68 (#0162,#05)
1e346:  b1                      RFALSE

Routine 1e348, 0 locals

1e349:  41 3a 42 00 0f          JE              G2a,#42 [FALSE] 1e35b
1e34e:  b3 ...                  PRINT_RET       "It won't break."
1e35b:  c1 95 3a 3d 3c 3f 00 13 JE              G2a,#3d,#3c,#3f [FALSE] 1e374
1e363:  b3 ...                  PRINT_RET       "Its base is in the earth."
1e374:  b1                      RFALSE

Routine 1e378, 0 locals

1e379:  41 3a 13 00 90          JE              G2a,#13 [FALSE] 1e40c
1e37e:  4a 2f 08 00 03          TEST_ATTR       G1f,#08 [FALSE] 1e384
1e383:  b1                      RFALSE
1e384:  4b 2f 08                SET_ATTR        G1f,#08
1e387:  b2 ...                  PRINT           "As you uproot the tent-pole,
the whole tent collapses ignominiously, the animal hides falling about your
head. The hides are heavy and weigh you down, but you just manage to crawl
out...
"
1e3fe:  f9 07 37 1a 01 63 0a    CALL_VN         dc68 (#0163,#0a)
1e405:  da 0f 9d 20 01 63       CALL_2N         27480 (#0163)
1e40b:  b0                      RTRUE
1e40c:  b1                      RFALSE

Routine 1e410, 0 locals

1e411:  c1 8f 11 01 60 80 03    JE              G01,#0160 [TRUE] 1e419
1e418:  b1                      RFALSE
1e419:  c6 0f 01 62 01 60 00 5c JIN             "unconscious Saxon spy","Rough
Tent" [FALSE] 1e47b
1e421:  b2 ...                  PRINT           "
Men arrive to drag the Saxon spy away to some unguessable grisly fate. They
grimace at you as if to say, "You're next."
"
1e470:  89 01 62                REMOVE_OBJ      "unconscious Saxon spy"
1e473:  f9 07 37 1a 01 62 05    CALL_VN         dc68 (#0162,#05)
1e47a:  b0                      RTRUE
1e47b:  0d 1d 01                STORE           G0d,#01
1e47e:  b2 ...                  PRINT           "
The men arrive once more and this time they securely grab you by the arms. If
you were an anthropologist, you'd be fascinated by the ritual in which you are
bound up, then garotted with a cord and laid into a peat swamp. Instead, your
last thought is of the celebrated body they found when they drained the marshes
in 1974 to build a motorway service station."
1e557:  b1                      RFALSE

Routine 1e558, 0 locals

1e559:  41 3a 2b 00 37          JE              G2a,#2b [FALSE] 1e593
1e55e:  b3 ...                  PRINT_RET       "Not only are the guards better
at searching suspects than you, they also did so first."
1e593:  41 3a 53 00 03          JE              G2a,#53 [FALSE] 1e599
1e598:  b1                      RFALSE
1e599:  b1                      RFALSE

Routine 1e59c, 0 locals

1e59d:  41 3a 53 00 19          JE              G2a,#53 [FALSE] 1e5b9
1e5a2:  b3 ...                  PRINT_RET       "The spy is too deeply
unconscious."
1e5b9:  c1 95 3a 42 54 20 00 15 JE              G2a,#42,#54,#20 [FALSE] 1e5d4
1e5c1:  b3 ...                  PRINT_RET       "Not an act worthy of a
Meldrew."
1e5d4:  c1 85 3a 01 03 44 46 80 07
                               JE              G2a,#0103,#44,#46 [TRUE] 1e5e2
1e5dd:  41 3a 22 00 0d          JE              G2a,#22 [FALSE] 1e5ed
1e5e2:  b3 ...                  PRINT_RET       "He's asleep."
1e5ed:  b1                      RFALSE

Routine 1e5f0, 0 locals

1e5f1:  41 8c 07 80 03          JE              G7c,#07 [TRUE] 1e5f7
1e5f6:  b1                      RFALSE
1e5f7:  0d 1d 01                STORE           G0d,#01
1e5fa:  b3 ...                  PRINT_RET       "
It had to happen sooner or later. One of the druids looks round, sees you and
raises an instant alarm. It is absolutely hopeless and you are dragged away
screaming to your fate."

Routine 1e668, 0 locals

1e669:  ca 1f 01 59 1a 00 24    TEST_ATTR       "leather sandals",#1a [FALSE]
1e692
1e670:  b2 ...                  PRINT           "You cross the hot coals nimbly
in your sandals.
"
1e68f:  8b 01 64                RET             #0164
1e692:  b3 ...                  PRINT_RET       "Walk across those hot coals!
You must be joking."

Routine 1e6b4, 0 locals

1e6b5:  41 2a 49 00 17          JE              G1a,#49 [FALSE] 1e6cf
1e6ba:  b3 ...                  PRINT_RET       "In the dream you are not
drowsy."
1e6cf:  41 2a 52 00 38          JE              G1a,#52 [FALSE] 1e70a
1e6d4:  41 8c 0a 00 1c          JE              G7c,#0a [FALSE] 1e6f3
1e6d9:  b3 ...                  PRINT_RET       "It doesn't seem to be that
easy."
1e6f0:  8c 00 19                JUMP            1e70a
1e6f3:  b3 ...                  PRINT_RET       "You are unable to shake off
the dream."
1e70a:  41 8c 0a 00 2e          JE              G7c,#0a [FALSE] 1e73b
1e70f:  41 2a 42 00 29          JE              G1a,#42 [FALSE] 1e73b
1e714:  61 30 2f 00 24          JE              G20,G1f [FALSE] 1e73b
1e719:  b2 ...                  PRINT           "Ouch!  You wake up, smarting.
"
1e730:  da 1f 38 0a 0f          CALL_2N         e028 (#0f)
1e735:  da 1f 36 0d 29          CALL_2N         d834 (#29)
1e73a:  b0                      RTRUE
1e73b:  41 8c 0a 00 0b          JE              G7c,#0a [FALSE] 1e749
1e740:  c1 95 2a 3f 42 2a 00 03 JE              G1a,#3f,#42,#2a [FALSE] 1e749
1e748:  b1                      RFALSE
1e749:  c1 95 2a 26 13 1c 00 03 JE              G1a,#26,#13,#1c [FALSE] 1e752
1e751:  b1                      RFALSE
1e752:  c1 95 2a 29 18 43 00 03 JE              G1a,#29,#18,#43 [FALSE] 1e75b
1e75a:  b1                      RFALSE
1e75b:  b3 ...                  PRINT_RET       "You seem unable to concentrate
sufficiently."

Routine 1e778, 0 locals

1e779:  da 1f 97 a4 1d          CALL_2N         25e90 (#1d)
1e77e:  b3 ...                  PRINT_RET       "You drift in that direction,
but without gaining any ground."

Routine 1e7a4, 0 locals

1e7a5:  da 0f 38 0a 01 68       CALL_2N         e028 (#0168)
1e7ab:  da 0f 9d 20 01 69       CALL_2N         27480 (#0169)
1e7b1:  b0                      RTRUE

Routine 1e7b4, 0 locals

1e7b5:  b2 ...                  PRINT           "You pass uncomfortably
straight through the hide wall.
"
1e7d6:  8b 01 6a                RET             #016a

Routine 1e7dc, 0 locals

1e7dd:  b2 ...                  PRINT           "You pass uncomfortably back
through the hide wall.
"
1e7fc:  8b 01 69                RET             #0169

Routine 1e800, 0 locals

1e801:  c1 85 3a 01 03 46 44 00 1b
                               JE              G2a,#0103,#46,#44 [FALSE] 1e823
1e80a:  b3 ...                  PRINT_RET       "Your mouth is too furred up to
speak."
1e823:  b1                      RFALSE

Routine 1e824, 0 locals

1e825:  41 3a 13 00 e1          JE              G2a,#13 [FALSE] 1e909
1e82a:  ca 1f 01 6b 08 80 d9    TEST_ATTR       "Shrine of the Bear",#08 [TRUE]
1e908
1e831:  cb 1f 01 6b 08          SET_ATTR        "Shrine of the Bear",#08
1e836:  89 01 6e                REMOVE_OBJ      "Druid"
1e839:  b3 ...                  PRINT_RET       "The Druid catches sight of
your ghostly hand taking the mascot, and immediately begins her occultations,
cursing you and your ill-gotten gains. But she is unable to make contact with
you, and turns furiously to the tapestry, hissing "lagach" to the Bear. At once
a sudden swirl of wind seems to pull her into the rough cloth, dissolving her
to nothing."
1e908:  b1                      RFALSE
1e909:  b1                      RFALSE

Routine 1e90c, 0 locals

1e90d:  41 3a 22 00 1d          JE              G2a,#22 [FALSE] 1e92d
1e912:  b3 ...                  PRINT_RET       "Now that really would not be
very kind."
1e92d:  b1                      RFALSE

Routine 1e930, 1 local

1e931:  c6 2f 01 6d 19 80 03    JIN             "heavy iron mascot",G09 [TRUE]
1e939
1e938:  b1                      RFALSE
1e939:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
1e93d:  55 00 01 01             SUB             (SP)+,#01 -> L00
1e941:  e3 9b 2f 17 01          PUT_PROP        G1f,#17,L00
1e946:  41 01 00 02 61          JE              L00,#00 [FALSE] 1ebaa
1e94b:  0d 1d 01                STORE           G0d,#01
1e94e:  b2 ...                  PRINT           "
In an astonishing freak accident, "
1e967:  e7 7f 05 01             RANDOM          #05 -> L00
1e96b:  41 01 01 00 69          JE              L00,#01 [FALSE] 1e9d7
1e970:  b3 ...                  PRINT_RET       "a meteorite hurtles through
the Earth's atmosphere and then straight through your head. Anyone would think
you had a curse on you (anyone, that is, still able to think)."
1e9d7:  41 01 02 00 59          JE              L00,#02 [FALSE] 1ea33
1e9dc:  b3 ...                  PRINT_RET       "an earthquake demolishes
everything in the neighbourhood, swallowing you up into a chasm in the ground.
Anyone would think you had a curse on you."
1ea33:  41 01 03 00 5b          JE              L00,#03 [FALSE] 1ea91
1ea38:  b3 ...                  PRINT_RET       "a long-dormant volcano erupts
instantaneously below your feet. Anyone would think you had a curse on you
(anyone, that is, still standing)."
1ea91:  41 01 04 00 4d          JE              L00,#04 [FALSE] 1eae1
1ea96:  b3 ...                  PRINT_RET       "lightning abruptly strikes
into your body, making your hair stand on end. (Oh, and vapourising you
utterly, of course.)"
1eae1:  b3 ...                  PRINT_RET       "four hundred Spartan soldiers
are transported by some quantum-mechanical fluke from the Battle of Thermopylae
into your immediate vicinity. They are quite keen for someone to explain things
to them, but unfortunately most of the spears they were throwing came with
them; one of which struck straight through the mascot into your body."
1ebaa:  41 01 0a 00 23          JE              L00,#0a [FALSE] 1ebd0
1ebaf:  b3 ...                  PRINT_RET       "
You feel very nervous indeed, for some reason."
1ebd0:  41 01 07 00 3c          JE              L00,#07 [FALSE] 1ec0f
1ebd5:  46 19 2c 80 22          JIN             G09,"camp bed" [TRUE] 1ebfa
1ebda:  b3 ...                  PRINT_RET       "
You stub your toe painfully, and trip over."
1ebf7:  8c 00 17                JUMP            1ec0f
1ebfa:  b3 ...                  PRINT_RET       "
You feel bed-sores coming on."
1ec0f:  41 01 05 00 2b          JE              L00,#05 [FALSE] 1ec3d
1ec14:  b3 ...                  PRINT_RET       "
You scratch yourself, unable to get rid of an itching sensation."
1ec3d:  41 01 02 00 2d          JE              L00,#02 [FALSE] 1ec6d
1ec42:  b3 ...                  PRINT_RET       "
Something feels very wrong indeed. Your hand begins to burn.
"
1ec6d:  b1                      RFALSE

Routine 1ec70, 0 locals

1ec71:  c1 85 3a 01 03 46 44 00 25
                               JE              G2a,#0103,#46,#44 [FALSE] 1ec9d
1ec7a:  b3 ...                  PRINT_RET       "This is one of those dreams
where you find you cannot speak."
1ec9d:  b1                      RFALSE

Routine 1eca0, 0 locals

1eca1:  41 3a 29 00 40          JE              G2a,#29 [FALSE] 1ece4
1eca6:  da 1f 38 0a 0f          CALL_2N         e028 (#0f)
1ecab:  c6 0f 01 6d 01 68 00 1c JIN             "heavy iron mascot","ghost of
yourself" [FALSE] 1eccd
1ecb3:  ce 2f 01 6d 19          INSERT_OBJ      "heavy iron mascot",G09
1ecb8:  da 0f 37 47 01 6d       CALL_2N         dd1c (#016d)
1ecbe:  e3 17 01 6d 17 0f       PUT_PROP        "heavy iron mascot",#17,#0f
1ecc4:  da 1f 9d bb 15          CALL_2N         276ec (#15)
1ecc9:  55 17 32 17             SUB             G07,#32 -> G07
1eccd:  b3 ...                  PRINT_RET       "
You awaken, shivering with dread."
1ece4:  b1                      RFALSE

Routine 1ece8, 0 locals

1ece9:  da 0f 38 0a 01 68       CALL_2N         e028 (#0168)
1ecef:  da 0f 9d 20 01 71       CALL_2N         27480 (#0171)
1ecf5:  b0                      RTRUE

Routine 1ecf8, 0 locals

1ecf9:  95 b1                   INC             Ga1
1ecfb:  41 b1 02 80 03          JE              Ga1,#02 [TRUE] 1ed01
1ed00:  b1                      RFALSE
1ed01:  ce 0f 01 73 01 71       INSERT_OBJ      "flurries of green
luminescence","Melancholy Dream"
1ed07:  e3 13 01 71 07 01 74    PUT_PROP        "Melancholy Dream",#07,#0174
1ed0e:  e3 13 01 71 0e 01 74    PUT_PROP        "Melancholy Dream",#0e,#0174
1ed15:  b3 ...                  PRINT_RET       "
A ghostly apparition of a venerable man hazes into view. He raises his mahogany
staff and strikes it (silently) on the ground, then points it at the walls, and
suddenly a flurry of green luminescence chases around you!

He fades away again, mumbling something incoherent."

Routine 1edc4, 0 locals

1edc5:  b3 ...                  PRINT_RET       "The metal barrier is
indistinct, on the edge of your consciousness, and you can't get close. However
familiar it seems."

Routine 1ee10, 0 locals

1ee11:  c1 95 3a 13 14 59 00 3f JE              G2a,#13,#14,#59 [FALSE] 1ee56
1ee19:  b3 ...                  PRINT_RET       "You bat at the flurries with
your hand, but they're just green light (with the tiniest mosquito-sting)."
1ee56:  b1                      RFALSE

Routine 1ee58, 0 locals

1ee59:  b2 ...                  PRINT           "Your dream eye is caught by...

"
1ee72:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1ee76:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1ee7a:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1ee7f:  b2 ...                  PRINT           "       (|/
   #   -o-  >>>
       /|)
"
1eeb8:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1eebc:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
1eec2:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1eec7:  b3 ...                  PRINT_RET       "
Confused and hazy, you feel you can understand hieroglyphics, - or hasn't that
happened yet?"

Routine 1ef04, 0 locals

1ef05:  41 3a 3f 00 c3          JE              G2a,#3f [FALSE] 1efcb
1ef0a:  4a 2f 08 00 1d          TEST_ATTR       G1f,#08 [FALSE] 1ef2a
1ef0f:  b3 ...                  PRINT_RET       "Your hands seem unable to
touch it again."
1ef2a:  4b 2f 08                SET_ATTR        G1f,#08
1ef2d:  0b 7d 0e                SET_ATTR        "sandstone recess",#0e
1ef30:  b3 ...                  PRINT_RET       "You try turning the wheel, but
it moves only infinitesimally slowly. The door begins to raise the tiniest
fraction, and a few grains of sand cascade in slow motion, rattling horribly
against each other...

It will take forever, and the air is running out..."
1efcb:  b1                      RFALSE

Routine 1efcc, 0 locals

1efcd:  0d a8 07                STORE           G98,#07
1efd0:  0d a9 05                STORE           G99,#05
1efd3:  b1                      RFALSE

Routine 1efd4, 1 local

1efd5:  41 3a 56 00 fc          JE              G2a,#56 [FALSE] 1f0d4
1efda:  c1 8f 11 01 7f 80 07    JE              G01,#017f [TRUE] 1efe6
1efe1:  b3 ...                  PRINT_RET       "Ugh."
1efe6:  d1 1f 01 7f 18 00       GET_PROP        "Catacombs",#18 -> -(SP)
1efec:  54 00 01 01             ADD             (SP)+,#01 -> L00
1eff0:  e3 1b 01 7f 18 01       PUT_PROP        "Catacombs",#18,L00
1eff6:  41 01 01 00 41          JE              L00,#01 [FALSE] 1f03a
1effb:  b3 ...                  PRINT_RET       "Something like... perhaps, air
after a thunderstorm... but no, you still can't be sure what it is."
1f03a:  41 01 02 00 88          JE              L00,#02 [FALSE] 1f0c5
1f03f:  ce 0f 01 80 01 7f       INSERT_OBJ      "aluminium
staircase","Catacombs"
1f045:  e3 13 01 7f 0e 01 86    PUT_PROP        "Catacombs",#0e,#0186
1f04c:  0d b2 01                STORE           Ga2,#01
1f04f:  da 1f 9d bb 0e          CALL_2N         276ec (#0e)
1f054:  b3 ...                  PRINT_RET       "Ozone!  That's what it's
called. Funny sort of odour for a cave - especially since, on investigating
further, you find that it's drifting up from a concealed aluminium staircase."
1f0c5:  b3 ...                  PRINT_RET       "Definitely ozone."
1f0d4:  b1                      RFALSE

Routine 1f0d8, 0 locals

1f0d9:  c1 97 3a 4b 15 00 09    JE              G2a,#4b,#15 [FALSE] 1f0e7
1f0e0:  f9 17 36 0d 26 0b       CALL_VN         d834 (#26,#0b)
1f0e6:  b0                      RTRUE
1f0e7:  b1                      RFALSE

Routine 1f0e8, 4 locals

1f0e9:  d0 2f 62 cb 01 03       LOADB           #62cb,L00 -> L02
1f0ef:  d0 2f 62 cb 02 04       LOADB           #62cb,L01 -> L03
1f0f5:  e2 2b 62 cb 02 03       STOREB          #62cb,L01,L02
1f0fb:  e2 2b 62 cb 01 04       STOREB          #62cb,L00,L03
1f101:  b0                      RTRUE

Routine 1f104, 2 locals

1f105:  55 01 01 00             SUB             L00,#01 -> -(SP)
1f109:  d0 2f 62 cb 00 02       LOADB           #62cb,(SP)+ -> L01
1f10f:  41 02 00 00 06          JE              L01,#00 [FALSE] 1f118
1f114:  b2 ...                  PRINT           ". "
1f117:  b1                      RFALSE
1f118:  54 02 41 00             ADD             L01,#41 -> -(SP)
1f11c:  55 00 01 02             SUB             (SP)+,#01 -> L01
1f120:  e5 bf 02                PRINT_CHAR      L01
1f123:  b2 ...                  PRINT           " "
1f126:  b0                      RTRUE

Routine 1f128, 0 locals

1f129:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1f12d:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
1f131:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1f136:  b2 ...                  PRINT           "     "
1f13b:  da 1f 7c 41 01          CALL_2N         1f104 (#01)
1f140:  da 1f 7c 41 02          CALL_2N         1f104 (#02)
1f145:  da 1f 7c 41 03          CALL_2N         1f104 (#03)
1f14a:  b2 ...                  PRINT           "
      + +
"
1f159:  b2 ...                  PRINT           "     "
1f15e:  da 1f 7c 41 04          CALL_2N         1f104 (#04)
1f163:  da 1f 7c 41 05          CALL_2N         1f104 (#05)
1f168:  da 1f 7c 41 06          CALL_2N         1f104 (#06)
1f16d:  b2 ...                  PRINT           "
      + +
"
1f17c:  b2 ...                  PRINT           "     "
1f181:  da 1f 7c 41 07          CALL_2N         1f104 (#07)
1f186:  da 1f 7c 41 08          CALL_2N         1f104 (#08)
1f18b:  da 1f 7c 41 09          CALL_2N         1f104 (#09)
1f190:  b2 ...                  PRINT           "
      + +
"
1f19f:  b2 ...                  PRINT           "     "
1f1a4:  da 1f 7c 41 0a          CALL_2N         1f104 (#0a)
1f1a9:  da 1f 7c 41 0b          CALL_2N         1f104 (#0b)
1f1ae:  da 1f 7c 41 0c          CALL_2N         1f104 (#0c)
1f1b3:  b2 ...                  PRINT           "
      + +
"
1f1c2:  b2 ...                  PRINT           "     "
1f1c7:  da 1f 7c 41 0d          CALL_2N         1f104 (#0d)
1f1cc:  da 1f 7c 41 0e          CALL_2N         1f104 (#0e)
1f1d1:  da 1f 7c 41 0f          CALL_2N         1f104 (#0f)
1f1d6:  bb                      NEW_LINE
1f1d7:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
1f1db:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
1f1e1:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
1f1e6:  b0                      RTRUE

Routine 1f1e8, 0 locals

1f1e9:  51 2f 18 00             GET_PROP        G1f,#18 -> -(SP)
1f1ed:  41 00 03 00 14          JE              (SP)+,#03 [FALSE] 1f204
1f1f2:  b2 ...                  PRINT           "Contraption Reflection"
1f201:  8c 00 0f                JUMP            1f211
1f204:  b2 ...                  PRINT           "Contraption Room"
1f211:  b0                      RTRUE

Routine 1f214, 0 locals

1f215:  51 2f 18 00             GET_PROP        G1f,#18 -> -(SP)
1f219:  41 00 03 00 2d          JE              (SP)+,#03 [FALSE] 1f249
1f21e:  b3 ...                  PRINT_RET       "You bump into an invisible
barrier - perhaps the edge of the reflection."
1f249:  8b 01 7f                RET             #017f

Routine 1f24c, 0 locals

1f24d:  c1 97 3a 26 15 00 a5    JE              G2a,#26,#15 [FALSE] 1f2f7
1f254:  c1 94 30 02 03 01 82 00 9b
                               JE              G20,#02,#03,#0182 [FALSE] 1f2f6
1f25d:  b2 ...                  PRINT           "
Walking through the mirror is a wrench, but leaves you somewhere... almost
exactly the same...
"
1f29c:  0d 90 01                STORE           G80,#01
1f29f:  da 1f 9d bb 0f          CALL_2N         276ec (#0f)
1f2a4:  41 30 02 00 1b          JE              G20,#02 [FALSE] 1f2c2
1f2a9:  e3 93 2f 06 01 82       PUT_PROP        G1f,#06,#0182
1f2af:  e3 97 2f 05 00          PUT_PROP        G1f,#05,#00
1f2b4:  e3 17 01 82 08 06       PUT_PROP        "metal wall",#08,#06
1f2ba:  e3 97 2f 18 03          PUT_PROP        G1f,#18,#03
1f2bf:  8c 00 18                JUMP            1f2d8
1f2c2:  e3 93 2f 05 01 82       PUT_PROP        G1f,#05,#0182
1f2c8:  e3 97 2f 06 00          PUT_PROP        G1f,#06,#00
1f2cd:  e3 17 01 82 08 05       PUT_PROP        "metal wall",#08,#05
1f2d3:  e3 97 2f 18 02          PUT_PROP        G1f,#18,#02
1f2d8:  f9 17 7c 3a 00 02       CALL_VN         1f0e8 (#00,#02)
1f2de:  f9 17 7c 3a 03 05       CALL_VN         1f0e8 (#03,#05)
1f2e4:  f9 17 7c 3a 06 08       CALL_VN         1f0e8 (#06,#08)
1f2ea:  f9 17 7c 3a 09 0b       CALL_VN         1f0e8 (#09,#0b)
1f2f0:  f9 17 7c 3a 0c 0e       CALL_VN         1f0e8 (#0c,#0e)
1f2f6:  b1                      RFALSE
1f2f7:  41 3a 29 00 5d          JE              G2a,#29 [FALSE] 1f357
1f2fc:  4a 2f 08 00 2a          TEST_ATTR       G1f,#08 [FALSE] 1f329
1f301:  b2 ...                  PRINT           "
The lower basket contains a cannonball, and the upper is empty.
"
1f328:  b1                      RFALSE
1f329:  92 3d 00 c2             GET_CHILD       "hanging cord" -> -(SP) [TRUE]
1f32d
1f32d:  41 00 00 80 27          JE              (SP)+,#00 [TRUE] 1f357
1f332:  b2 ...                  PRINT           "
The lower basket contains "
1f343:  d4 0f 00 08 00 40 00    ADD             #0008,#0040 -> -(SP)
1f34a:  92 3d 00 c2             GET_CHILD       "hanging cord" -> -(SP) [TRUE]
1f34e
1f34e:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
1f354:  b3 ...                  PRINT_RET       "."
1f357:  b1                      RFALSE

Routine 1f358, 0 locals

1f359:  b2 ...                  PRINT           "The whole "
1f360:  d1 1f 01 81 18 00       GET_PROP        "CR",#18 -> -(SP)
1f366:  41 00 02 00 0a          JE              (SP)+,#02 [FALSE] 1f373
1f36b:  b2 ...                  PRINT           "north"
1f370:  8c 00 07                JUMP            1f378
1f373:  b2 ...                  PRINT           "south"
1f378:  b3 ...                  PRINT_RET       " wall is occupied by a bronze
mirror, reflecting the room."

Routine 1f3a0, 0 locals

1f3a1:  41 3a 5a 00 2d          JE              G2a,#5a [FALSE] 1f3d1
1f3a6:  b3 ...                  PRINT_RET       "You polish the metal a little,
but there's far too much to do by hand."
1f3d1:  b1                      RFALSE

Routine 1f3d4, 0 locals

1f3d5:  b2 ...                  PRINT           "Amid the glass wall is an iron
panel divided into a three-by-five grid.

Behind the glass is a kind of see-saw of two leather baskets at opposite ends
of an oak pivot. "
1f442:  b2 ...                  PRINT           "In one corner of the roof,
above the far end of the see-saw, is a "
1f469:  c6 1f 01 1f 00 80 24    JIN             "ancient well",#00 [TRUE] 1f492
1f470:  b2 ...                  PRINT           "hole through which dim natural
light emanates.

"
1f48f:  8c 00 0d                JUMP            1f49d
1f492:  b2 ...                  PRINT           "dark hole.

"
1f49d:  b2 ...                  PRINT           "Projecting out of the back of
the panel mechanism at the near end is a metal hand, which "
1f4d0:  ca 1f 01 81 08 00 0f    TEST_ATTR       "CR",#08 [FALSE] 1f4e4
1f4d7:  b3 ...                  PRINT_RET       "grasps empty air."
1f4e4:  b3 ...                  PRINT_RET       "grasps a cannonball in
mid-air."

Routine 1f4fc, 0 locals

1f4fd:  b2 ...                  PRINT           "There are fourteen pieces in
the grid, and one gap. The pieces have letters upon them "
1f530:  d1 1f 01 81 18 00       GET_PROP        "CR",#18 -> -(SP)
1f536:  41 00 03 00 13          JE              (SP)+,#03 [FALSE] 1f54c
1f53b:  b2 ...                  PRINT           "(in reflected script) "
1f54c:  b2 ...                  PRINT           "and are arranged as follows:

"
1f561:  8f 7c 4a                CALL_1N         1f128
1f564:  b3 ...                  PRINT_RET       "
[Try "slide b", for instance, to move a piece into the gap.]"

Routine 1f594, 0 locals

1f595:  41 2a 2a 80 19          JE              G1a,#2a [TRUE] 1f5b1
1f59a:  b3 ...                  PRINT_RET       "It is out of reach, beyond the
glass."
1f5b1:  b1                      RFALSE

Routine 1f5b4, 3 locals
    Action routine for:
        "slide TEXT [parse 6]"

1f5b5:  c1 8f 11 01 81 80 19    JE              G01,#0181 [TRUE] 1f5d3
1f5bc:  b3 ...                  PRINT_RET       ""Slide" is inappropriate
here."
1f5d3:  41 30 00 00 11          JE              G20,#00 [FALSE] 1f5e7
1f5d8:  b3 ...                  PRINT_RET       "What piece was that?"
1f5e7:  0d 01 00                STORE           L00,#00
1f5ea:  43 01 0e 80 72          JG              L00,#0e [TRUE] 1f65f
1f5ef:  d0 2f 62 cb 01 00       LOADB           #62cb,L00 -> -(SP)
1f5f5:  61 00 30 00 62          JE              (SP)+,G20 [FALSE] 1f65a
1f5fa:  42 01 03 80 14          JL              L00,#03 [TRUE] 1f611
1f5ff:  55 01 03 02             SUB             L00,#03 -> L01
1f603:  d0 2f 62 cb 02 00       LOADB           #62cb,L01 -> -(SP)
1f609:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 1f611
1f60e:  8c 00 7d                JUMP            1f68c
1f611:  42 01 0c 00 14          JL              L00,#0c [FALSE] 1f628
1f616:  54 01 03 02             ADD             L00,#03 -> L01
1f61a:  d0 2f 62 cb 02 00       LOADB           #62cb,L01 -> -(SP)
1f620:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 1f628
1f625:  8c 00 66                JUMP            1f68c
1f628:  58 01 03 03             MOD             L00,#03 -> L02
1f62c:  41 03 00 80 14          JE              L02,#00 [TRUE] 1f643
1f631:  55 01 01 02             SUB             L00,#01 -> L01
1f635:  d0 2f 62 cb 02 00       LOADB           #62cb,L01 -> -(SP)
1f63b:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 1f643
1f640:  8c 00 4b                JUMP            1f68c
1f643:  41 03 02 80 14          JE              L02,#02 [TRUE] 1f65a
1f648:  54 01 01 02             ADD             L00,#01 -> L01
1f64c:  d0 2f 62 cb 02 00       LOADB           #62cb,L01 -> -(SP)
1f652:  41 00 00 00 05          JE              (SP)+,#00 [FALSE] 1f65a
1f657:  8c 00 34                JUMP            1f68c
1f65a:  95 01                   INC             L00
1f65c:  8c ff 8d                JUMP            1f5ea
1f65f:  b2 ...                  PRINT           "Unfortunately, '"
1f66c:  54 30 41 00             ADD             G20,#41 -> -(SP)
1f670:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
1f674:  e5 bf 00                PRINT_CHAR      (SP)+
1f677:  b2 ...                  PRINT           "' is not adjacent to the gap."
1f68a:  bb                      NEW_LINE
1f68b:  b0                      RTRUE
1f68c:  95 b3                   INC             Ga3
1f68e:  41 b3 08 00 07          JE              Ga3,#08 [FALSE] 1f698
1f693:  da 1f 97 a4 24          CALL_2N         25e90 (#24)
1f698:  41 b3 05 00 07          JE              Ga3,#05 [FALSE] 1f6a2
1f69d:  da 1f 97 a4 2a          CALL_2N         25e90 (#2a)
1f6a2:  d0 2f 62 cb 01 03       LOADB           #62cb,L00 -> L02
1f6a8:  e2 2b 62 cb 02 03       STOREB          #62cb,L01,L02
1f6ae:  e2 27 62 cb 01 00       STOREB          #62cb,L00,#00
1f6b4:  b2 ...                  PRINT           "You slide '"
1f6bd:  54 30 41 00             ADD             G20,#41 -> -(SP)
1f6c1:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
1f6c5:  e5 bf 00                PRINT_CHAR      (SP)+
1f6c8:  b2 ...                  PRINT           "' into the gap, leaving the
grid looking like:

"
1f6e7:  8f 7c 4a                CALL_1N         1f128
1f6ea:  0d 01 00                STORE           L00,#00
1f6ed:  43 01 0e 80 19          JG              L00,#0e [TRUE] 1f709
1f6f2:  d0 2f 62 da 01 00       LOADB           #62da,L00 -> -(SP)
1f6f8:  d0 2f 62 cb 01 00       LOADB           #62cb,L00 -> -(SP)
1f6fe:  61 00 00 80 03          JE              (SP)+,(SP)+ [TRUE] 1f704
1f703:  b1                      RFALSE
1f704:  95 01                   INC             L00
1f706:  8c ff e6                JUMP            1f6ed
1f709:  da 1f 9d bb 10          CALL_2N         276ec (#10)
1f70e:  b2 ...                  PRINT           "
There is a click from the mechanism. Pulleys pull. Cogs spin. Little bits of
string run.
"
1f749:  ca 1f 01 81 08 81 bd    TEST_ATTR       "CR",#08 [TRUE] 1f90b
1f750:  cb 1f 01 81 08          SET_ATTR        "CR",#08
1f755:  b2 ...                  PRINT           "
The cannonball drops out of the metal hand, and falls into the higher basket,
which plunges down, hurling the other basket upwards, "
1f7a0:  92 3d 02 c2             GET_CHILD       "hanging cord" -> L01 [TRUE]
1f7a4
1f7a4:  41 02 00 00 15          JE              L01,#00 [FALSE] 1f7bc
1f7a9:  b3 ...                  PRINT_RET       "but it must have been empty."
1f7bc:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] 1f7c0
1f7c0:  b2 ...                  PRINT           "and projecting "
1f7c9:  41 02 00 00 0c          JE              L01,#00 [FALSE] 1f7d8
1f7ce:  b2 ...                  PRINT           "something"
1f7d5:  8c 00 09                JUMP            1f7df
1f7d8:  b2 ...                  PRINT           "some things"
1f7df:  b2 ...                  PRINT           " up the hole in the corner.
"
1f7f0:  ca 1f 01 81 09 00 23    TEST_ATTR       "CR",#09 [FALSE] 1f818
1f7f7:  92 3d 02 c2             GET_CHILD       "hanging cord" -> L01 [TRUE]
1f7fb
1f7fb:  41 02 00 80 11          JE              L01,#00 [TRUE] 1f80f
1f800:  a1 02 01 c2             GET_SIBLING     L01 -> L00 [TRUE] 1f804
1f804:  ce 8f 02 01 1d          INSERT_OBJ      L01,"Lawn Ornaments"
1f809:  2d 02 01                STORE           L01,L00
1f80c:  8c ff ee                JUMP            1f7fb
1f80f:  ce 0f 01 1f 01 1d       INSERT_OBJ      "ancient well","Lawn Ornaments"
1f815:  8c 00 e0                JUMP            1f8f6
1f818:  b2 ...                  PRINT           "
A moment later, however, there is a distant but loud thump. A moment after
that, something plummets back down out of the hole (in a shower of thin white
plaster) and into the higher basket, which (owing to fantastic machinery)
wrenches down again, hurling the cannonball in the other end up into the air.

The metal hand catches the cannonball beautifully.
"
1f8f1:  cc 1f 01 81 08          CLEAR_ATTR      "CR",#08
1f8f6:  83 01 89 00             GET_PARENT      "glowing golden orb" -> -(SP)
1f8fa:  41 00 3d 00 0b          JE              (SP)+,#3d [FALSE] 1f908
1f8ff:  ce 0f 01 84 01 81       INSERT_OBJ      "glowing golden orb","CR"
1f905:  8c 00 05                JUMP            1f90b
1f908:  89 01 84                REMOVE_OBJ      "glowing golden orb"
1f90b:  b0                      RTRUE

Routine 1f90c, 0 locals

1f90d:  41 3a 40 00 23          JE              G2a,#40 [FALSE] 1f933
1f912:  b3 ...                  PRINT_RET       "Click-clunk!  The world looks
precisely the same."
1f933:  41 3a 31 00 29          JE              G2a,#31 [FALSE] 1f95f
1f938:  b3 ...                  PRINT_RET       "Clunk-click!  Probably nothing
very much has changed."
1f95f:  b1                      RFALSE

Routine 1f960, 0 locals

1f961:  41 3a 3f 00 d1          JE              G2a,#3f [FALSE] 1fa35
1f966:  41 b4 00 00 51          JE              Ga4,#00 [FALSE] 1f9ba
1f96b:  0d b4 01                STORE           Ga4,#01
1f96e:  da 1f 97 a4 0c          CALL_2N         25e90 (#0c)
1f973:  b3 ...                  PRINT_RET       "Is it really wise to go
meddling with things here?  Well, only one way to find out. Don't expect a
second warning!"
1f9ba:  0d 1d 04                STORE           G0d,#04
1f9bd:  cd 4f 17 ff 9d          STORE           G07,#ff9d
1f9c2:  b3 ...                  PRINT_RET       "Mmm. On the whole, it's
probably best not to alter one of the fundamental constants of the physical
universe while still inside it. On the bright side, for once you are unlikely
to get the blame."
1fa35:  b1                      RFALSE

Routine 1fa38, 0 locals

1fa39:  41 3a 5a 00 a3          JE              G2a,#5a [FALSE] 1fadf
1fa3e:  4a 2f 08 00 11          TEST_ATTR       G1f,#08 [FALSE] 1fa52
1fa43:  b3 ...                  PRINT_RET       "It shines already!"
1fa52:  b2 ...                  PRINT           "Bewilderingly, the
condensation dissolves your hand away, and the water rushes up over your body
as if it were blotting paper. You feel nothing except disorientation, but your
confusion soon resolves to...
"
1facd:  ce 2f 01 89 11          INSERT_OBJ      "glowing golden orb",G01
1fad2:  a3 19 9a                GET_PARENT      G09 -> G8a
1fad5:  2d 99 11                STORE           G89,G01
1fad8:  da 0f 9d 20 01 8a       CALL_2N         27480 (#018a)
1fade:  b0                      RTRUE
1fadf:  b1                      RFALSE

Routine 1fae0, 0 locals

1fae1:  41 3a 76 00 27          JE              G2a,#76 [FALSE] 1fb0b
1fae6:  b3 ...                  PRINT_RET       "The sphere rings with a hollow
noise, but the rod charges up."
1fb0b:  b1                      RFALSE

Routine 1fb0c, 2 locals

1fb0d:  d1 1f 01 8a 17 00       GET_PROP        "Inside the Orb",#17 -> -(SP)
1fb13:  54 00 01 01             ADD             (SP)+,#01 -> L00
1fb17:  e3 1b 01 8a 17 01       PUT_PROP        "Inside the Orb",#17,L00
1fb1d:  41 01 01 00 03          JE              L00,#01 [FALSE] 1fb23
1fb22:  b0                      RTRUE
1fb23:  41 01 02 00 3b          JE              L00,#02 [FALSE] 1fb61
1fb28:  b2 ...                  PRINT           "
The sphere rotates, giving you a fresh view of the images: stylised Kings and
Queens?
"
1fb61:  41 01 04 00 31          JE              L00,#04 [FALSE] 1fb95
1fb66:  b2 ...                  PRINT           "
The sphere rotates, giving you another look: humble tokens of warriors.
"
1fb95:  41 01 06 00 3b          JE              L00,#06 [FALSE] 1fbd3
1fb9a:  b2 ...                  PRINT           "
The sphere rotates, giving you another look: carved horse-heads and Bishops'
mitres.
"
1fbd3:  41 01 08 00 4d          JE              L00,#08 [FALSE] 1fc23
1fbd8:  b2 ...                  PRINT           "
(The sphere rotates.)  It's a chess game!  Now you understand. But you still
can't puzzle out the actual solution.
"
1fc23:  41 01 0a 00 54          JE              L00,#0a [FALSE] 1fc7a
1fc28:  b2 ...                  PRINT           "
(The sphere rotates.)  You have some impression that White is trying to make an
attack, having plenty of spare pieces.
"
1fc75:  da 1f 97 a4 1a          CALL_2N         25e90 (#1a)
1fc7a:  41 01 0c 00 3f          JE              L00,#0c [FALSE] 1fcbc
1fc7f:  b2 ...                  PRINT           "
(The sphere rotates.)  Seeing the board from Black's point of view, the defence
looks solid.
"
1fcbc:  41 01 0e 00 79          JE              L00,#0e [FALSE] 1fd38
1fcc1:  b2 ...                  PRINT           "
(The sphere rotates.)  Back to White's side. You definitely need to smash
through somehow, all that cautious exchanging of pieces hasn't worked. If you
want White to win, that is.
"
1fd38:  58 01 04 02             MOD             L00,#04 -> L01
1fd3c:  41 02 00 00 2f          JE              L01,#00 [FALSE] 1fd6e
1fd41:  cc 1f 01 8a 08          CLEAR_ATTR      "Inside the Orb",#08
1fd46:  43 01 0c 00 25          JG              L00,#0c [FALSE] 1fd6e
1fd4b:  b3 ...                  PRINT_RET       "
(The sphere rotates.)  Black still looks safe."
1fd6e:  41 02 02 00 33          JE              L01,#02 [FALSE] 1fda4
1fd73:  cb 1f 01 8a 08          SET_ATTR        "Inside the Orb",#08
1fd78:  43 01 0e 00 29          JG              L00,#0e [FALSE] 1fda4
1fd7d:  b3 ...                  PRINT_RET       "
(The sphere rotates.)  White must break out somehow."
1fda4:  b1                      RFALSE

Routine 1fda8, 0 locals

1fda9:  41 3a 5d 00 19          JE              G2a,#5d [FALSE] 1fdc5
1fdae:  b3 ...                  PRINT_RET       "Drink warm salty water?  No."
1fdc5:  41 3a 4e 00 23          JE              G2a,#4e [FALSE] 1fdeb
1fdca:  b3 ...                  PRINT_RET       "The waters are deceptively
treacherous. Best not."
1fdeb:  b1                      RFALSE

Routine 1fdec, 0 locals

1fded:  da 2f 37 47 2f          CALL_2N         dd1c (G1f)
1fdf2:  26 3a 2f 00 08          JIN             "Austin",G1f [FALSE] 1fdfd
1fdf7:  da 0f 37 47 01 b3       CALL_2N         dd1c (#01b3)
1fdfd:  b1                      RFALSE

Routine 1fe00, 1 local

1fe01:  41 8c 0b 80 03          JE              G7c,#0b [TRUE] 1fe07
1fe06:  b1                      RFALSE
1fe07:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
1fe0b:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
1fe0f:  58 00 0c 00             MOD             (SP)+,#0c -> -(SP)
1fe13:  e3 9b 2f 17 00          PUT_PROP        G1f,#17,(SP)+
1fe18:  c1 80 11 01 95 01 b3 01 b1 80 03
                               JE              G01,#0195,#01b3,#01b1 [TRUE]
1fe24
1fe23:  b1                      RFALSE
1fe24:  d1 1f 01 8c 17 01       GET_PROP        "Causeway",#17 -> L00
1fe2a:  c1 8f 11 01 b3 00 04    JE              G01,#01b3 [FALSE] 1fe33
1fe31:  96 01                   DEC             L00
1fe33:  c1 8f 11 01 b1 00 06    JE              G01,#01b1 [FALSE] 1fe3e
1fe3a:  55 01 02 01             SUB             L00,#02 -> L00
1fe3e:  42 01 04 00 45          JL              L00,#04 [FALSE] 1fe86
1fe43:  b3 ...                  PRINT_RET       "
A lively, very noisy procession pushes through here, and some spectacular
floats are approaching fast."
1fe86:  41 01 04 00 5d          JE              L00,#04 [FALSE] 1fee6
1fe8b:  b3 ...                  PRINT_RET       "
The Morning Star leads an enormous procession for the festival of Dionysus,
which throngs with officials dressed as satyrs, actors and townswomen."
1fee6:  41 01 05 00 55          JE              L00,#05 [FALSE] 1ff3e
1feeb:  b3 ...                  PRINT_RET       "
Behind the front are huge statues on mechanical floats, flanked by giant
overflowing pitchers of wine. And the animals are coming!"
1ff3e:  41 01 06 00 73          JE              L00,#06 [FALSE] 1ffb4
1ff43:  b3 ...                  PRINT_RET       "
Yes, 2000 oxen dressed in gold, as many dogs, and the giraffes, the antelopes,
the gnus, parrots, elephants, wildebeest... ostriches pulling carts, a white
bear..."
1ffb4:  41 01 07 00 ab          JE              L00,#07 [FALSE] 20062
1ffb9:  b3 ...                  PRINT_RET       "
Next the dancers, in a great masque of the life of Alexander the Great, his
travels, conquests, founding of the City, and so on. The delicate matter of how
exactly his general Ptolemy took over is omitted, since Ptolemy's son Ptolemy
II is now very much in charge."
20062:  41 01 08 00 83          JE              L00,#08 [FALSE] 200e8
20067:  b3 ...                  PRINT_RET       "
The centrepiece of the procession: an enormous gold ribboned phallus, two
hundred feet long and with a giant star on the end. Inexplicably, you are the
only person present who feels this to be in doubtful taste."
200e8:  41 01 09 00 69          JE              L00,#09 [FALSE] 20154
200ed:  b3 ...                  PRINT_RET       "
A procession of women follows next, each in the national dress of an allied
city state, from all over the Hellenistic world, North Africa to Sicily to
Asia."
20154:  41 01 0a 00 57          JE              L00,#0a [FALSE] 201ae
20159:  b3 ...                  PRINT_RET       "
The procession ends as it began, with a great Evening Star, before falling into
a shambolic crowd of revellers, drunken and maudlin."
201ae:  43 01 0a 00 1f          JG              L00,#0a [FALSE] 201d0
201b3:  b3 ...                  PRINT_RET       "
The procession looks like running on forever."
201d0:  b1                      RFALSE

Routine 201d4, 0 locals

201d5:  e7 7f 05 00             RANDOM          #05 -> -(SP)
201d9:  41 00 01 80 39          JE              (SP)+,#01 [TRUE] 20215
201de:  b3 ...                  PRINT_RET       "
Down below, a wave splashes against the sea front, briefly washing up under the
grating."
20215:  b1                      RFALSE

Routine 20218, 0 locals

20219:  e7 7f 05 00             RANDOM          #05 -> -(SP)
2021d:  41 00 01 80 03          JE              (SP)+,#01 [TRUE] 20223
20222:  b1                      RFALSE
20223:  0a c9 08 00 b6          TEST_ATTR       "smooth round stone",#08
[FALSE] 202dc
20228:  da 1f 9d bb 25          CALL_2N         276ec (#25)
2022d:  ce 4f c9 01 bd          INSERT_OBJ      "smooth round
stone","Warehouses and Port"
20232:  ce 0f 01 8f 01 bd       INSERT_OBJ      "rusty iron key","Warehouses
and Port"
20238:  0c c9 08                CLEAR_ATTR      "smooth round stone",#08
2023b:  0c c9 0c                CLEAR_ATTR      "smooth round stone",#0c
2023e:  0c c9 02                CLEAR_ATTR      "smooth round stone",#02
20241:  cb 1f 01 8f 08          SET_ATTR        "rusty iron key",#08
20246:  e3 13 01 8f 11 e1 a8    PUT_PROP        "rusty iron key",#11,S747
2024d:  e3 53 c9 11 e1 b0       PUT_PROP        "smooth round stone",#11,S748
20253:  c1 8f 11 01 8d 00 81    JE              G01,#018d [FALSE] 202d9
2025a:  b3 ...                  PRINT_RET       "
A wave splashes up under the grating, throwing up the strange stone, which
bounces back off the grating and washes away down the passage out of sight.

Well, you didn't think it was going to be that easy, did you?
"
202d9:  8c 00 07                JUMP            202e1
202dc:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
202e1:  b1                      RFALSE

Routine 202e4, 0 locals

202e5:  c1 8f 3a 01 01 00 ed    JE              G2a,#0101 [FALSE] 203d7
202ec:  61 30 19 00 17          JE              G20,G09 [FALSE] 20306
202f1:  b3 ...                  PRINT_RET       "The bars are far too close
together."
20306:  41 30 c9 00 81          JE              G20,#c9 [FALSE] 2038a
2030b:  ce 8f 30 01 8d          INSERT_OBJ      G20,"Island of Pharos"
20310:  0b c9 08                SET_ATTR        "smooth round stone",#08
20313:  0b c9 02                SET_ATTR        "smooth round stone",#02
20316:  da 0f 37 47 01 8d       CALL_2N         dd1c (#018d)
2031c:  e3 13 01 8f 11 e1 ce    PUT_PROP        "rusty iron key",#11,S751
20323:  b3 ...                  PRINT_RET       "The strange stone drops
through the grating, and falls on the top step. The iron key mysteriously glues
itself to the metal in the stone. It's still out of reach, though."
2038a:  41 30 83 00 1b          JE              G20,#83 [FALSE] 203a8
2038f:  b3 ...                  PRINT_RET       "The robot mouse is just the
wrong shape."
203a8:  ce 8f 30 01 90          INSERT_OBJ      G20,"Jetty"
203ad:  da 2f 38 53 30          CALL_2N         e14c (G20)
203b2:  b3 ...                  PRINT_RET       " drops through the grating and
bounces down in the darkness."
203d7:  b1                      RFALSE

Routine 203d8, 0 locals

203d9:  41 3a 13 00 32          JE              G2a,#13 [FALSE] 2040e
203de:  ca 1f 01 8f 08 80 2b    TEST_ATTR       "rusty iron key",#08 [TRUE]
2040e
203e5:  b3 ...                  PRINT_RET       "Reach down the grating as you
may, it remains just beyond reach."
2040e:  b1                      RFALSE

Routine 20410, 0 locals

20411:  e7 7f 04 00             RANDOM          #04 -> -(SP)
20415:  41 00 01 80 03          JE              (SP)+,#01 [TRUE] 2041b
2041a:  b1                      RFALSE
2041b:  c6 8f 19 01 91 00 19    JIN             G09,"skiff" [FALSE] 20439
20422:  b3 ...                  PRINT_RET       "
A wave suddenly rocks the skiff."
20439:  b3 ...                  PRINT_RET       "
A wave suddenly splashes against your feet, up to the knees, and washes up the
steps toward the grating."

Routine 20478, 0 locals

20479:  c1 97 3a 12 4e 00 33    JE              G2a,#12,#4e [FALSE] 204b1
20480:  b3 ...                  PRINT_RET       "The sepulchral calm of the
ocean overwhelms you, and you can only watch and sail."
204b1:  b1                      RFALSE

Routine 204b4, 0 locals

204b5:  ca 1f 01 93 08 00 31    TEST_ATTR       "Harbour Mouth",#08 [FALSE]
204eb
204bc:  b2 ...                  PRINT           "
The sails billow, then slacken...
"
204d7:  ce 0f 01 91 01 94       INSERT_OBJ      "skiff","Drifting"
204dd:  cd 4f 11 01 94          STORE           G01,#0194
204e2:  da 1f 36 0d 29          CALL_2N         d834 (#29)
204e7:  b0                      RTRUE
204e8:  8c 00 07                JUMP            204f0
204eb:  cb 1f 01 93 08          SET_ATTR        "Harbour Mouth",#08
204f0:  b1                      RFALSE

Routine 204f4, 0 locals

204f5:  b2 ...                  PRINT           "
Light brightens into day. The skiff drifts, drifts upon...
"
20520:  ce 0f 01 91 01 14       INSERT_OBJ      "skiff","Garden Stream"
20526:  cd 4f 11 01 14          STORE           G01,#0114
2052b:  da 1f 36 0d 29          CALL_2N         d834 (#29)
20530:  b0                      RTRUE

Routine 20534, 0 locals

20535:  41 3a 26 00 9c          JE              G2a,#26 [FALSE] 205d4
2053a:  41 30 06 00 37          JE              G20,#06 [FALSE] 20574
2053f:  ca 1f 01 99 1a 00 30    TEST_ATTR       "cloak of many colours",#1a
[FALSE] 20574
20546:  b2 ...                  PRINT           "The procession happily
accommodates another crazily-dressed loon.
"
20573:  b1                      RFALSE
20574:  c1 95 30 08 09 07 00 03 JE              G20,#08,#09,#07 [FALSE] 2057d
2057c:  b1                      RFALSE
2057d:  b3 ...                  PRINT_RET       "The enormous procession, which
throngs the great streets of Alexandria, is impossible to push your way
through. Better just enjoy the spectacle."
205d4:  b1                      RFALSE

Routine 205d8, 0 locals

205d9:  c1 8f 3a 01 01 00 c7    JE              G2a,#0101 [FALSE] 206a5
205e0:  41 30 f5 80 11          JE              G20,#f5 [TRUE] 205f4
205e5:  b3 ...                  PRINT_RET       "Doesn't seem to fit."
205f4:  ca 1f 01 98 0e 00 09    TEST_ATTR       "unexciting tombstone",#0e
[FALSE] 20602
205fb:  b3 ...                  PRINT_RET       "What?"
20602:  e3 13 01 98 12 e3 3d    PUT_PROP        "unexciting tombstone",#12,S773
20609:  cb 1f 01 98 0e          SET_ATTR        "unexciting tombstone",#0e
2060e:  da 1f 97 a4 19          CALL_2N         25e90 (#19)
20613:  ce 4f f5 01 98          INSERT_OBJ      "gleaming amber
gem","unexciting tombstone"
20618:  b3 ...                  PRINT_RET       "The amber fits perfectly into
the mouth of the stone face, and there is a heaving from beneath your feet...
you topple over backward, flailing wildly. When you get up you can see a short
flight of steps leading down. You have opened the tomb!"
206a5:  b1                      RFALSE

Routine 206a8, 0 locals

206a9:  c1 97 3a 3f 40 00 67    JE              G2a,#3f,#40 [FALSE] 20715
206b0:  4a 30 1a 00 15          TEST_ATTR       G20,#1a [FALSE] 206c8
206b5:  b3 ...                  PRINT_RET       "Not while you're wearing it."
206c8:  66 30 19 80 13          JIN             G20,G09 [TRUE] 206de
206cd:  b3 ...                  PRINT_RET       "You need to be holding it."
206de:  c1 8f 30 01 99 00 12    JE              G20,#0199 [FALSE] 206f5
206e5:  ce 2f 01 9a 19          INSERT_OBJ      "grey cloak",G09
206ea:  89 01 99                REMOVE_OBJ      "cloak of many colours"
206ed:  cd 4f 5c 01 9a          STORE           G4c,#019a
206f2:  8c 00 0f                JUMP            20702
206f5:  ce 2f 01 99 19          INSERT_OBJ      "cloak of many colours",G09
206fa:  89 01 9a                REMOVE_OBJ      "grey cloak"
206fd:  cd 4f 5c 01 99          STORE           G4c,#0199
20702:  b3 ...                  PRINT_RET       "You turn the cloak inside
out."
20715:  b1                      RFALSE

Routine 20718, 0 locals

20719:  41 3a 56 00 4d          JE              G2a,#56 [FALSE] 20769
2071e:  b3 ...                  PRINT_RET       "Why do you only ever smell
hard in unpleasant places?  The odour is repulsive in a termites-and-honey kind
of way."
20769:  b1                      RFALSE

Routine 2076c, 0 locals

2076d:  41 3a 49 00 42          JE              G2a,#49 [FALSE] 207b2
20772:  c6 8f 19 01 9f 00 3a    JIN             G09,"wooden couch" [FALSE]
207b1
20779:  b2 ...                  PRINT           "The heavy weave mattings feel
so restful that you slide into...
"
207a4:  e3 17 01 a1 17 01       PUT_PROP        "The Spirit World",#17,#01
207aa:  da 0f 9d 20 01 a1       CALL_2N         27480 (#01a1)
207b0:  b0                      RTRUE
207b1:  b1                      RFALSE
207b2:  b1                      RFALSE

Routine 207b4, 0 locals

207b5:  66 19 11 80 0d          JIN             G09,G01 [TRUE] 207c5
207ba:  b3 ...                  PRINT_RET       "First get up."
207c5:  b2 ...                  PRINT           "Slightly to your surprise, the
sphinxes make no effort to stop you.
"
207f0:  8b 01 a5                RET             #01a5

Routine 207f4, 0 locals

207f5:  c1 97 3a 3d 3c 00 15    JE              G2a,#3d,#3c [FALSE] 2080f
207fc:  b3 ...                  PRINT_RET       "It is made of stone, you
know."
2080f:  41 3a 3f 00 62          JE              G2a,#3f [FALSE] 20874
20814:  66 19 11 80 13          JIN             G09,G01 [TRUE] 2082a
20819:  b3 ...                  PRINT_RET       "You can't reach from the
couch."
2082a:  ca 1f 01 a7 0e 00 0a    TEST_ATTR       "marble wall",#0e [FALSE] 20839
20831:  cc 1f 01 a7 0e          CLEAR_ATTR      "marble wall",#0e
20836:  8c 00 07                JUMP            2083e
20839:  cb 1f 01 a7 0e          SET_ATTR        "marble wall",#0e
2083e:  da 1f 9d bb 27          CALL_2N         276ec (#27)
20843:  b3 ...                  PRINT_RET       "You twist the nose, and before
it springs back there is a rumbling of stone from below."
20874:  b1                      RFALSE

Routine 20878, 0 locals

20879:  b2 ...                  PRINT           "The spirits of the sphinxes
prowl across the doorway, paws raised, and then lunge towards you. Their claws
rake across your skin, tearing off a layer, unwrapping you in a curiously
painless way... and you wake...
"
208fe:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
20904:  41 00 01 00 0f          JE              (SP)+,#01 [FALSE] 20916
20909:  ce 8f 19 01 9f          INSERT_OBJ      G09,"wooden couch"
2090e:  cd 4f 11 01 9d          STORE           G01,#019d
20913:  8c 00 1a                JUMP            2092e
20916:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
2091c:  55 00 01 00             SUB             (SP)+,#01 -> -(SP)
20920:  e3 1b 01 a1 17 00       PUT_PROP        "The Spirit World",#17,(SP)+
20926:  ce 8f 19 01 a3          INSERT_OBJ      G09,"wooden couch"
2092b:  89 01 a4                REMOVE_OBJ      "Napoleonic officers"
2092e:  da 1f 36 0d 29          CALL_2N         d834 (#29)
20933:  b0                      RTRUE

Routine 20934, 0 locals

20935:  41 3a 26 00 71          JE              G2a,#26 [FALSE] 209a9
2093a:  41 30 05 00 03          JE              G20,#05 [FALSE] 20940
2093f:  b1                      RFALSE
20940:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
20946:  41 00 04 00 47          JE              (SP)+,#04 [FALSE] 20990
2094b:  b3 ...                  PRINT_RET       "You somehow cannot leave the
tomb. Your spirit is anchored still to your body, sleeping two thousand years
before."
20990:  b3 ...                  PRINT_RET       "The tomb is sealed, apparently
forever."
209a9:  c1 95 3a 13 1c 18 80 0a JE              G2a,#13,#1c,#18 [TRUE] 209b9
209b1:  c1 95 3a 1d 14 1a 00 1b JE              G2a,#1d,#14,#1a [FALSE] 209d2
209b9:  b3 ...                  PRINT_RET       "You are beyond worldly
possessions."
209d2:  41 3a 49 00 72          JE              G2a,#49 [FALSE] 20a47
209d7:  c6 8f 19 01 a3 00 6a    JIN             G09,"wooden couch" [FALSE]
20a46
209de:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
209e4:  41 00 04 00 25          JE              (SP)+,#04 [FALSE] 20a0c
209e9:  b3 ...                  PRINT_RET       "The spell of the tomb is
broken now, and you cannot sleep."
20a0c:  b2 ...                  PRINT           "The heavy weave mattings draw
you deeper into...
"
20a2f:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
20a35:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
20a39:  e3 1b 01 a1 17 00       PUT_PROP        "The Spirit World",#17,(SP)+
20a3f:  da 0f 9d 20 01 a1       CALL_2N         27480 (#01a1)
20a45:  b0                      RTRUE
20a46:  b1                      RFALSE
20a47:  b1                      RFALSE

Routine 20a48, 1 local

20a49:  41 3a 29 00 ca          JE              G2a,#29 [FALSE] 20b16
20a4e:  d1 1f 01 a1 17 01       GET_PROP        "The Spirit World",#17 -> L00
20a54:  41 01 01 00 25          JE              L00,#01 [FALSE] 20a7c
20a59:  b3 ...                  PRINT_RET       "
The tomb seems older now, weighed under with centuries."
20a7c:  41 01 02 00 1f          JE              L00,#02 [FALSE] 20a9e
20a81:  b3 ...                  PRINT_RET       "
The tomb swelters now, a thousand years old."
20a9e:  41 01 03 00 2f          JE              L00,#03 [FALSE] 20ad0
20aa3:  b3 ...                  PRINT_RET       "
The tomb is beautifully well-preserved, but it seems quite ancient."
20ad0:  41 01 04 00 42          JE              L00,#04 [FALSE] 20b15
20ad5:  b2 ...                  PRINT           "
By now the tomb might be two thousand years old.
"
20af6:  c6 0f 01 a4 01 a1 00 19 JIN             "Napoleonic officers","The
Spirit World" [FALSE] 20b15
20afe:  b3 ...                  PRINT_RET       "
And at last it has been opened."
20b15:  b1                      RFALSE
20b16:  b1                      RFALSE

Routine 20b18, 0 locals

20b19:  d1 1f 01 a1 17 00       GET_PROP        "The Spirit World",#17 -> -(SP)
20b1f:  42 00 04 00 03          JL              (SP)+,#04 [FALSE] 20b25
20b24:  b1                      RFALSE
20b25:  95 b5                   INC             Ga5
20b27:  41 b5 02 00 19          JE              Ga5,#02 [FALSE] 20b43
20b2c:  b2 ...                  PRINT           "
The entrance to the tomb rumbles.
"
20b43:  41 b5 03 00 27          JE              Ga5,#03 [FALSE] 20b6d
20b48:  b2 ...                  PRINT           "
The noise grows, and dust falls from cracks in the masonry.
"
20b6d:  41 b5 04 00 a5          JE              Ga5,#04 [FALSE] 20c15
20b72:  b2 ...                  PRINT           "
The entrance bursts open in a shower of plaster!  Light streams in, searing
your eyes. There is a great commotion. Two Napoleonic French officers stride
down the stairs, lanterns in hand, looking admiringly around the court. They do
not seem to see you.
"
20c0f:  ce 0f 01 a4 01 a1       INSERT_OBJ      "Napoleonic officers","The
Spirit World"
20c15:  41 b5 05 00 43          JE              Ga5,#05 [FALSE] 20c5b
20c1a:  b2 ...                  PRINT           "
The officers are fascinated by the way the tomb seems almost untouched, and yet
the couch looks slept in.
"
20c5b:  41 b5 06 00 29          JE              Ga5,#06 [FALSE] 20c87
20c60:  b2 ...                  PRINT           "
The officers look down the passage, finding it to be sealed.
"
20c87:  41 b5 07 00 59          JE              Ga5,#07 [FALSE] 20ce3
20c8c:  b2 ...                  PRINT           "
The officers sit next to the sphinxes, stroking their moustaches in comic
perplexity. As they do so, one bangs his head on a stone nose.
"
20ce3:  41 b5 08 00 4f          JE              Ga5,#08 [FALSE] 20d35
20ce8:  b2 ...                  PRINT           "
The other officer is greatly amused by this slapstick. (You really are
beginning to see just how boring the living can be.)
"
20d35:  41 b5 09 00 73          JE              Ga5,#09 [FALSE] 20dab
20d3a:  b2 ...                  PRINT           "
The first officer tweaks the nose of the sphinx in affection. Suddenly there is
a great rumbling of stone from the passage below, and they rush down to
investigate!
"
20d9d:  89 01 a4                REMOVE_OBJ      "Napoleonic officers"
20da0:  cb 1f 01 9e 08          SET_ATTR        "sphinxes",#08
20da5:  ce 0f 01 a0 01 9d       INSERT_OBJ      "stone nose of a sphinx","The
Height of Fashion"
20dab:  b1                      RFALSE

Routine 20dac, 0 locals

20dad:  c1 97 3a 54 42 00 17    JE              G2a,#54,#42 [FALSE] 20dc9
20db4:  b3 ...                  PRINT_RET       "Your body passes through
them."
20dc9:  c1 85 3a 01 03 46 44 00 0f
                               JE              G2a,#0103,#46,#44 [FALSE] 20ddf
20dd2:  b3 ...                  PRINT_RET       "They hear nothing."
20ddf:  b1                      RFALSE

Routine 20de0, 0 locals

20de1:  4a 2f 08 80 03          TEST_ATTR       G1f,#08 [TRUE] 20de7
20de6:  b1                      RFALSE
20de7:  b2 ...                  PRINT           "model of a mischievous-looking
monkey, which wriggles as it comes alive"
20e14:  b0                      RTRUE

Routine 20e18, 0 locals

20e19:  c6 8f 19 01 aa 00 61    JIN             G09,"mummy case" [FALSE] 20e7f
20e20:  41 2a 12 00 14          JE              G1a,#12 [FALSE] 20e37
20e25:  b2 ...                  PRINT           "(That's a relief.)
"
20e36:  b1                      RFALSE
20e37:  41 2a 30 80 45          JE              G1a,#30 [TRUE] 20e7f
20e3c:  b2 ...                  PRINT           "(You are so distracted that
common sense takes over and you clamber out of the mummy case.)
"
20e75:  83 01 aa 00             GET_PARENT      "mummy case" -> -(SP)
20e79:  6e 19 00                INSERT_OBJ      G09,(SP)+
20e7c:  a3 19 11                GET_PARENT      G09 -> G01
20e7f:  41 3a 26 00 8e          JE              G2a,#26 [FALSE] 20f10
20e84:  c1 97 30 02 06 00 86    JE              G20,#02,#06 [FALSE] 20f0f
20e8b:  ca 1f 01 ac 08 80 64    TEST_ATTR       "second socket",#08 [TRUE]
20ef4
20e92:  ce 0f 01 bb 01 a8       INSERT_OBJ      "green oak quarterstaff","Quite
an Undertaking"
20e98:  cb 1f 01 ac 08          SET_ATTR        "second socket",#08
20e9d:  b3 ...                  PRINT_RET       "The passage seems endless, and
you are obliged to retreat before the air runs out. You trip over something as
you do, cursing under your breath."
20ef4:  b3 ...                  PRINT_RET       "The passage seems endless and
you retreat."
20f0f:  b1                      RFALSE
20f10:  b1                      RFALSE

Routine 20f14, 0 locals

20f15:  41 3a 2e 00 35          JE              G2a,#2e [FALSE] 20f4d
20f1a:  4a 2f 0e 80 1d          TEST_ATTR       G1f,#0e [TRUE] 20f3a
20f1f:  b3 ...                  PRINT_RET       "The lid must weigh a ton. You
can't shift it."
20f3a:  b3 ...                  PRINT_RET       "The coffin's already open."
20f4d:  41 3a 30 01 9b          JE              G2a,#30 [FALSE] 210eb
20f52:  c1 8f 30 01 aa 01 4d    JE              G20,#01aa [FALSE] 210a4
20f59:  4a 30 0e 01 48          TEST_ATTR       G20,#0e [FALSE] 210a4
20f5e:  c6 8f 19 01 aa 01 41    JIN             G09,"mummy case" [FALSE] 210a4
20f65:  41 b6 00 00 38          JE              Ga6,#00 [FALSE] 20fa0
20f6a:  0d b6 01                STORE           Ga6,#01
20f6d:  b3 ...                  PRINT_RET       "That seems an awfully... final
decision. Here's a chance to reconsider."
20fa0:  b2 ...                  PRINT           "The lid slams down on you with
a very terminal sound indeed.


   *** You have ...


But - something more is happening. The coffin's delicate balance has been
altered, and it is sliding, slipping away down the square passage, endlessly,
endlessly...

And even that is not the end, for you suddenly crash into buffers at one end.
What a lucky escape, you think... for a moment...
"
2109d:  da 0f 9d 20 01 af       CALL_2N         27480 (#01af)
210a3:  b0                      RTRUE
210a4:  4a 2f 0e 00 23          TEST_ATTR       G1f,#0e [FALSE] 210ca
210a9:  b3 ...                  PRINT_RET       "No, don't. Once shut it would
never open again."
210ca:  b3 ...                  PRINT_RET       "The coffin is, to put it
mildly, already closed."
210eb:  41 3a 15 00 4a          JE              G2a,#15 [FALSE] 21138
210f0:  ca 1f 01 aa 0e 80 0d    TEST_ATTR       "mummy case",#0e [TRUE] 21102
210f7:  b3 ...                  PRINT_RET       "It's closed."
21102:  b2 ...                  PRINT           "(You can't help feeling that
someone has planned all this... and it isn't you.)

"
21137:  b1                      RFALSE
21138:  b1                      RFALSE

Routine 2113c, 0 locals

2113d:  b2 ...                  PRINT           "Above "
21144:  da 2f 38 4e 2f          CALL_2N         e138 (G1f)
21149:  b2 ...                  PRINT           " is the single word ""
21156:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
2115a:  da 2f 86 c5 00          CALL_2N         21b14 ((SP)+)
2115f:  b3 ...                  PRINT_RET       ""."

Routine 21164, 0 locals

21165:  c1 8f 3a 01 01 00 7a    JE              G2a,#0101 [FALSE] 211e4
2116c:  c1 8f 30 01 ae 00 5f    JE              G20,#01ae [FALSE] 211d0
21173:  e3 1b 01 ae 17 2f       PUT_PROP        "model golden sceptre",#17,G1f
21179:  c1 8f 2f 01 ab 00 09    JE              G1f,#01ab [FALSE] 21187
21180:  e3 13 01 ae 11 e5 78    PUT_PROP        "model golden sceptre",#11,S810
21187:  c1 8f 2f 01 ac 00 09    JE              G1f,#01ac [FALSE] 21195
2118e:  e3 13 01 ae 11 e5 80    PUT_PROP        "model golden sceptre",#11,S811
21195:  c1 8f 2c 01 ad 00 09    JE              G1c,#01ad [FALSE] 211a3
2119c:  e3 13 01 ae 11 e5 88    PUT_PROP        "model golden sceptre",#11,S812
211a3:  ce 0f 01 ae 01 a8       INSERT_OBJ      "model golden sceptre","Quite
an Undertaking"
211a9:  cc 1f 01 ae 0c          CLEAR_ATTR      "model golden sceptre",#0c
211ae:  b3 ...                  PRINT_RET       "It fits perfectly (wouldn't
you know it)."
211cd:  8c 00 15                JUMP            211e3
211d0:  b3 ...                  PRINT_RET       "Doesn't seem to fit, quite."
211e3:  b1                      RFALSE
211e4:  b1                      RFALSE

Routine 211e8, 0 locals

211e9:  c1 97 3a 13 14 00 0f    JE              G2a,#13,#14 [FALSE] 211fd
211f0:  c1 8f 11 01 a8 00 07    JE              G01,#01a8 [FALSE] 211fc
211f7:  e3 97 2f 17 00          PUT_PROP        G1f,#17,#00
211fc:  b1                      RFALSE
211fd:  b1                      RFALSE

Routine 21200, 1 local

21201:  41 3a 39 00 1d          JE              G2a,#39 [FALSE] 21221
21206:  b3 ...                  PRINT_RET       "Apparently, it's not
susceptible to that."
21221:  41 3a 3f 01 3e          JE              G2a,#3f [FALSE] 21362
21226:  c6 8f 2f 01 a8 00 07    JIN             G1f,"Quite an Undertaking"
[FALSE] 21232
2122d:  4a 2f 0c 00 03          TEST_ATTR       G1f,#0c [FALSE] 21233
21232:  b1                      RFALSE
21233:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
21237:  41 00 00 80 2b          JE              (SP)+,#00 [TRUE] 21265
2123c:  ca 1f 01 aa 0e 00 24    TEST_ATTR       "mummy case",#0e [FALSE] 21265
21243:  cc 1f 01 aa 0e          CLEAR_ATTR      "mummy case",#0e
21248:  b2 ...                  PRINT           "With a crash, the coffin slams
shut.

"
21265:  b2 ...                  PRINT           "You crank the sceptre round,
lose control for a moment, and some primitive mechanism spins. The word comes
to rest as ""
212ac:  e7 7f 06 01             RANDOM          #06 -> L00
212b0:  da 2f 86 c5 01          CALL_2N         21b14 (L00)
212b5:  b2 ...                  PRINT           "".
"
212ba:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
212be:  e3 9b 00 17 01          PUT_PROP        (SP)+,#17,L00
212c3:  41 8e 01 00 14          JE              G7e,#01 [FALSE] 212da
212c8:  e3 17 01 ab 17 03       PUT_PROP        "first socket",#17,#03
212ce:  e3 17 01 ac 17 06       PUT_PROP        "second socket",#17,#06
212d4:  e3 17 01 ad 17 01       PUT_PROP        "third socket",#17,#01
212da:  d1 1f 01 ab 17 00       GET_PROP        "first socket",#17 -> -(SP)
212e0:  41 00 03 00 18          JE              (SP)+,#03 [FALSE] 212fb
212e5:  d1 1f 01 ac 17 00       GET_PROP        "second socket",#17 -> -(SP)
212eb:  41 00 06 00 0d          JE              (SP)+,#06 [FALSE] 212fb
212f0:  d1 1f 01 ad 17 00       GET_PROP        "third socket",#17 -> -(SP)
212f6:  41 00 01 80 23          JE              (SP)+,#01 [TRUE] 2131c
212fb:  d1 1f 01 ab 17 00       GET_PROP        "first socket",#17 -> -(SP)
21301:  41 00 01 00 5d          JE              (SP)+,#01 [FALSE] 21361
21306:  d1 1f 01 ac 17 00       GET_PROP        "second socket",#17 -> -(SP)
2130c:  41 00 06 00 52          JE              (SP)+,#06 [FALSE] 21361
21311:  d1 1f 01 ad 17 00       GET_PROP        "third socket",#17 -> -(SP)
21317:  41 00 03 00 47          JE              (SP)+,#03 [FALSE] 21361
2131c:  cb 1f 01 aa 0e          SET_ATTR        "mummy case",#0e
21321:  e3 13 01 aa 11 e5 a8    PUT_PROP        "mummy case",#11,S815
21328:  b3 ...                  PRINT_RET       "
With an awful groaning noise, the coffin lid heaves open. And it is...

Empty!"
21361:  b0                      RTRUE
21362:  b1                      RFALSE

Routine 21364, 0 locals

21365:  c1 95 2a 29 43 18 00 03 JE              G1a,#29,#43,#18 [FALSE] 2136e
2136d:  b1                      RFALSE
2136e:  41 2a 49 00 03          JE              G1a,#49 [FALSE] 21374
21373:  b1                      RFALSE
21374:  41 2a 26 80 23          JE              G1a,#26 [TRUE] 2139a
21379:  b3 ...                  PRINT_RET       "There's very little room, and
the air is running out."
2139a:  ca 1f 01 aa 08 00 07    TEST_ATTR       "mummy case",#08 [FALSE] 213a6
213a1:  41 2b 0a 80 0f          JE              G1b,#0a [TRUE] 213b3
213a6:  b3 ...                  PRINT_RET       "There's nowhere to go."
213b3:  4a 2f 08 00 4d          TEST_ATTR       G1f,#08 [FALSE] 21403
213b8:  b3 ...                  PRINT_RET       "
Your spirit, having cheated death once already, is weighed down with its double
life and will not diffuse out again."
21403:  4b 2f 08                SET_ATTR        G1f,#08
21406:  da 1f 9d bb 29          CALL_2N         276ec (#29)
2140b:  ce 2f 01 b0 19          INSERT_OBJ      "adamantine skull",G09
21410:  b2 ...                  PRINT           "
Your spirit rises, prepared as it was for the afterlife, and diffuses through
the solid gold of the coffin by sheer effort of will, finally beginning to
recoalesce. You stagger, confused, through dark caves until you finally come to
light, clutching something solid...
"
214b1:  b1                      RFALSE

Routine 214b4, 1 local

214b5:  d1 1f 01 af 17 00       GET_PROP        "Buried Alive",#17 -> -(SP)
214bb:  55 00 01 01             SUB             (SP)+,#01 -> L00
214bf:  e3 1b 01 af 17 01       PUT_PROP        "Buried Alive",#17,L00
214c5:  41 01 00 00 5c          JE              L00,#00 [FALSE] 21524
214ca:  0d 1d 01                STORE           G0d,#01
214cd:  b3 ...                  PRINT_RET       "
The air runs out, and you expire. Few corpses as so considerate as to bury
themselves in advance - hopefully this thought is some consolation."
21524:  41 01 03 00 1b          JE              L00,#03 [FALSE] 21542
21529:  b3 ...                  PRINT_RET       "
You are beginning to choke and pant."
21542:  41 01 01 00 2b          JE              L00,#01 [FALSE] 21570
21547:  b3 ...                  PRINT_RET       "
The air is desperately thin now, and you struggle hopelessly."
21570:  b1                      RFALSE

Routine 21574, 0 locals

21575:  ca 1f 01 ce 1a 00 3e    TEST_ATTR       "purple sash",#1a [FALSE] 215b8
2157c:  b2 ...                  PRINT           "Seeing that you're wearing the
sash of a Librarian, the guards part to allow you entrance.
"
215b5:  8b 01 c0                RET             #01c0
215b8:  26 3a 11 00 c4          JIN             "Austin",G01 [FALSE] 2167f
215bd:  b2 ...                  PRINT           "The Museum guards are so busy
abasing themselves before the sacred Cat (incredibly, that's Austin) that you
are able to slip inside.

Austin, having at long last found owners even more gullible and undemanding
than yourself, ambles away to a life of extreme cossetting and luxury.
"
21670:  99 3a                   REMOVE_OBJ      "Austin"
21672:  da 1f 37 61 3a          CALL_2N         dd84 (#3a)
21677:  da 2f 37 61 2f          CALL_2N         dd84 (G1f)
2167c:  8b 01 c0                RET             #01c0
2167f:  b3 ...                  PRINT_RET       "Museum guards tactfully nudge
drunken louts away from the Museum."

Routine 216ac, 0 locals

216ad:  41 8c 0b 00 0c          JE              G7c,#0b [FALSE] 216bc
216b2:  4a 11 27 80 07          TEST_ATTR       G01,#27 [TRUE] 216bc
216b7:  26 3a 11 00 03          JIN             "Austin",G01 [FALSE] 216bd
216bc:  b1                      RFALSE
216bd:  2e 3a 11                INSERT_OBJ      "Austin",G01
216c0:  b3 ...                  PRINT_RET       "
Austin strolls regally along with you."

Routine 216dc, 0 locals

216dd:  41 3a 2e 00 25          JE              G2a,#2e [FALSE] 21705
216e2:  ca 1f 01 9a 1a 00 03    TEST_ATTR       "grey cloak",#1a [FALSE] 216ea
216e9:  b1                      RFALSE
216ea:  b3 ...                  PRINT_RET       "It won't open, for no reason
you can see."
21705:  41 3a 8a 00 43          JE              G2a,#8a [FALSE] 2174b
2170a:  b3 ...                  PRINT_RET       "The door shakes, and its old
wood whispers "Sosostris, the Priest of Sosostris" in a falling echo."
2174b:  b1                      RFALSE

Routine 2174c, 0 locals

2174d:  c1 8f 3a 01 01 01 23    JE              G2a,#0101 [FALSE] 21875
21754:  c1 8f 30 01 bb 00 f2    JE              G20,#01bb [FALSE] 2184b
2175b:  89 01 bb                REMOVE_OBJ      "green oak quarterstaff"
2175e:  cc 1f 01 b6 0e          CLEAR_ATTR      "defaced door",#0e
21763:  cb 1f 01 b6 0a          SET_ATTR        "defaced door",#0a
21768:  cb 1f 01 b6 0b          SET_ATTR        "defaced door",#0b
2176d:  b2 ...                  PRINT           "Madame Sosostris looks up,
startled. "Yes," she says, "yes... this has potential."

She mutters incantations over the green wood and it begins to straighten out in
a quite Freudian way. "It will be ready in two thousand years. Come back then."

And she slips something into your palm as she bustles you out.
"
2183a:  da 0f 9d 20 01 b5       CALL_2N         27480 (#01b5)
21840:  ce 2f 01 bc 19          INSERT_OBJ      "silver keepsake",G09
21845:  da 1f 9d bb 28          CALL_2N         276ec (#28)
2184a:  b0                      RTRUE
2184b:  b2 ...                  PRINT           "Madame Sosostris brushes "
2185e:  da 2f 38 4e 30          CALL_2N         e138 (G20)
21863:  6e 30 11                INSERT_OBJ      G20,G01
21866:  b3 ...                  PRINT_RET       " aside impatiently."
21875:  b1                      RFALSE

Routine 21878, 0 locals

21879:  c1 97 3a 22 54 00 21    JE              G2a,#22,#54 [FALSE] 2189f
21880:  b3 ...                  PRINT_RET       "She is staring fixedly at the
table, meditating."
2189f:  c1 85 3a 01 03 46 44 00 19
                               JE              G2a,#0103,#46,#44 [FALSE] 218bf
218a8:  b3 ...                  PRINT_RET       "Madame Sosostris is
meditating."
218bf:  41 3a 42 00 19          JE              G2a,#42 [FALSE] 218db
218c4:  b3 ...                  PRINT_RET       "Your hand feels impotent to do
so."
218db:  b1                      RFALSE

Routine 218dc, 0 locals

218dd:  41 3a 39 00 23          JE              G2a,#39 [FALSE] 21903
218e2:  b3 ...                  PRINT_RET       "It rumbles in your hands, but
nothing else happens."
21903:  b1                      RFALSE

Routine 21904, 0 locals

21905:  41 3a 8e 00 0a          JE              G2a,#8e [FALSE] 21912
2190a:  f9 13 36 0d 1c 01 bf    CALL_VN         d834 (#1c,#01bf)
21911:  b0                      RTRUE
21912:  b1                      RFALSE

Routine 21914, 0 locals

21915:  c1 85 3a 01 03 46 44 00 31
                               JE              G2a,#0103,#46,#44 [FALSE] 2194d
2191e:  b3 ...                  PRINT_RET       "You can't understand his
guttural speech, but the die seems his only fascination."
2194d:  41 3a 54 00 29          JE              G2a,#54 [FALSE] 21979
21952:  b3 ...                  PRINT_RET       "Yes, your sort can be found
down by the docks of most ports."
21979:  41 3a 44 00 13          JE              G2a,#44 [FALSE] 2198f
2197e:  b3 ...                  PRINT_RET       "He is burlier than you."
2198f:  b1                      RFALSE

Routine 21990, 1 local

21991:  ca 1f 01 be 08 00 af    TEST_ATTR       "gambling sailor",#08 [FALSE]
21a45
21998:  e7 7f 05 01             RANDOM          #05 -> L00
2199c:  42 01 03 00 86          JL              L00,#03 [FALSE] 21a25
219a1:  b2 ...                  PRINT           "
The sailor grabs the die and throws a ""
219ba:  e7 7f 06 01             RANDOM          #06 -> L00
219be:  ca 1f 01 be 24 80 09    TEST_ATTR       "gambling sailor",#24 [TRUE]
219cc
219c5:  ca 1f 01 bf 24 00 05    TEST_ATTR       "inscribed die",#24 [FALSE]
219cf
219cc:  0d 01 06                STORE           L00,#06
219cf:  da 2f 86 c5 01          CALL_2N         21b14 (L00)
219d4:  b2 ...                  PRINT           "", "
219d9:  d1 1f 01 bf 17 00       GET_PROP        "inscribed die",#17 -> -(SP)
219df:  63 01 00 00 0b          JG              L00,(SP)+ [FALSE] 219ed
219e4:  b2 ...                  PRINT           "and grins.
"
219ed:  d1 1f 01 bf 17 00       GET_PROP        "inscribed die",#17 -> -(SP)
219f3:  62 01 00 00 0b          JL              L00,(SP)+ [FALSE] 21a01
219f8:  b2 ...                  PRINT           "and sighs.
"
21a01:  d1 1f 01 bf 17 00       GET_PROP        "inscribed die",#17 -> -(SP)
21a07:  61 01 00 00 0d          JE              L00,(SP)+ [FALSE] 21a17
21a0c:  b2 ...                  PRINT           "and shrugs.
"
21a17:  e3 1b 01 bf 17 01       PUT_PROP        "inscribed die",#17,L00
21a1d:  cc 1f 01 be 08          CLEAR_ATTR      "gambling sailor",#08
21a22:  8c 00 1f                JUMP            21a42
21a25:  b3 ...                  PRINT_RET       "
The sailor stares at the die thoughtfully."
21a42:  8c 00 17                JUMP            21a5a
21a45:  b3 ...                  PRINT_RET       "
The sailor hums a sea shanty."
21a5a:  b1                      RFALSE

Routine 21a5c, 1 local

21a5d:  41 3a 13 00 39          JE              G2a,#13 [FALSE] 21a99
21a62:  b3 ...                  PRINT_RET       "The sailor covers it with his
hand. But he looks the type who's never averse to a game."
21a99:  41 3a 2a 00 35          JE              G2a,#2a [FALSE] 21ad1
21a9e:  b2 ...                  PRINT           "Each side has a word inscribed
on it. The word on top is ""
21ac3:  51 2f 17 00             GET_PROP        G1f,#17 -> -(SP)
21ac7:  da 2f 86 c5 00          CALL_2N         21b14 ((SP)+)
21acc:  b3 ...                  PRINT_RET       ""."
21ad1:  c1 95 3a 1c 20 8e 00 3a JE              G2a,#1c,#20,#8e [FALSE] 21b11
21ad9:  e7 7f 06 01             RANDOM          #06 -> L00
21add:  ca 1f 01 bf 24 00 05    TEST_ATTR       "inscribed die",#24 [FALSE]
21ae7
21ae4:  0d 01 06                STORE           L00,#06
21ae7:  cb 1f 01 be 08          SET_ATTR        "gambling sailor",#08
21aec:  e3 1b 01 bf 17 01       PUT_PROP        "inscribed die",#17,L00
21af2:  b2 ...                  PRINT           "You throw a ""
21afb:  da 2f 86 c5 01          CALL_2N         21b14 (L00)
21b00:  b3 ...                  PRINT_RET       "", whatever that means."
21b11:  b1                      RFALSE

Routine 21b14, 1 local

21b15:  41 01 01 00 05          JE              L00,#01 [FALSE] 21b1d
21b1a:  b2 ...                  PRINT           "thu"
21b1d:  41 01 02 00 05          JE              L00,#02 [FALSE] 21b25
21b22:  b2 ...                  PRINT           "zal"
21b25:  41 01 03 00 05          JE              L00,#03 [FALSE] 21b2d
21b2a:  b2 ...                  PRINT           "si"
21b2d:  41 01 04 00 05          JE              L00,#04 [FALSE] 21b35
21b32:  b2 ...                  PRINT           "ca"
21b35:  41 01 05 00 07          JE              L00,#05 [FALSE] 21b3f
21b3a:  b2 ...                  PRINT           "mach"
21b3f:  41 01 06 00 07          JE              L00,#06 [FALSE] 21b49
21b44:  b2 ...                  PRINT           "huth"
21b49:  b0                      RTRUE

Routine 21b4c, 1 local

21b4d:  d1 1f 01 c0 17 01       GET_PROP        "The Birdcage of the Muses",#17
-> L00
21b53:  41 01 03 00 97          JE              L00,#03 [FALSE] 21bed
21b58:  b2 ...                  PRINT           "
A messenger-boy in a plain white tunic slips into the library and places a
couple of tubes in the pigeonhole. So resentful is he of missing the party
outside that he fails to notice you, and runs back out again at once.
"
21be1:  ce 0f 01 c2 01 c1       INSERT_OBJ      "tube with an alpha
on","pigeonhole"
21be7:  ce 0f 01 c3 01 c1       INSERT_OBJ      "tube with a kappa
on","pigeonhole"
21bed:  42 01 04 00 0c          JL              L00,#04 [FALSE] 21bfc
21bf2:  54 01 01 00             ADD             L00,#01 -> -(SP)
21bf6:  e3 1b 01 c0 17 00       PUT_PROP        "The Birdcage of the
Muses",#17,(SP)+
21bfc:  b1                      RFALSE

Routine 21c00, 2 locals

21c01:  c1 8f 57 01 04 00 05    JE              G47,#0104 [FALSE] 21c0b
21c08:  8b ff ff                RET             #ffff
21c0b:  01 01 01 00 2d          JE              #01,#01 [FALSE] 21c3b
21c10:  88 33 bc 02             CALL_1S         cef0 -> L01
21c14:  e0 2b 33 84 2f 02 00    CALL_VS         ce10 (G1f,L01) -> -(SP)
21c1b:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] 21c25
21c20:  95 01                   INC             L00
21c22:  8c 00 15                JUMP            21c38
21c25:  c1 8f 02 9f 0f 00 0c    JE              L01,"tubes" [FALSE] 21c36
21c2c:  cd 4f 57 01 05          STORE           G47,#0105
21c31:  95 01                   INC             L00
21c33:  8c 00 04                JUMP            21c38
21c36:  ab 01                   RET             L00
21c38:  8c ff d2                JUMP            21c0b
21c3b:  b1                      RFALSE

Routine 21c3c, 2 locals

21c3d:  c1 8f 57 01 04 00 05    JE              G47,#0104 [FALSE] 21c47
21c44:  8b ff ff                RET             #ffff
21c47:  01 01 01 00 2f          JE              #01,#01 [FALSE] 21c79
21c4c:  88 33 bc 02             CALL_1S         cef0 -> L01
21c50:  e0 2b 33 84 2f 02 00    CALL_VS         ce10 (G1f,L01) -> -(SP)
21c57:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] 21c61
21c5c:  95 01                   INC             L00
21c5e:  8c 00 17                JUMP            21c76
21c61:  c1 83 02 91 e0 97 2f 00 0c
                               JE              L01,"poems","scrolls" [FALSE]
21c74
21c6a:  cd 4f 57 01 05          STORE           G47,#0105
21c6f:  95 01                   INC             L00
21c71:  8c 00 04                JUMP            21c76
21c74:  ab 01                   RET             L00
21c76:  8c ff d0                JUMP            21c47
21c79:  b1                      RFALSE

Routine 21c7c, 0 locals

21c7d:  41 3a 89 00 81          JE              G2a,#89 [FALSE] 21d01
21c82:  61 30 19 00 09          JE              G20,G09 [FALSE] 21c8e
21c87:  ca 1f 01 aa 08 00 17    TEST_ATTR       "mummy case",#08 [FALSE] 21ca3
21c8e:  b3 ...                  PRINT_RET       "That hardly seems worthwhile."
21ca3:  cb 1f 01 aa 08          SET_ATTR        "mummy case",#08
21ca8:  b3 ...                  PRINT_RET       "You smear some oil on your
head, making a mental note to wash your hair in the morning. It is the least
sacred sacred ritual you have ever taken part in."
21d01:  b1                      RFALSE

Routine 21d04, 0 locals

21d05:  c1 97 3a 5d 15 00 13    JE              G2a,#5d,#15 [FALSE] 21d1d
21d0c:  b3 ...                  PRINT_RET       "What a revolting idea!"
21d1d:  b1                      RFALSE

Routine 21d20, 0 locals

21d21:  41 3a 3c 00 09          JE              G2a,#3c [FALSE] 21d2d
21d26:  f9 1b 36 0d 13 2f       CALL_VN         d834 (#13,G1f)
21d2c:  b0                      RTRUE
21d2d:  b1                      RFALSE

Routine 21d30, 0 locals

21d31:  41 3a 13 00 69          JE              G2a,#13 [FALSE] 21d9d
21d36:  ca 1f 01 c9 08 80 61    TEST_ATTR       "spindle from the globe",#08
[TRUE] 21d9c
21d3d:  cb 1f 01 c9 08          SET_ATTR        "spindle from the globe",#08
21d42:  e3 13 01 c9 12 e8 ef    PUT_PROP        "spindle from the
globe",#12,S864
21d49:  b3 ...                  PRINT_RET       "As you pull out its polar
axis, the spindle, the Earth collapses altogether in a possibly symbolic,
certainly dusty shambles."
21d9c:  b1                      RFALSE
21d9d:  b1                      RFALSE

Routine 21da0, 1 local

21da1:  41 3a 22 03 b3          JE              G2a,#22 [FALSE] 22157
21da6:  c1 8f 2f 01 cc 00 09    JE              G1f,#01cc [FALSE] 21db4
21dad:  c1 8f 30 01 c2 80 10    JE              G20,#01c2 [TRUE] 21dc2
21db4:  c1 8f 2f 01 d0 00 58    JE              G1f,#01d0 [FALSE] 21e11
21dbb:  c1 8f 2b 01 c3 00 51    JE              G1b,#01c3 [FALSE] 21e11
21dc2:  b3 ...                  PRINT_RET       "He takes the tube, sees the
letter on it, looks exasperated, clouts you over the head with the tube and
pushes it back into your arms."
21e11:  c1 83 30 01 c2 01 c3 03 10
                               JE              G20,#01c2,#01c3 [FALSE] 22128
21e1a:  da 2f 38 53 2f          CALL_2N         e14c (G1f)
21e1f:  b2 ...                  PRINT           " takes the tube and looks
inside"
21e32:  a2 30 01 c2             GET_CHILD       G20 -> L00 [TRUE] 21e36
21e36:  41 01 00 00 4e          JE              L00,#00 [FALSE] 21e87
21e3b:  6e 30 11                INSERT_OBJ      G20,G01
21e3e:  b3 ...                  PRINT_RET       " to find it is empty. He looks
at you very darkly indeed but returns to his work, throwing the tube down
impatiently."
21e87:  c1 83 01 01 c4 01 c5 02 3b
                               JE              L00,#01c4,#01c5 [FALSE] 220c9
21e90:  b2 ...                  PRINT           " to see a scroll, which he
pulls out eagerly.

"
21eaf:  c1 8f 2f 01 cc 00 09    JE              G1f,#01cc [FALSE] 21ebd
21eb6:  c1 8f 01 01 c5 80 10    JE              L00,#01c5 [TRUE] 21ecb
21ebd:  c1 8f 2f 01 d0 01 6a    JE              G1f,#01d0 [FALSE] 2202c
21ec4:  c1 8f 01 01 c4 01 63    JE              L00,#01c4 [FALSE] 2202c
21ecb:  a9 01                   REMOVE_OBJ      L00
21ecd:  83 01 d0 00             GET_PARENT      "Apollonius" -> -(SP)
21ed1:  83 01 cc 00             GET_PARENT      "Callimachus" -> -(SP)
21ed5:  61 00 00 00 a6          JE              (SP)+,(SP)+ [FALSE] 21f7e
21eda:  ce 2f 01 ce 11          INSERT_OBJ      "purple sash",G01
21edf:  ce 2f 01 cd 11          INSERT_OBJ      "mystic scroll",G01
21ee4:  ce 2f 01 d0 11          INSERT_OBJ      "Apollonius",G01
21ee9:  e3 13 01 d0 11 e9 44    PUT_PROP        "Apollonius",#11,S869
21ef0:  da 1f 9d bb 26          CALL_2N         276ec (#26)
21ef5:  b3 ...                  PRINT_RET       "One look is enough. He throws
a vicious punch, and the librarians begin a savage bare-knuckled fist fight.

This, shall we say, rather petty practical joke of yours does seem to have had
one interesting consequence, though."
21f7e:  a9 30                   REMOVE_OBJ      G20
21f80:  b2 ...                  PRINT           ""Arrghhhieee!" he says
(untranslatably), boiling over with rage. He then curses repeatedly, but the
only word you can make out is ""
21fd5:  c1 8f 2f 01 cc 00 15    JE              G1f,#01cc [FALSE] 21fef
21fdc:  b2 ...                  PRINT           "Apollonius"
21fe5:  83 01 d0 00             GET_PARENT      "Apollonius" -> -(SP)
21fe9:  6e 2f 00                INSERT_OBJ      G1f,(SP)+
21fec:  8c 00 12                JUMP            21fff
21fef:  b2 ...                  PRINT           "Callimachus"
21ff8:  83 01 cc 00             GET_PARENT      "Callimachus" -> -(SP)
21ffc:  6e 2f 00                INSERT_OBJ      G1f,(SP)+
21fff:  cb 1f 01 cc 02          SET_ATTR        "Callimachus",#02
22004:  e3 13 01 d0 11 e9 5a    PUT_PROP        "Apollonius",#11,S870
2200b:  b3 ...                  PRINT_RET       "". He pushes you out of his
way and stomps off."
2202c:  b2 ...                  PRINT           ""Ahhhh..." he says
(untranslatably) as he reads. "
22053:  c1 8f 30 01 cc 00 1c    JE              G20,#01cc [FALSE] 22074
2205a:  b2 ...                  PRINT           "Eventually, after a very long
wait, "
22071:  8c 00 09                JUMP            2207b
22074:  b2 ...                  PRINT           "But soon "
2207b:  6e 30 11                INSERT_OBJ      G20,G01
2207e:  b3 ...                  PRINT_RET       "he finishes, puts the scroll
back into the tube with the habit of a trained librarian, and drops it
absentmindedly on the floor."
220c9:  b2 ...                  PRINT           " to find "
220d0:  da 2f 38 48 01          CALL_2N         e120 (L00)
220d5:  b2 ...                  PRINT           ", which, to say the least,
comes as a surprise. Such a fuss is kicked up that you are quickly thrown out
into the street.
"
22120:  f9 07 9d 20 01 b3 01    CALL_VN         27480 (#01b3,#01)
22127:  b1                      RFALSE
22128:  b3 ...                  PRINT_RET       "How could you bribe such
disinterested men of learning as the librarians?"
22157:  c1 85 3a 01 03 46 44 00 3d
                               JE              G2a,#0103,#46,#44 [FALSE] 2219b
22160:  b3 ...                  PRINT_RET       "As a barbarian scholar,
unversed in Greek, you can hardly expect to converse with such as he."
2219b:  b1                      RFALSE

Routine 2219c, 0 locals

2219d:  ca 1f 01 99 1a 00 3e    TEST_ATTR       "cloak of many colours",#1a
[FALSE] 221e0
221a4:  0d 1d 01                STORE           G0d,#01
221a7:  b3 ...                  PRINT_RET       "Or you could just saunter up
to them wearing a cloak of many colours. Have it your own way."
221e0:  b2 ...                  PRINT           "
You tiptoe into the palace, and immediately dart away from view of the many
clerks and civil servants manning the machinery of government even at this late
hour. Within seconds, you realise you are...
"
2225d:  8b 01 d2                RET             #01d2

Routine 22260, 0 locals

22261:  41 3a 26 00 67          JE              G2a,#26 [FALSE] 222cb
22266:  ca 1f 01 ce 1a 80 5f    TEST_ATTR       "purple sash",#1a [TRUE] 222ca
2226d:  ce 8f 19 01 d1          INSERT_OBJ      G09,"Outside the Royal Palace
of Alexander"
22272:  cd 4f 11 01 d1          STORE           G01,#01d1
22277:  b3 ...                  PRINT_RET       "The slave looks you over and
sees that you do not bear the mark of an accredited visitor to the Palace. You
are discreetly escorted out."
222ca:  b1                      RFALSE
222cb:  c1 97 3a 1c 1d 00 25    JE              G2a,#1c,#1d [FALSE] 222f5
222d2:  b3 ...                  PRINT_RET       "The slave politely holds your
arm fast until you desist."
222f5:  41 3a 87 00 0e          JE              G2a,#87 [FALSE] 22306
222fa:  ca 1f 01 d2 08 00 06    TEST_ATTR       "Lost inside the Palace",#08
[FALSE] 22305
22301:  8f 88 ef                CALL_1N         223bc
22304:  b0                      RTRUE
22305:  b1                      RFALSE
22306:  b1                      RFALSE

Routine 22308, 0 locals

22309:  41 3a 26 00 62          JE              G2a,#26 [FALSE] 2236e
2230e:  82 01 d2 00 c2          GET_CHILD       "Lost inside the Palace" ->
-(SP) [TRUE] 22313
22313:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 22322
22318:  82 01 d2 00 c2          GET_CHILD       "Lost inside the Palace" ->
-(SP) [TRUE] 2231d
2231d:  a9 00                   REMOVE_OBJ      (SP)+
2231f:  8c ff ee                JUMP            2230e
22322:  ce 0f 01 d3 01 d2       INSERT_OBJ      "slave","Lost inside the
Palace"
22328:  ce 8f 19 01 d2          INSERT_OBJ      G09,"Lost inside the Palace"
2232d:  2d ba b9                STORE           Gaa,Ga9
22330:  2d b9 b8                STORE           Ga9,Ga8
22333:  2d b8 30                STORE           Ga8,G20
22336:  cc 1f 01 d2 08          CLEAR_ATTR      "Lost inside the Palace",#08
2233b:  41 ba 06 00 11          JE              Gaa,#06 [FALSE] 2234f
22340:  41 b9 04 00 0c          JE              Ga9,#04 [FALSE] 2234f
22345:  41 b8 03 00 07          JE              Ga8,#03 [FALSE] 2234f
2234a:  cb 1f 01 d2 08          SET_ATTR        "Lost inside the Palace",#08
2234f:  41 b8 03 00 0f          JE              Ga8,#03 [FALSE] 22361
22354:  41 b9 03 00 0a          JE              Ga9,#03 [FALSE] 22361
22359:  cd 4f 11 01 d1          STORE           G01,#01d1
2235e:  6e 19 11                INSERT_OBJ      G09,G01
22361:  95 b7                   INC             Ga7
22363:  41 b7 02 00 07          JE              Ga7,#02 [FALSE] 2236d
22368:  da 1f 97 a4 2e          CALL_2N         25e90 (#2e)
2236d:  b1                      RFALSE
2236e:  b1                      RFALSE

Routine 22370, 0 locals

22371:  c1 8f 3a 01 03 00 29    JE              G2a,#0103 [FALSE] 2239f
22378:  41 2a 87 00 0d          JE              G1a,#87 [FALSE] 22388
2237d:  4a 11 08 00 08          TEST_ATTR       G01,#08 [FALSE] 22388
22382:  da 1f 36 0d 87          CALL_2N         d834 (#87)
22387:  b0                      RTRUE
22388:  b3 ...                  PRINT_RET       "The slave doesn't seem to
notice."
2239f:  41 3a 46 00 17          JE              G2a,#46 [FALSE] 223b9
223a4:  c1 83 31 74 e8 80 31 00 0d
                               JE              G21,"anoppe","eppona" [FALSE]
223b8
223ad:  4a 11 08 00 08          TEST_ATTR       G01,#08 [FALSE] 223b8
223b2:  da 1f 36 0d 87          CALL_2N         d834 (#87)
223b7:  b0                      RTRUE
223b8:  b1                      RFALSE
223b9:  b1                      RFALSE

Routine 223bc, 0 locals

223bd:  b2 ...                  PRINT           "The slave here, a senior
adviser merely disguised as a deaf mute, reacts at once, taking you by the arm
and leading you on a convoluted path through the Palace to the...
"
22426:  da 0f 9d 20 01 d4       CALL_2N         27480 (#01d4)
2242c:  b0                      RTRUE

Routine 22430, 0 locals

22431:  c1 97 3a 4e 60 00 a5    JE              G2a,#4e,#60 [FALSE] 224db
22438:  ce 8f 19 01 bd          INSERT_OBJ      G09,"Warehouses and Port"
2243d:  cd 4f 11 01 bd          STORE           G01,#01bd
22442:  b3 ...                  PRINT_RET       "You dive off the balcony in a
beautifully graceful motion, plunging perfectly into the icy and (fortunately)
deep waters below. You then struggle to the surface in a panicky, floundering
motion, and finally wash up out of the water in a clumsy, ridiculous one."
224db:  b1                      RFALSE

Routine 224dc, 0 locals

224dd:  c1 8f 3a 01 01 00 55    JE              G2a,#0101 [FALSE] 22537
224e4:  c1 8f 30 01 45 00 43    JE              G20,#0145 [FALSE] 2252c
224eb:  89 01 d5                REMOVE_OBJ      "astronomical mounting"
224ee:  ce 0f 01 45 01 d4       INSERT_OBJ      "golden astrolabe","Palace
Balustrade"
224f4:  cb 1f 01 45 13          SET_ATTR        "golden astrolabe",#13
224f9:  cc 1f 01 45 0c          CLEAR_ATTR      "golden astrolabe",#0c
224fe:  e3 13 01 45 11 ea f0    PUT_PROP        "golden astrolabe",#11,S890
22505:  ce 0f 01 d5 01 d4       INSERT_OBJ      "astronomical mounting","Palace
Balustrade"
2250b:  b3 ...                  PRINT_RET       "It fits beautifully, as if
designed to go there."
2252c:  b3 ...                  PRINT_RET       "Doesn't fit."
22537:  b1                      RFALSE

Routine 22538, 0 locals

22539:  41 3a 26 00 74          JE              G2a,#26 [FALSE] 225b0
2253e:  c1 97 30 05 0a 00 6c    JE              G20,#05,#0a [FALSE] 225af
22545:  51 2f 0d 00             GET_PROP        G1f,#0d -> -(SP)
22549:  41 00 4e 00 63          JE              (SP)+,#4e [FALSE] 225af
2254e:  b2 ...                  PRINT           "With your heart in your mouth,
you scale the old fire escape once again, breathing a sigh of relief as you
haul yourself in through the open hatchway at the top.
"
225af:  b1                      RFALSE
225b0:  b1                      RFALSE

Routine 225b4, 0 locals

225b5:  c1 97 3a 4b 15 00 09    JE              G2a,#4b,#15 [FALSE] 225c3
225bc:  f9 17 36 0d 26 0a       CALL_VN         d834 (#26,#0a)
225c2:  b0                      RTRUE
225c3:  b1                      RFALSE

Routine 225c4, 0 locals

225c5:  d1 1f 01 d6 0d 00       GET_PROP        "Beside the Drive",#0d -> -(SP)
225cb:  41 00 4e 80 2f          JE              (SP)+,#4e [TRUE] 225fd
225d0:  b3 ...                  PRINT_RET       "Wistaria climbs a desperately
rickety fire escape up the side of the Hall."
225fd:  b3 ...                  PRINT_RET       "Wistaria climbs a desperately
rickety fire escape up the east side of the Hall, and so might you: at the top
the fire escape door into the attic is open."

Routine 22654, 0 locals

22655:  da 1f 97 a4 29          CALL_2N         25e90 (#29)
2265a:  c6 0f 01 dc 01 d9 00 1f JIN             "corn crake","Hollow" [FALSE]
2267f
22662:  b3 ...                  PRINT_RET       "The corn crake won't let you
near her nest."
2267f:  b1                      RFALSE

Routine 22680, 0 locals

22681:  c1 85 3a 01 03 46 44 00 17
                               JE              G2a,#0103,#46,#44 [FALSE] 2269f
2268a:  b3 ...                  PRINT_RET       "The bird seems not to have
heard."
2269f:  b1                      RFALSE

Routine 226a0, 0 locals

226a1:  c1 87 3a 01 03 46 00 b0 JE              G2a,#0103,#46 [FALSE] 22757
226a9:  4a 2f 08 80 1d          TEST_ATTR       G1f,#08 [TRUE] 226c9
226ae:  b3 ...                  PRINT_RET       ""Just a minute, I'm doing my
form.""
226c9:  b2 ...                  PRINT           "He looks at you in a hypnotic
daze,"
226e2:  41 2a 22 00 51          JE              G1a,#22 [FALSE] 22736
226e7:  c1 8f 30 01 e3 00 4a    JE              G20,#01e3 [FALSE] 22736
226ee:  61 31 19 00 45          JE              G21,G09 [FALSE] 22736
226f3:  ce 2f 01 e3 19          INSERT_OBJ      "Crescent Moon",G09
226f8:  da 1f 9d bb 1e          CALL_2N         276ec (#1e)
226fd:  e3 93 2f 12 ec 59       PUT_PROP        G1f,#12,S911
22703:  b3 ...                  PRINT_RET       " and before you can say "How
heartless I am" he obediently hands you the Moon."
22736:  b3 ...                  PRINT_RET       " unable to follow your
perfectly clear instruction."
22757:  41 3a 44 00 1d          JE              G2a,#44 [FALSE] 22777
2275c:  b3 ...                  PRINT_RET       "Evans is lost. Whatever do you
mean?"
22777:  41 3a 22 00 4b          JE              G2a,#22 [FALSE] 227c5
2277c:  c1 8f 30 01 e3 00 43    JE              G20,#01e3 [FALSE] 227c4
22783:  b3 ...                  PRINT_RET       "Evans looks sadly at the
mascot. But it is tarnished now, you have spoilt it. Your guilt increases
further."
227c4:  b1                      RFALSE
227c5:  b1                      RFALSE

Routine 227c8, 0 locals

227c9:  41 3a 15 00 21          JE              G2a,#15 [FALSE] 227ed
227ce:  4a 2f 0e 80 1b          TEST_ATTR       G1f,#0e [TRUE] 227ec
227d3:  b3 ...                  PRINT_RET       "The Church door is barred from
the far side."
227ec:  b1                      RFALSE
227ed:  b1                      RFALSE

Routine 227f0, 0 locals

227f1:  41 3a 15 00 25          JE              G2a,#15 [FALSE] 22819
227f6:  b3 ...                  PRINT_RET       "The pub is closed, licensing
laws being what they are."
22819:  b1                      RFALSE

Routine 2281c, 0 locals

2281d:  41 3a 59 00 27          JE              G2a,#59 [FALSE] 22847
22822:  b3 ...                  PRINT_RET       "You stroke the monkey's pelt.
It jumps about, cheeping."
22847:  41 3a 54 00 21          JE              G2a,#54 [FALSE] 2286b
2284c:  b3 ...                  PRINT_RET       "Evans rather resents this
importunate advance."
2286b:  b1                      RFALSE

Routine 2286c, 0 locals

2286d:  c1 97 3a 13 14 00 29    JE              G2a,#13,#14 [FALSE] 2289b
22874:  c6 8f 2f 01 de 00 21    JIN             G1f,"Old Evans" [FALSE] 2289a
2287b:  b3 ...                  PRINT_RET       "Evans isn't giving up his
mascot that easily."
2289a:  b1                      RFALSE
2289b:  b1                      RFALSE

Routine 2289c, 0 locals

2289d:  c1 97 3a 13 14 00 19    JE              G2a,#13,#14 [FALSE] 228bb
228a4:  b3 ...                  PRINT_RET       "Evans isn't giving up his
paper."
228bb:  b1                      RFALSE

Routine 228bc, 0 locals

228bd:  c1 97 3a 13 14 00 1b    JE              G2a,#13,#14 [FALSE] 228dd
228c4:  b3 ...                  PRINT_RET       "Evans isn't giving up his
hat-band."
228dd:  b1                      RFALSE

Routine 228e0, 0 locals

228e1:  ca 1f 01 e0 0e 80 29    TEST_ATTR       "parish church",#0e [TRUE]
2290f
228e8:  cb 1f 01 e0 0e          SET_ATTR        "parish church",#0e
228ed:  e3 13 01 e0 12 ed 71    PUT_PROP        "parish church",#12,S921
228f4:  b2 ...                  PRINT           "You unbar the door, and let
yourself out.
"
2290f:  8b 01 dd                RET             #01dd

Routine 22914, 0 locals

22915:  ca 1f 01 e7 0e 00 6f    TEST_ATTR       "Moonstone",#0e [FALSE] 22989
2291c:  b3 ...                  PRINT_RET       "To your horror your body
partly thins to mist as you climb down through the threshold!  Alarmed, you
pull back. The underworld beneath the Moonstone, it seems, is not for mortals."
22989:  b3 ...                  PRINT_RET       "The Moonstone is huge and
solid."

Routine 229a0, 0 locals

229a1:  41 3a 2a 00 08          JE              G2a,#2a [FALSE] 229ac
229a6:  da 1f 97 a4 2f          CALL_2N         25e90 (#2f)
229ab:  b1                      RFALSE
229ac:  c1 95 3a 2e 3d 3c 80 07 JE              G2a,#2e,#3d,#3c [TRUE] 229b9
229b4:  41 3a 13 00 3a          JE              G2a,#13 [FALSE] 229f1
229b9:  da 1f 97 a4 13          CALL_2N         25e90 (#13)
229be:  b3 ...                  PRINT_RET       "Legend has it nothing holds
down the stone, but if so it's far too heavy to budge."
229f1:  c1 97 3a 79 8a 00 4d    JE              G2a,#79,#8a [FALSE] 22a43
229f8:  c6 2f 01 ea 11 00 45    JIN             "adamantine knight",G01 [FALSE]
22a42
229ff:  b3 ...                  PRINT_RET       "The knight comes a little
closer, cupping one ear to pantomime listening. He does seem to have partial
hearing."
22a42:  b1                      RFALSE
22a43:  b1                      RFALSE

Routine 22a44, 0 locals

22a45:  41 2a 13 00 a7          JE              G1a,#13 [FALSE] 22aef
22a4a:  4a 30 0c 80 a2          TEST_ATTR       G20,#0c [TRUE] 22aef
22a4f:  4a 30 08 80 4f          TEST_ATTR       G20,#08 [TRUE] 22aa1
22a54:  0a 71 1a 00 2d          TEST_ATTR       "old gardeners' gloves",#1a
[FALSE] 22a84
22a59:  b3 ...                  PRINT_RET       "It is searing hot!  Even with
the gloves on you cannot touch the adamantine."
22a84:  b3 ...                  PRINT_RET       "It is searing hot, and you
cannot touch the surface!"
22aa1:  41 bb 00 00 46          JE              Gab,#00 [FALSE] 22aea
22aa6:  0d bb 01                STORE           Gab,#01
22aa9:  b3 ...                  PRINT_RET       "Warning (once only!): the
three High Rods seem to balanced extremely delicately on the edge of the pit."
22aea:  da 1f 9d bb 2c          CALL_2N         276ec (#2c)
22aef:  b1                      RFALSE

Routine 22af0, 0 locals

22af1:  41 2a 13 00 8e          JE              G1a,#13 [FALSE] 22b82
22af6:  41 bc 00 00 89          JE              Gac,#00 [FALSE] 22b82
22afb:  99 1c                   REMOVE_OBJ      "Life"
22afd:  0b 1c 0c                SET_ATTR        "Life",#0c
22b00:  0c 1c 02                CLEAR_ATTR      "Life",#02
22b03:  0b 1c 12                SET_ATTR        "Life",#12
22b06:  99 1d                   REMOVE_OBJ      "Death"
22b08:  0b 1d 0c                SET_ATTR        "Death",#0c
22b0b:  0c 1d 02                CLEAR_ATTR      "Death",#02
22b0e:  0b 1d 12                SET_ATTR        "Death",#12
22b11:  99 1e                   REMOVE_OBJ      "Love"
22b13:  0b 1e 0c                SET_ATTR        "Love",#0c
22b16:  0c 1e 02                CLEAR_ATTR      "Love",#02
22b19:  0b 1e 12                SET_ATTR        "Love",#12
22b1c:  6e 30 19                INSERT_OBJ      G20,G09
22b1f:  4c 30 12                CLEAR_ATTR      G20,#12
22b22:  0d bc 01                STORE           Gac,#01
22b25:  b3 ...                  PRINT_RET       "(Interesting choice.)

As you take it, you upset the balance and the other two High Rods rattle away
down the crystal passageway into the underworld."
22b82:  b1                      RFALSE

Routine 22b84, 0 locals

22b85:  c1 95 3a 5b 1a 1b 00 e1 JE              G2a,#5b,#1a,#1b [FALSE] 22c6c
22b8d:  c1 8f 31 01 e9 80 03    JE              G21,#01e9 [TRUE] 22b95
22b94:  b1                      RFALSE
22b95:  c1 80 30 01 f0 01 b0 01 92 80 13
                               JE              G20,#01f0,#01b0,#0192 [TRUE]
22bb1
22ba0:  b3 ...                  PRINT_RET       "That seems incongruous."
22bb1:  c1 8f 30 01 f0 00 3d    JE              G20,#01f0 [FALSE] 22bf3
22bb8:  ce 0f 01 f0 01 e8       INSERT_OBJ      "adamantine hand","West Side
Chapel"
22bbe:  cb 1f 01 f0 02          SET_ATTR        "adamantine hand",#02
22bc3:  0d bd 02                STORE           Gad,#02
22bc6:  b3 ...                  PRINT_RET       "The hand fits rather loosely
onto the left "wrist" of the adamantine knight."
22bf3:  c1 8f 30 01 b0 00 3b    JE              G20,#01b0 [FALSE] 22c33
22bfa:  ce 0f 01 b0 01 e8       INSERT_OBJ      "adamantine skull","West Side
Chapel"
22c00:  cb 1f 01 b0 02          SET_ATTR        "adamantine skull",#02
22c05:  0d be 02                STORE           Gae,#02
22c08:  b3 ...                  PRINT_RET       "The skull fits very loosely
onto the "neck" of the adamantine knight."
22c33:  c1 8f 30 01 92 00 33    JE              G20,#0192 [FALSE] 22c6b
22c3a:  89 01 92                REMOVE_OBJ      "adamantine heart"
22c3d:  cb 1f 01 92 08          SET_ATTR        "adamantine heart",#08
22c42:  b3 ...                  PRINT_RET       "The heart sits well in the
so-empty ribcage of the adamantine knight."
22c6b:  b1                      RFALSE
22c6c:  41 3a 3f 00 7b          JE              G2a,#3f [FALSE] 22cea
22c71:  c1 83 30 01 b0 01 f0 00 71
                               JE              G20,#01b0,#01f0 [FALSE] 22ce9
22c7a:  4a 30 02 00 6c          TEST_ATTR       G20,#02 [FALSE] 22ce9
22c7f:  c1 8f 30 01 f0 00 2f    JE              G20,#01f0 [FALSE] 22cb3
22c86:  89 01 f0                REMOVE_OBJ      "adamantine hand"
22c89:  0d bd 00                STORE           Gad,#00
22c8c:  cb 1f 01 f0 08          SET_ATTR        "adamantine hand",#08
22c91:  cc 1f 01 f0 02          CLEAR_ATTR      "adamantine hand",#02
22c96:  b3 ...                  PRINT_RET       "The hand screws tightly onto
the adamantine knight."
22cb3:  c1 8f 30 01 b0 00 31    JE              G20,#01b0 [FALSE] 22ce9
22cba:  89 01 b0                REMOVE_OBJ      "adamantine skull"
22cbd:  0d be 00                STORE           Gae,#00
22cc0:  cb 1f 01 b0 08          SET_ATTR        "adamantine skull",#08
22cc5:  cc 1f 01 b0 02          CLEAR_ATTR      "adamantine skull",#02
22cca:  b3 ...                  PRINT_RET       "The skull screws tightly onto
the adamantine knight."
22ce9:  b1                      RFALSE
22cea:  b1                      RFALSE

Routine 22cec, 0 locals

22ced:  41 3a 29 00 0e          JE              G2a,#29 [FALSE] 22cfe
22cf2:  c6 0f 01 e9 01 e8 00 05 JIN             "adamantine statue","West Side
Chapel" [FALSE] 22cfd
22cfa:  8f 8b e8                CALL_1N         22fa0
22cfd:  b1                      RFALSE
22cfe:  b1                      RFALSE

Routine 22d00, 0 locals

22d01:  43 be 00 00 2d          JG              Gae,#00 [FALSE] 22d31
22d06:  96 be                   DEC             Gae
22d08:  41 be 00 00 26          JE              Gae,#00 [FALSE] 22d31
22d0d:  cc 1f 01 b0 02          CLEAR_ATTR      "adamantine skull",#02
22d12:  b3 ...                  PRINT_RET       "
The skull wobbles and falls off the knight again."
22d31:  43 bd 00 00 2b          JG              Gad,#00 [FALSE] 22d5f
22d36:  96 bd                   DEC             Gad
22d38:  41 bd 00 00 24          JE              Gad,#00 [FALSE] 22d5f
22d3d:  cc 1f 01 f0 02          CLEAR_ATTR      "adamantine hand",#02
22d42:  b3 ...                  PRINT_RET       "
The hand wavers and falls off the knight again."
22d5f:  b1                      RFALSE

Routine 22d60, 0 locals

22d61:  b2 ...                  PRINT           "The knight is bursting and
eager with life, as though nothing could fade his boundless energy for
existence. "
22da0:  c6 2f 01 2f 2f 00 17    JIN             "marble rose",G1f [FALSE] 22dbc
22da7:  b2 ...                  PRINT           "He is holding the marble
flower. "
22dbc:  c6 2f 01 ec 11 00 37    JIN             "statue of Diana",G01 [FALSE]
22df8
22dc3:  c6 0f 01 2f 01 ec 80 2f JIN             "marble rose","statue of Diana"
[TRUE] 22df8
22dcb:  b3 ...                  PRINT_RET       "He gazes sadly at Diana,
wanting only to be of chivalrous service."
22df8:  bb                      NEW_LINE
22df9:  b0                      RTRUE

Routine 22dfc, 0 locals

22dfd:  c1 8f 3a 01 03 00 06    JE              G2a,#0103 [FALSE] 22e08
22e04:  8f 8c 16                CALL_1N         23058
22e07:  b0                      RTRUE
22e08:  c1 97 3a 46 44 00 21    JE              G2a,#46,#44 [FALSE] 22e2e
22e0f:  b3 ...                  PRINT_RET       "A shame there were no
adamantine ears, really."
22e2e:  c1 97 3a 24 22 01 5a    JE              G2a,#24,#22 [FALSE] 22f8d
22e35:  c1 8f 30 01 2f 00 29    JE              G20,#012f [FALSE] 22e63
22e3c:  ce 0f 01 2f 01 ea       INSERT_OBJ      "marble rose","adamantine
knight"
22e42:  b3 ...                  PRINT_RET       "The knight is exceedingly
pleased, and takes the flower."
22e63:  c1 8f 30 01 bc 01 00    JE              G20,#01bc [FALSE] 22f68
22e6a:  c6 0f 01 2f 01 ea 80 19 JIN             "marble rose","adamantine
knight" [TRUE] 22e89
22e72:  b3 ...                  PRINT_RET       "The knight looks sadly at the
picture."
22e89:  c1 8f 11 01 eb 80 31    JE              G01,#01eb [TRUE] 22ebf
22e90:  b3 ...                  PRINT_RET       "The knight looks at the
picture sadly, unable to see its immediate relevance."
22ebf:  ce 0f 01 2f 01 ec       INSERT_OBJ      "marble rose","statue of Diana"
22ec5:  cb 1f 01 ea 08          SET_ATTR        "adamantine knight",#08
22eca:  e3 13 01 ec 11 ed e3    PUT_PROP        "statue of Diana",#11,S932
22ed1:  da 1f 9d bb 2b          CALL_2N         276ec (#2b)
22ed6:  89 01 bc                REMOVE_OBJ      "silver keepsake"
22ed9:  b3 ...                  PRINT_RET       "The knight takes the keepsake,
and studies it. Catching on, he places the marble flower in Diana's hair, high
up beyond your reach. Afterward, he bows to you gravely. But there is a little
sadness in his eye as he turns away from her."
22f68:  b3 ...                  PRINT_RET       "The knight has forsworn
earthly things in the service of Diana."
22f8d:  41 3a 42 00 0d          JE              G2a,#42 [FALSE] 22f9d
22f92:  b3 ...                  PRINT_RET       "He is adamant."
22f9d:  b1                      RFALSE

Routine 22fa0, 0 locals

22fa1:  ca 1f 01 b0 08 80 17    TEST_ATTR       "adamantine skull",#08 [TRUE]
22fbd
22fa8:  ca 1f 01 b0 02 80 10    TEST_ATTR       "adamantine skull",#02 [TRUE]
22fbd
22faf:  b2 ...                  PRINT           "
A headless "
22fba:  8c 00 07                JUMP            22fc2
22fbd:  b2 ...                  PRINT           "
An "
22fc2:  b2 ...                  PRINT           "adamantine statue lies prone
here, a knight on a tomb"
22fe3:  ca 1f 01 f0 08 80 0c    TEST_ATTR       "adamantine hand",#08 [TRUE]
22ff4
22fea:  ca 1f 01 92 08 80 05    TEST_ATTR       "adamantine heart",#08 [TRUE]
22ff4
22ff1:  b3 ...                  PRINT_RET       "."
22ff4:  ca 1f 01 f0 08 80 09    TEST_ATTR       "adamantine hand",#08 [TRUE]
23002
22ffb:  ca 1f 01 f0 02 00 11    TEST_ATTR       "adamantine hand",#02 [FALSE]
23011
23002:  b2 ...                  PRINT           " with hand outstretched"
23011:  ca 1f 01 92 08 00 2d    TEST_ATTR       "adamantine heart",#08 [FALSE]
23043
23018:  b3 ...                  PRINT_RET       ", a heart in his ribcage. And
yet there is no spark of life in him."
23043:  b3 ...                  PRINT_RET       ", heartless and implacable."

Routine 23058, 1 local

23059:  c1 95 2a 60 7d 4a 00 1f JE              G1a,#60,#7d,#4a [FALSE] 2307e
23061:  b3 ...                  PRINT_RET       "The knight dances a jig with
sheer exuberance."
2307e:  c1 95 2a 2e 3c 13 00 e6 JE              G1a,#2e,#3c,#13 [FALSE] 2316a
23086:  c1 8f 30 01 e7 00 df    JE              G20,#01e7 [FALSE] 2316a
2308d:  ca 1f 01 e7 0e 80 d8    TEST_ATTR       "Moonstone",#0e [TRUE] 2316a
23094:  ca 1f 01 ea 08 80 41    TEST_ATTR       "adamantine knight",#08 [TRUE]
230da
2309b:  b3 ...                  PRINT_RET       "The knight understands what is
to be done. But he is world-weary and sad, and not yet in your service."
230da:  cb 1f 01 e7 0e          SET_ATTR        "Moonstone",#0e
230df:  b3 ...                  PRINT_RET       "The knight bows, and pulls the
enormously heavy Moonstone open. He plainly expected it to be effortless, but
by the time he's finished you can almost see ghostly perspiration bead on the
ghostly sinews around his adamantine body."
2316a:  41 2a 26 00 71          JE              G1a,#26 [FALSE] 231de
2316f:  b3 ...                  PRINT_RET       "The knight just about
understands that he is to go somewhere, but cannot quite comprehend the
direction. You'll have to indicate it somehow. (Shame there were no adamantine
ears, really.)"
231de:  41 2a 78 02 b3          JE              G1a,#78 [FALSE] 23494
231e3:  c1 8f 11 01 e6 01 2a    JE              G01,#01e6 [FALSE] 23312
231ea:  41 30 0b 01 25          JE              G20,#0b [FALSE] 23312
231ef:  ca 1f 01 e7 0e 80 25    TEST_ATTR       "Moonstone",#0e [TRUE] 23219
231f6:  b3 ...                  PRINT_RET       "The knight is unable to walk
straight through the Moonstone."
23219:  89 01 ea                REMOVE_OBJ      "adamantine knight"
2321c:  ce 4f 1c 01 e6          INSERT_OBJ      "Life","Parish Church"
23221:  ce 4f 1d 01 e6          INSERT_OBJ      "Death","Parish Church"
23226:  ce 4f 1e 01 e6          INSERT_OBJ      "Love","Parish Church"
2322b:  ce 0f 01 e7 01 e6       INSERT_OBJ      "Moonstone","Parish Church"
23231:  b3 ...                  PRINT_RET       "The knight strides down into
the underworld beneath the Moonstone, to be lost to your sight... forever?

For even he has not life force enough to hold together in the mists: his
skeleton begins to clatter away to nothing, falling in all directions, his
heart, hand and skull returning Somehow to your feet. And they are altering,
altering even as you look down into the void..."
23312:  0d 01 00                STORE           L00,#00
23315:  c1 8f 11 01 e6 00 a8    JE              G01,#01e6 [FALSE] 233c2
2331c:  41 30 03 00 07          JE              G20,#03 [FALSE] 23326
23321:  cd 4f 01 01 dd          STORE           L00,#01dd
23326:  41 30 04 00 07          JE              G20,#04 [FALSE] 23330
2332b:  cd 4f 01 01 eb          STORE           L00,#01eb
23330:  41 30 05 00 07          JE              G20,#05 [FALSE] 2333a
23335:  cd 4f 01 01 e8          STORE           L00,#01e8
2333a:  41 30 0a 00 85          JE              G20,#0a [FALSE] 233c2
2333f:  b3 ...                  PRINT_RET       "Somewhat comically, the knight
is too bulky to squeeze into the staircase. After a moment or two of watching
an immovable object fighting it out with an irresistable force, you point back,
and the knight returns, chastened."
233c2:  c1 8f 11 01 eb 00 0c    JE              G01,#01eb [FALSE] 233d3
233c9:  41 30 05 00 07          JE              G20,#05 [FALSE] 233d3
233ce:  cd 4f 01 01 e6          STORE           L00,#01e6
233d3:  c1 8f 11 01 e8 00 0c    JE              G01,#01e8 [FALSE] 233e4
233da:  41 30 04 00 07          JE              G20,#04 [FALSE] 233e4
233df:  cd 4f 01 01 e6          STORE           L00,#01e6
233e4:  41 01 00 00 1b          JE              L00,#00 [FALSE] 23402
233e9:  b3 ...                  PRINT_RET       "The knight shakes his head,
solemnly."
23402:  c1 8f 01 01 dd 00 1b    JE              L00,#01dd [FALSE] 23422
23409:  b3 ...                  PRINT_RET       "The knight won't leave sacred
ground."
23422:  ce 2f 01 ea 01          INSERT_OBJ      "adamantine knight",L00
23427:  c1 8f 01 01 eb 00 11    JE              L00,#01eb [FALSE] 2343d
2342e:  e3 13 01 ea 11 ed f1    PUT_PROP        "adamantine knight",#11,S933
23435:  ce 2f 01 ec 01          INSERT_OBJ      "statue of Diana",L00
2343a:  8c 00 1b                JUMP            23456
2343d:  c6 0f 01 2f 01 ea 00 0c JIN             "marble rose","adamantine
knight" [FALSE] 2344f
23445:  e3 13 01 ea 11 ed f8    PUT_PROP        "adamantine knight",#11,S934
2344c:  8c 00 09                JUMP            23456
2344f:  e3 13 01 ea 11 ed fd    PUT_PROP        "adamantine knight",#11,S935
23456:  b2 ...                  PRINT           "The knight strides boldly away
to the "
2346d:  41 30 02 00 09          JE              G20,#02 [FALSE] 23479
23472:  b3 ...                  PRINT_RET       "north."
23479:  41 30 03 00 09          JE              G20,#03 [FALSE] 23485
2347e:  b3 ...                  PRINT_RET       "south."
23485:  41 30 04 00 07          JE              G20,#04 [FALSE] 2348f
2348a:  b3 ...                  PRINT_RET       "east."
2348f:  b3 ...                  PRINT_RET       "west."
23494:  c1 97 2a 22 1a 00 29    JE              G1a,#22,#1a [FALSE] 234c2
2349b:  c1 8f 31 01 ec 00 22    JE              G21,#01ec [FALSE] 234c2
234a2:  c1 8f 30 01 2f 00 1b    JE              G20,#012f [FALSE] 234c2
234a9:  b3 ...                  PRINT_RET       "The knight likes the idea but
is confused."
234c2:  b3 ...                  PRINT_RET       "The knight is confused.
Perhaps you were a little rough with the skull."

Routine 234ec, 0 locals

234ed:  41 3a 79 00 5b          JE              G2a,#79 [FALSE] 2354b
234f2:  c6 2f 01 ea 11 00 53    JIN             "adamantine knight",G01 [FALSE]
2354a
234f9:  c6 2f 01 2f 2f 00 2b    JIN             "marble rose",G1f [FALSE] 23529
23500:  b3 ...                  PRINT_RET       "The knight has done all he can
for Diana, and is now in your service."
23529:  b3 ...                  PRINT_RET       "The knight is unable to think
how he can serve Diana."
2354a:  b1                      RFALSE
2354b:  b1                      RFALSE

Routine 2354c, 0 locals

2354d:  c1 95 3a 3c 3d 50 00 1b JE              G2a,#3c,#3d,#50 [FALSE] 2356e
23555:  b3 ...                  PRINT_RET       "You ring an amateurish,
jangling peal."
2356e:  b1                      RFALSE

Routine 23570, 0 locals

23571:  b2 ...                  PRINT           "You slither down a bell rope,
noisily...
"
2358e:  8b 01 ed                RET             #01ed

Routine 23594, 6 locals

23595:  0d 03 00                STORE           L02,#00
23598:  01 01 01 00 57          JE              #01,#01 [FALSE] 235f2
2359d:  0d 05 01                STORE           L04,#01
235a0:  0d 06 00                STORE           L05,#00
235a3:  6f 01 03 00             LOADW           L00,L02 -> -(SP)
235a7:  c1 8f 00 ff ff 00 03    JE              (SP)+,#ffff [FALSE] 235af
235ae:  b1                      RFALSE
235af:  6f 01 03 00             LOADW           L00,L02 -> -(SP)
235b3:  42 00 14 00 11          JL              (SP)+,#14 [FALSE] 235c7
235b8:  6f 01 03 00             LOADW           L00,L02 -> -(SP)
235bc:  42 00 00 80 08          JL              (SP)+,#00 [TRUE] 235c7
235c1:  6f 01 03 05             LOADW           L00,L02 -> L04
235c5:  95 03                   INC             L02
235c7:  0d 04 00                STORE           L03,#00
235ca:  62 04 05 00 15          JL              L03,L04 [FALSE] 235e2
235cf:  6f 01 03 00             LOADW           L00,L02 -> -(SP)
235d3:  61 02 00 00 05          JE              L01,(SP)+ [FALSE] 235db
235d8:  0d 06 01                STORE           L05,#01
235db:  95 04                   INC             L03
235dd:  95 03                   INC             L02
235df:  8c ff ea                JUMP            235ca
235e2:  41 06 01 00 08          JE              L05,#01 [FALSE] 235ed
235e7:  6f 01 03 00             LOADW           L00,L02 -> -(SP)
235eb:  ab 00                   RET             (SP)+
235ed:  95 03                   INC             L02
235ef:  8c ff a8                JUMP            23598
235f2:  b0                      RTRUE

Routine 235f4, 2 locals

235f5:  e0 0b 8d 65 62 e9 01 02 CALL_VS         23594 (#62e9,L00) -> L01
235fd:  41 02 00 80 06          JE              L01,#00 [TRUE] 23606
23602:  ad 02                   PRINT_PADDR     L01
23604:  bb                      NEW_LINE
23605:  b0                      RTRUE
23606:  e0 0b 8d 65 63 e9 01 00 CALL_VS         23594 (#63e9,L00) -> -(SP)
2360e:  41 00 00 80 51          JE              (SP)+,#00 [TRUE] 23662
23613:  b3 ...                  PRINT_RET       ""That's a question you'd
better put to my colleague in the Other Place," says the demon smoothly. "Try
something else.""
23662:  b2 ...                  PRINT           ""That's not something I am
empowered to answer," says the demon with a nervous glance behind him. "Try
something else."
"
236b1:  b1                      RFALSE

Routine 236b4, 2 locals

236b5:  e0 0b 8d 65 63 e9 01 02 CALL_VS         23594 (#63e9,L00) -> L01
236bd:  41 02 00 80 06          JE              L01,#00 [TRUE] 236c6
236c2:  ad 02                   PRINT_PADDR     L01
236c4:  bb                      NEW_LINE
236c5:  b0                      RTRUE
236c6:  e0 0b 8d 65 62 e9 01 00 CALL_VS         23594 (#62e9,L00) -> -(SP)
236ce:  41 00 00 80 53          JE              (SP)+,#00 [TRUE] 23724
236d3:  b3 ...                  PRINT_RET       ""That's a question you'd
better put to my colleague in the Other Place," says the angel smoothly. "Try
something else."
"
23724:  b2 ...                  PRINT           ""That's not something I am
empowered to answer," says the angel with a beatific smile upward. "Try
something else."
"
23771:  b1                      RFALSE

Routine 23774, 0 locals

23775:  da 1f 97 a4 25          CALL_2N         25e90 (#25)
2377a:  b3 ...                  PRINT_RET       "That direction is not for the
living."

Routine 23790, 1 local

23791:  41 3a 29 01 ef          JE              G2a,#29 [FALSE] 23983
23796:  bb                      NEW_LINE
23797:  ca 1f 01 f3 08 00 27    TEST_ATTR       "demon",#08 [FALSE] 237c3
2379e:  b3 ...                  PRINT_RET       ""Thought what you wanted to
ask yet?" says the demon."
237c3:  d1 1f 01 f3 17 01       GET_PROP        "demon",#17 -> L00
237c9:  43 01 00 00 14          JG              L00,#00 [FALSE] 237e0
237ce:  96 01                   DEC             L00
237d0:  e3 1b 01 f3 17 01       PUT_PROP        "demon",#17,L00
237d6:  43 01 00 00 07          JG              L00,#00 [FALSE] 237e0
237db:  cb 1f 01 f3 08          SET_ATTR        "demon",#08
237e0:  41 01 00 00 45          JE              L00,#00 [FALSE] 23828
237e5:  b3 ...                  PRINT_RET       ""Begone, pipsqueak!  I'll be
seeing you... much later..." says the demon with a memorable smile."
23828:  41 01 01 00 3d          JE              L00,#01 [FALSE] 23868
2382d:  b3 ...                  PRINT_RET       ""All right, toad, you have
one, just one, chance left," says the demon with a memorable smile."
23868:  41 01 02 00 31          JE              L00,#02 [FALSE] 2389c
2386d:  b3 ...                  PRINT_RET       ""Now then, two chances
remaining," says the demon with a memorable smile."
2389c:  b3 ...                  PRINT_RET       ""Good afternoon," says the
demon with a memorable smile. "As a reward for your naked greed, may I welcome
you to our little information service. We try to be as helpful as possible to
explorers who are lost, or can't think how to solve their problems, you know
the kind of thing. So just tell me what you want to know, or show me something
to look at. You get the usual three hints.""
23983:  b1                      RFALSE

Routine 23984, 1 local

23985:  e7 7f 0a 01             RANDOM          #0a -> L00
23989:  41 01 01 00 1f          JE              L00,#01 [FALSE] 239ab
2398e:  b3 ...                  PRINT_RET       "
There is a horrid grinding noise from far away."
239ab:  41 01 02 00 2f          JE              L00,#02 [FALSE] 239dd
239b0:  b3 ...                  PRINT_RET       "
A flash of light sears your eyes, as the sulphurous flames grumble."
239dd:  41 01 03 00 29          JE              L00,#03 [FALSE] 23a09
239e2:  b3 ...                  PRINT_RET       "
You can almost, but not quite, make out the noise of shouting."
23a09:  41 01 04 00 23          JE              L00,#04 [FALSE] 23a2f
23a0e:  b3 ...                  PRINT_RET       "
Thunder and lightning can be heard from the fiery depths."
23a2f:  b1                      RFALSE

Routine 23a30, 0 locals

23a31:  ca 1f 01 f3 08 80 91    TEST_ATTR       "demon",#08 [TRUE] 23ac7
23a38:  d1 1f 01 f3 17 00       GET_PROP        "demon",#17 -> -(SP)
23a3e:  41 00 00 00 15          JE              (SP)+,#00 [FALSE] 23a56
23a43:  b3 ...                  PRINT_RET       ""No hints left, sucker.""
23a56:  b3 ...                  PRINT_RET       ""Under Regulation 3, paragraph
15 (i) clause (f), only one hint per visit to the infernal domain. You'll have
to go away again and come back if you want another. So sorry.""
23ac7:  b1                      RFALSE

Routine 23ac8, 1 local

23ac9:  c1 97 3a 44 46 00 1d    JE              G2a,#44,#46 [FALSE] 23aeb
23ad0:  88 8e 8c 00             CALL_1S         23a30 -> -(SP)
23ad4:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 23ada
23ad9:  b0                      RTRUE
23ada:  d9 2f 8d 7d 32 00       CALL_2S         235f4 (G22) -> -(SP)
23ae0:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 23aea
23ae5:  cc 1f 01 f3 08          CLEAR_ATTR      "demon",#08
23aea:  b0                      RTRUE
23aeb:  c1 8f 3a 01 03 00 1f    JE              G2a,#0103 [FALSE] 23b0f
23af2:  b3 ...                  PRINT_RET       "One does not give orders to
such a character."
23b0f:  c1 97 3a 22 24 00 e1    JE              G2a,#22,#24 [FALSE] 23bf5
23b16:  88 8e 8c 00             CALL_1S         23a30 -> -(SP)
23b1a:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 23b20
23b1f:  b0                      RTRUE
23b20:  b2 ...                  PRINT           "The demon glances lazily at "
23b33:  da 2f 38 4e 30          CALL_2N         e138 (G20)
23b38:  b2 ...                  PRINT           " and rouses himself to say: ""
23b4b:  cc 1f 01 f3 08          CLEAR_ATTR      "demon",#08
23b50:  4a 30 05 00 4f          TEST_ATTR       G20,#05 [FALSE] 23ba2
23b55:  a9 30                   REMOVE_OBJ      G20
23b57:  b2 ...                  PRINT           "Mmm... delicious!"  Sloth and
gluttony... two deadly sins in one minute. His boss will be pleased. ""
23ba2:  51 30 22 01             GET_PROP        G20,#22 -> L00
23ba6:  c1 8f 01 ff ff 00 45    JE              L00,#ffff [FALSE] 23bf0
23bad:  51 30 23 00             GET_PROP        G20,#23 -> -(SP)
23bb1:  c1 8f 00 ff ff 80 25    JE              (SP)+,#ffff [TRUE] 23bdb
23bb8:  b3 ...                  PRINT_RET       "I know about that, but my
counterpart doesn't.""
23bdb:  b3 ...                  PRINT_RET       "I know just what that's for.""
23bf0:  ad 01                   PRINT_PADDR     L00
23bf2:  b3 ...                  PRINT_RET       """
23bf5:  b1                      RFALSE

Routine 23bf8, 0 locals

23bf9:  da 1f 97 a4 1b          CALL_2N         25e90 (#1b)
23bfe:  b3 ...                  PRINT_RET       "That direction is not for the
living."

Routine 23c14, 0 locals

23c15:  41 3a 76 00 13          JE              G2a,#76 [FALSE] 23c2b
23c1a:  b3 ...                  PRINT_RET       "The clouds are too fluffy."
23c2b:  b1                      RFALSE

Routine 23c2c, 1 local

23c2d:  41 3a 29 01 f7          JE              G2a,#29 [FALSE] 23e27
23c32:  bb                      NEW_LINE
23c33:  ca 1f 01 f5 08 00 25    TEST_ATTR       "angel",#08 [FALSE] 23c5d
23c3a:  b3 ...                  PRINT_RET       ""Take all the time you need,"
says the angel kindly."
23c5d:  d1 1f 01 f5 17 01       GET_PROP        "angel",#17 -> L00
23c63:  43 01 00 00 14          JG              L00,#00 [FALSE] 23c7a
23c68:  96 01                   DEC             L00
23c6a:  e3 1b 01 f5 17 01       PUT_PROP        "angel",#17,L00
23c70:  43 01 00 00 07          JG              L00,#00 [FALSE] 23c7a
23c75:  cb 1f 01 f5 08          SET_ATTR        "angel",#08
23c7a:  41 01 00 00 49          JE              L00,#00 [FALSE] 23cc6
23c7f:  b3 ...                  PRINT_RET       ""I'm afraid I can be of no
further use to you!  See you in another life," says the angel with a memorable
smile."
23cc6:  41 01 01 00 2f          JE              L00,#01 [FALSE] 23cf8
23ccb:  b3 ...                  PRINT_RET       ""You have one remaining
question," says the angel with a memorable smile."
23cf8:  41 01 02 00 2f          JE              L00,#02 [FALSE] 23d2a
23cfd:  b3 ...                  PRINT_RET       ""A whole two questions left,"
says the angel with a memorable smile."
23d2a:  b3 ...                  PRINT_RET       ""Good day," says the angel
with a memorable smile. "As a reward for your act of faith, may I welcome you
to our little information service. We try to be as helpful as possible to
explorers who are lost, or can't think how to solve their problems. Is there
anything, pray, which you would like a hint about, or which you'd like to show
me?  You are permitted three hints in all, in accordance with standard
practice.""
23e27:  b1                      RFALSE

Routine 23e28, 1 local

23e29:  e7 7f 0a 01             RANDOM          #0a -> L00
23e2d:  41 01 01 00 2d          JE              L00,#01 [FALSE] 23e5d
23e32:  b3 ...                  PRINT_RET       "
Angels with harps float by, gossiping about you in a kindly way."
23e5d:  41 01 02 00 21          JE              L00,#02 [FALSE] 23e81
23e62:  b3 ...                  PRINT_RET       "
Babies float by, just counting their toes."
23e81:  41 01 03 00 29          JE              L00,#03 [FALSE] 23ead
23e86:  b3 ...                  PRINT_RET       "
Burnished-gold sunlight strokes the tops of the clouds here."
23ead:  41 01 04 00 2b          JE              L00,#04 [FALSE] 23edb
23eb2:  b3 ...                  PRINT_RET       "
The choir invisible almost, for a moment, becomes audible."
23edb:  b1                      RFALSE

Routine 23edc, 0 locals

23edd:  ca 1f 01 f5 08 80 91    TEST_ATTR       "angel",#08 [TRUE] 23f73
23ee4:  d1 1f 01 f5 17 00       GET_PROP        "angel",#17 -> -(SP)
23eea:  41 00 00 00 15          JE              (SP)+,#00 [FALSE] 23f02
23eef:  b3 ...                  PRINT_RET       ""No hints left, alas.""
23f02:  b3 ...                  PRINT_RET       ""Under Regulation 3, paragraph
15 (i) clause (f), only one hint per visit to the sacred domain. You'll have to
go away again and come back if you want another. So sorry.""
23f73:  b1                      RFALSE

Routine 23f74, 1 local

23f75:  c1 97 3a 44 46 00 1d    JE              G2a,#44,#46 [FALSE] 23f97
23f7c:  88 8f b7 00             CALL_1S         23edc -> -(SP)
23f80:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 23f86
23f85:  b0                      RTRUE
23f86:  d9 2f 8d ad 32 00       CALL_2S         236b4 (G22) -> -(SP)
23f8c:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 23f96
23f91:  cc 1f 01 f3 08          CLEAR_ATTR      "demon",#08
23f96:  b0                      RTRUE
23f97:  c1 8f 3a 01 03 00 1f    JE              G2a,#0103 [FALSE] 23fbb
23f9e:  b3 ...                  PRINT_RET       "One does not give orders to
such a character."
23fbb:  c1 97 3a 22 24 00 95    JE              G2a,#22,#24 [FALSE] 24055
23fc2:  88 8f b7 00             CALL_1S         23edc -> -(SP)
23fc6:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 23fcc
23fcb:  b0                      RTRUE
23fcc:  b2 ...                  PRINT           "The angel looks keenly at "
23fdd:  da 2f 38 4e 30          CALL_2N         e138 (G20)
23fe2:  b2 ...                  PRINT           " and rouses himself to say: ""
23ff5:  cc 1f 01 f5 08          CLEAR_ATTR      "angel",#08
23ffa:  51 30 23 01             GET_PROP        G20,#23 -> L00
23ffe:  c1 8f 01 ff ff 00 4d    JE              L00,#ffff [FALSE] 24050
24005:  51 30 22 00             GET_PROP        G20,#22 -> -(SP)
24009:  c1 8f 00 ff ff 80 27    JE              (SP)+,#ffff [TRUE] 24035
24010:  b3 ...                  PRINT_RET       "I suppose you could ask, um,
that tailed gentleman.""
24035:  b3 ...                  PRINT_RET       "I'm afraid I can't help you
there.""
24050:  ad 01                   PRINT_PADDR     L00
24052:  b3 ...                  PRINT_RET       """
24055:  b1                      RFALSE

Routine 24058, 0 locals

24059:  41 3a 48 00 09          JE              G2a,#48 [FALSE] 24065
2405e:  f9 1b 36 0d 6f 2f       CALL_VN         d834 (#6f,G1f)
24064:  b0                      RTRUE
24065:  b1                      RFALSE

Routine 24068, 0 locals
    Action routine for:
        "help"

24069:  41 7d 00 01 01          JE              G6d,#00 [FALSE] 2416d
2406e:  b3 ...                  PRINT_RET       "Newcomers to the game may like
to try the following:

  "help instructions"   which gives some basic information,
  "help commands"       details some common commands,
  "help credits"        runs the game credits,
  "help legal"          makes some legal disclaimers; or
  "help inform"         which advertises the compiler Inform,
  "help archive"        and the interactive fiction archive."
2416d:  f9 00 36 5f f4 30 90 5f 90 91
                               CALL_VN         d97c (S1036,#905f,#9091)
24177:  0d 90 01                STORE           G80,#01
2417a:  b0                      RTRUE

Routine 2417c, 0 locals

2417d:  41 81 00 00 0c          JE              G71,#00 [FALSE] 2418c
24182:  0d 7f 03                STORE           G6f,#03
24185:  cd 4f 80 f4 6c          STORE           G70,S1037
2418a:  9b 07                   RET             #07
2418c:  41 81 01 00 0a          JE              G71,#01 [FALSE] 24199
24191:  0d 7f 06                STORE           G6f,#06
24194:  cd 4f 80 f4 6d          STORE           G70,S1038
24199:  41 81 02 00 0a          JE              G71,#02 [FALSE] 241a6
2419e:  0d 7f 04                STORE           G6f,#04
241a1:  cd 4f 80 f4 6f          STORE           G70,S1039
241a6:  41 81 03 00 0a          JE              G71,#03 [FALSE] 241b3
241ab:  0d 7f 08                STORE           G6f,#08
241ae:  cd 4f 80 f4 71          STORE           G70,S1040
241b3:  41 81 04 00 0a          JE              G71,#04 [FALSE] 241c0
241b8:  0d 7f 06                STORE           G6f,#06
241bb:  cd 4f 80 f4 74          STORE           G70,S1041
241c0:  41 81 05 00 0a          JE              G71,#05 [FALSE] 241cd
241c5:  0d 7f 05                STORE           G6f,#05
241c8:  cd 4f 80 f4 77          STORE           G70,S1042
241cd:  41 81 06 00 0a          JE              G71,#06 [FALSE] 241da
241d2:  0d 7f 03                STORE           G6f,#03
241d5:  cd 4f 80 f4 7a          STORE           G70,S1043
241da:  41 81 07 00 0a          JE              G71,#07 [FALSE] 241e7
241df:  0d 7f 05                STORE           G6f,#05
241e2:  cd 4f 80 f4 7c          STORE           G70,S1044
241e7:  b0                      RTRUE

Routine 241e8, 0 locals
    Action routine for:
        "help SPECIAL"

241e9:  0d 81 00                STORE           G71,#00
241ec:  c1 8f 32 87 d2 00 05    JE              G22,"instructi" [FALSE] 241f6
241f3:  0d 81 01                STORE           G71,#01
241f6:  c1 8f 32 7b 7b 00 05    JE              G22,"commands" [FALSE] 24200
241fd:  0d 81 02                STORE           G71,#02
24200:  c1 8f 32 7c 38 00 05    JE              G22,"credits" [FALSE] 2420a
24207:  0d 81 03                STORE           G71,#03
2420a:  c1 8f 32 94 5f 00 05    JE              G22,"release" [FALSE] 24214
24211:  0d 81 04                STORE           G71,#04
24214:  c1 8f 32 89 ca 00 05    JE              G22,"legal" [FALSE] 2421e
2421b:  0d 81 05                STORE           G71,#05
2421e:  c1 8f 32 87 9c 00 05    JE              G22,"inform" [FALSE] 24228
24225:  0d 81 06                STORE           G71,#06
24228:  c1 8f 32 75 66 00 05    JE              G22,"archive" [FALSE] 24232
2422f:  0d 81 07                STORE           G71,#07
24232:  41 81 00 00 08          JE              G71,#00 [FALSE] 2423d
24237:  8f 90 1a                CALL_1N         24068
2423a:  8c 00 07                JUMP            24242
2423d:  da 2f 90 91 81          CALL_2N         24244 (G71)
24242:  b0                      RTRUE

Routine 24244, 0 locals

24245:  41 81 01 02 b4          JE              G71,#01 [FALSE] 244fc
2424a:  b2 ...                  PRINT           "
Welcome to the world of CURSES, an Advanced interactive Adventure game...

"
24283:  b2 ...                  PRINT           "The scene is set initially in
the present day, at Meldrew Hall, an old family seat in the shires of England.
You play the part of the current heir to the house. (This doesn't make your
family rich aristocrats - just people who suffer very badly from inheritance
tax.)

Remember, your only aim is to find that map of Paris so you can go on holiday -
try not to get diverted by any enormous quests. Still, it would be interesting
to find out:
"
2438c:  b2 ...                  PRINT           "
  Just how realistic are the Tarot cards?
  What do sixth century politics have to do with you?
  Surely Greek myths can't come into this?
  What on earth is wrong with your entire family?
  Do the National Trust have sinister motives?
  Why is it so hard to go to church these days?
  What are daisies for?  Or goats, for that matter?
  Can modernist poetry really be bad for you?
  Should you rescue someone who doesn't want you to?

"
244a7:  b3 ...                  PRINT_RET       "To finally understand the
secret, you will need to reach the Master Game, a concluding game-within-a-game
buried deep in the past. Good luck!"
244fc:  41 81 02 0d 49          JE              G71,#02 [FALSE] 25248
24501:  b2 ...                  PRINT           "Basic commands consist either
of a verb on its own, or a verb with one or more nouns. For instance, to see
where you are type "look". Some verbs can also have more elaborate forms; for
instance you could also look at, inside or under something. "Curses"
understands about 1200 English words, so most reasonable synonyms are allowed.

To pick something up, "take thing" and to drop it again, "drop thing". To see
what you have, type "take inventory" or just "inventory". You can move about
with commands such as "go west", or just "west" for short. (It is assumed that
you are blessed with an excellent sense of direction.)

"
2468e:  b2 ...                  PRINT           "Some commands can act on more
than one thing. You can "drop all", which will drop everything (except things
you're wearing), for instance. Or if you found a packing case with a number of
things in, you could type such things as:

    remove everything but the blue key
    get all the coins except ten, twenty and fifty

(Containers may also be emptied or emptied into each other.)  If you are not
explicit enough, sometimes the game can infer what you mean, but at other times
it will ask for further details. It might have replied to the first line above
by saying

    (from the yellow packing case)

"
247ff:  b2 ...                  PRINT           "so that you know what has been
assumed on your behalf. If there had been two blue keys you might reasonably
have meant, it would reply with something like

    Which do you mean, the blue doorkey or the Blue Moon Agency key?

You may either tell it which, or else give up and do something else instead. If
you don't mind which key, you can always say something such as:

    drop a key into the slot

and the game will make a sensible choice and tell you what it was.

"
24924:  b2 ...                  PRINT           ""Curses" sometimes assumes
commands which you implicitly make, but always tells you what they are in
brackets. For instance:

    >look up bach in book
    (first taking the Encyclopaedia of Composers)
    (putting the tuning fork in the rucksack to make room)
    "J. S. Bach (1685-1750) had a pet aardvark called Nigel...

"
24a03:  b2 ...                  PRINT           ""it" refers to the last thing
manipulated, "him" and "her" to anyone obvious in the room; "pronouns" will
tell you what they currently mean, if in doubt. "again" repeats the last
command.

You can "save", "restore" or "restart" the game at any time, or indeed "quit"
or ask for your "score", which also tells the time. "fullscore" or "full" gives
a breakdown of the score. As an aide-memoire the command "objects" tells you
where you left things you once had, and "places" says where you have been. "
24b44:  b2 ...                  PRINT           "If you want to check that your
copy of the game file is intact (and not, for instance, corrupted by some
file-transfer process you used to get it), you can "verify" it. These commands
do not take up any game time, and nor does anything the game didn't understand.

"
24be5:  b2 ...                  PRINT           "Some jaundiced players tire of
long descriptions of places, and they can type "short" (or "superbrief") to
make the game only give short ones. Amnesiac players, on the other hand, may
like to use "long" (or "verbose") to give only long ones. Either kind can go
back to the usual state of affairs with "normal" (or "brief"). There are also
two kinds of inventory: "inventory wide" and "inventory tall".

"
24cec:  b2 ...                  PRINT           "This Advanced story file
employs special effects such as "
24d11:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
24d14:  b2 ...                  PRINT           "bold face"
24d1b:  f1 7f 00                SET_TEXT_STYLE  ROMAN
24d1e:  b2 ...                  PRINT           " names of rooms and a more
elaborate status line than usual. Also, less than altogether relevant
quotations pop up from time to time. If these effects do not seem to work
properly on your machine, or are just downright annoying, they can be turned
off with "plain" and on again with "pretty".

"
24dd5:  b2 ...                  PRINT           "From time to time you will be
told that your score has changed: this can be turned off with "notify off",
turned on again with "notify on" or made even more common by "notify full"
(which even tells you about scores accruing from visits to places, unusual
items discovered and the like).

"
24e8a:  b2 ...                  PRINT           "Simple typing mistakes can
sometimes be corrected just by typing "oops" followed by the word you had
intended to type, so for instance:

    drop fish in buket
    oops bucket

The game knows several useful abbreviations: i for inventory, ne for northeast
(and so on), l for look, g for again, o for oops, x for examine, z for wait
(short for "zzz" - sorry about that).

"
24f77:  b2 ...                  PRINT           "You can sometimes enter larger
objects you find. You might well be able to get in a tractor, for instance,
though driving it around might be harder.

"
24fd2:  b2 ...                  PRINT           "From time to time, you will
wish to speak to other people. If you only have a single word to say, you could
use commands like

    answer yes
    say boo to goose

(Text in quotation marks is not allowed.)  The game will usually guess who you
want to talk to if you miss off the name. A better way to talk, which allows
more complicated remarks, is to use commands such as
"
250b7:  b2 ...                  PRINT           "
    goose, boo
    wine waiter, give me the bill
    ask professor about turtles

though the waiter may have better things to do, and the professor might be
quite mad. Some documents may be consulted in this game. For this, try commands
such as

    look up chlorine
    consult periodic table about argon

"
25176:  b2 ...                  PRINT           "You can give several commands
in a row by use of "then" (or full stops, commas or "and" in some contexts):
so, for instance,

    e, s, get fish then inventory
    e.e.open door.s

"
251ef:  b3 ...                  PRINT_RET       "There are, of course, many
other commands for more specialised circumstances. A final word of warning:
cursing is strictly forbidden in this game."
25248:  41 81 03 06 6a          JE              G71,#03 [FALSE] 258b5
2524d:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
25250:  b2 ...                  PRINT           "CURSES
"
2525b:  f1 7f 00                SET_TEXT_STYLE  ROMAN
2525e:  b2 ...                  PRINT           "An Interactive Diversion by
Graham Nelson

Play-testing by Michael Kinyon, Gareth Rees and Richard Tucker

Together with informers: "
252c1:  b2 ...                  PRINT           "Torbjorn Andersson, Julian
Arnold, Jonathan Badger, Greg Bakker, Richard Barnett, Joachim Baumann, Richard
Beigel, Don Blaheta, Martin Braun, Allen Braunsdorf, Otto Christenson, Tomas
Clark, Andrew Clover, Alan Cox, Richard Develyn, Robert Dickau, Paul David
Doherty, Roger Dominick, Koen van der Drift, Ivan Drucker, Jon Drukman, Martin
N. Dunstan, Paul Fletcher, Richard Forster, Ron Galicia, Allen Garvin, Chris
Goedde, Peter Grundy, Mark "Guido" Guidarelli, David Horowitz, Will Hurwood,
Hakan Huss, Randy Hutson, Darin Johnson, Stefan Jokisch, Brad Jones, Jose
Kahan, Darius Katz, Dennis S. Keeler, Andrew Kemp, John W. Kennedy, Peter
Killworth, Marnix Klooster, Mark Knibbs, Teo Kwang Liak, Matthew J. MacKenzie,
Chris Mann, Chris Markwyn, David McGrath, M. Sean Molley, Byron Montgomerie,
David Moore, Carl Muckenhoupt, Christine Nelson, Toby Nelson, Carrie O'Grady,
Michael A. Patton, Morten Holm Pederson, Mark Phillips, Neil Querengesser,
Mason Reed, Robert Rendell, Loren Rittle, Luke Roberts, John Rodriguez,
Kathleen Rudden, Bryan Scattergood, Bernd Schmitt, Rene Schneer, Alison Scott,
Mike Scott, Matthew Selby, Dilip Sequeira, David Sinclair, Suzanne Skinner,
David Stephenson, Robert Stone, Nyko Tyni, David VanBronkhorst, Andrew
Vesperman, Hao-yang Wang, Robin Watts, John West, Christopher A. Wichura,
Graham Willmott, Andrew Wren, Brendon Wyber, Jeff Zahn and Zhang Genglue.

"
256e2:  b2 ...                  PRINT           "Apologies and acknowledgements
to: the late Mr T. S. Eliot, the Oxford History of England, Philip Vellacott's
translations of the Greek plays and the guidebooks of the British Museum; "
2575f:  b2 ...                  PRINT           "Edouard Poor, for porting
interpreters to the Acorn Archimedes; "
2578a:  b2 ...                  PRINT           "and Volker Blasius, for
keeping the if-archive.

"
257ad:  b2 ...                  PRINT           "Coffee mugs fired by: Helena
Verrill.

"
257cc:  b2 ...                  PRINT           "Genealogy and photography
associate: Peter Nelson.

"
257f3:  b2 ...                  PRINT           "Ancient Greek cultural attache
and daisy chain consultant: Dr L. J. Coventry.

"
2582e:  b3 ...                  PRINT_RET       "Archaeology: the
InfoTaskForce, Paul David Doherty and Mark Howell, without whose excavations
Inform could not have been written. If I have hacked deeper than them, it is
because I stand in their trenches."
258b5:  41 81 04 01 d2          JE              G71,#04 [FALSE] 25a8a
258ba:  8f 38 9a                CALL_1N         e268
258bd:  b2 ...                  PRINT           "
Release 16 is the eighth public release of "Curses". Its major previous
releases were as follows:

"
25902:  b2 ...                  PRINT           "   Release 7 / 930428   (the
original and still the worst)
   Release 8 / 930603   (much enhanced, slightly larger)
   Release 9 / 931111   (extended by about 20%)
   Release 10 / 940120  (tidied up a little)
   Release 12 / 940601  (a major extension)
   Release 14 / 950522  (first edition of the rewrite)

"
259fd:  b3 ...                  PRINT_RET       "For Release 14 the entire
source code was "digitally remastered", so to speak: rewritten and tidied up
into Inform 5 code which properly uses the Library. Since then, the author has
only been maintaining and correcting."
25a8a:  41 81 05 01 5b          JE              G71,#05 [FALSE] 25be8
25a8f:  8f 38 9a                CALL_1N         e268
25a92:  b2 ...                  PRINT           "
This story file is copyright (c) Graham Nelson 1993, 1994, 1995, but may be
freely distributed and used provided no profit is involved and provided it is
not modified in any way. "
25b0b:  b3 ...                  PRINT_RET       "It contains no fragments of
code written by anyone other than the author. The author was extremely tempted
to hide an important clue here, but thought better of it. No trade marks are
(knowingly) used. All characters and locations are imaginary, and any
resemblance to real persons (living after 1900) or places (except in antiquity)
is accidental."
25be8:  41 81 06 01 78          JE              G71,#06 [FALSE] 25d63
25bed:  b2 ...                  PRINT           ""Inform" is an Adventure game
compiler written by the author, and was once "Curses"' Siamese twin but has now
taken on an independent life of its own. It takes a C-like source (this game
takes up about 18600 lines, or 750K) to produce story files which can be played
on almost any modern computer. ("Curses" has been played on Acorns, PCs, Macs,
Amigas, Ataris, Suns, NeXTs, Psions, VAX and IBM mainframes and many other
machines.)

"
25d16:  b3 ...                  PRINT_RET       "Documentation, source code (in
ANSI C) and examples for Inform are available to the public: see "help
archive"."
25d63:  41 81 07 01 27          JE              G71,#07 [FALSE] 25e8d
25d68:  b3 ...                  PRINT_RET       "There is an archive of
"interactive fiction" like this at the anonymous FTP site "ftp.gmd.de", in its
"if-archive", currently maintained by Volker Blasius. The archive contains the
work of many people, including source for interpreters capable of playing games
like this on almost any computer.

"Curses" itself, and the ANSI C source for its compiler "Inform", together with
manuals in a choice of formats and code for several example games, are archived
there."
25e8d:  b0                      RTRUE

Routine 25e90, 1 local

25e91:  d0 2f 65 25 01 00       LOADB           #6525,L00 -> -(SP)
25e97:  41 00 00 00 0b          JE              (SP)+,#00 [FALSE] 25ea5
25e9c:  e2 27 65 25 01 01       STOREB          #6525,L00,#01
25ea2:  2d bf 01                STORE           Gaf,L00
25ea5:  b0                      RTRUE

Routine 25ea8, 1 local

25ea9:  0d 90 01                STORE           G80,#01
25eac:  41 01 00 00 21          JE              L00,#00 [FALSE] 25ed0
25eb1:  e1 93 c0 00 f4 7e       STOREW          Gb0,#00,S1045
25eb7:  e1 93 c0 01 f4 85       STOREW          Gb0,#01,S1046
25ebd:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
25ec2:  e1 93 c0 03 f4 8c       STOREW          Gb0,#03,S1047
25ec8:  e0 16 b6 33 04 2b c0 ff CALL_VS         2d8cc (#04,#2b,Gb0) -> Gef
25ed0:  41 01 01 00 2d          JE              L00,#01 [FALSE] 25f00
25ed5:  e1 93 c0 00 f4 93       STOREW          Gb0,#00,S1048
25edb:  e1 93 c0 01 f4 9b       STOREW          Gb0,#01,S1049
25ee1:  e1 93 c0 02 f4 a2       STOREW          Gb0,#02,S1050
25ee7:  e1 93 c0 03 f4 a9       STOREW          Gb0,#03,S1051
25eed:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
25ef2:  e1 93 c0 05 f4 af       STOREW          Gb0,#05,S1052
25ef8:  e0 16 b6 33 06 32 c0 ff CALL_VS         2d8cc (#06,#32,Gb0) -> Gef
25f00:  41 01 02 00 21          JE              L00,#02 [FALSE] 25f24
25f05:  e1 93 c0 00 f4 b7       STOREW          Gb0,#00,S1053
25f0b:  e1 93 c0 01 f4 bd       STOREW          Gb0,#01,S1054
25f11:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
25f16:  e1 93 c0 03 f4 c3       STOREW          Gb0,#03,S1055
25f1c:  e0 16 b6 33 04 28 c0 ff CALL_VS         2d8cc (#04,#28,Gb0) -> Gef
25f24:  41 01 03 00 1b          JE              L00,#03 [FALSE] 25f42
25f29:  e1 93 c0 00 f4 cb       STOREW          Gb0,#00,S1056
25f2f:  e1 97 c0 01 00          STOREW          Gb0,#01,#00
25f34:  e1 93 c0 02 f4 d3       STOREW          Gb0,#02,S1057
25f3a:  e0 16 b6 33 03 2a c0 ff CALL_VS         2d8cc (#03,#2a,Gb0) -> Gef
25f42:  41 01 04 00 2d          JE              L00,#04 [FALSE] 25f72
25f47:  e1 93 c0 00 f4 d9       STOREW          Gb0,#00,S1058
25f4d:  e1 93 c0 01 f4 de       STOREW          Gb0,#01,S1059
25f53:  e1 93 c0 02 f4 e3       STOREW          Gb0,#02,S1060
25f59:  e1 93 c0 03 f4 e8       STOREW          Gb0,#03,S1061
25f5f:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
25f64:  e1 93 c0 05 f4 ed       STOREW          Gb0,#05,S1062
25f6a:  e0 16 b6 33 06 23 c0 ff CALL_VS         2d8cc (#06,#23,Gb0) -> Gef
25f72:  41 01 05 00 27          JE              L00,#05 [FALSE] 25f9c
25f77:  e1 93 c0 00 f4 f3       STOREW          Gb0,#00,S1063
25f7d:  e1 93 c0 01 f4 fb       STOREW          Gb0,#01,S1064
25f83:  e1 93 c0 02 f5 03       STOREW          Gb0,#02,S1065
25f89:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
25f8e:  e1 93 c0 04 f5 09       STOREW          Gb0,#04,S1066
25f94:  e0 16 b6 33 05 33 c0 ff CALL_VS         2d8cc (#05,#33,Gb0) -> Gef
25f9c:  41 01 06 00 21          JE              L00,#06 [FALSE] 25fc0
25fa1:  e1 93 c0 00 f5 0d       STOREW          Gb0,#00,S1067
25fa7:  e1 93 c0 01 f5 11       STOREW          Gb0,#01,S1068
25fad:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
25fb2:  e1 93 c0 03 f5 16       STOREW          Gb0,#03,S1069
25fb8:  e0 16 b6 33 04 1c c0 ff CALL_VS         2d8cc (#04,#1c,Gb0) -> Gef
25fc0:  41 01 07 00 21          JE              L00,#07 [FALSE] 25fe4
25fc5:  e1 93 c0 00 f5 1a       STOREW          Gb0,#00,S1070
25fcb:  e1 93 c0 01 f5 1f       STOREW          Gb0,#01,S1071
25fd1:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
25fd6:  e1 93 c0 03 f5 25       STOREW          Gb0,#03,S1072
25fdc:  e0 16 b6 33 04 25 c0 ff CALL_VS         2d8cc (#04,#25,Gb0) -> Gef
25fe4:  41 01 08 00 21          JE              L00,#08 [FALSE] 26008
25fe9:  e1 93 c0 00 f5 29       STOREW          Gb0,#00,S1073
25fef:  e1 93 c0 01 f5 2f       STOREW          Gb0,#01,S1074
25ff5:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
25ffa:  e1 93 c0 03 f5 35       STOREW          Gb0,#03,S1075
26000:  e0 16 b6 33 04 2a c0 ff CALL_VS         2d8cc (#04,#2a,Gb0) -> Gef
26008:  41 01 09 00 21          JE              L00,#09 [FALSE] 2602c
2600d:  e1 93 c0 00 f5 39       STOREW          Gb0,#00,S1076
26013:  e1 93 c0 01 f5 41       STOREW          Gb0,#01,S1077
26019:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2601e:  e1 93 c0 03 f5 49       STOREW          Gb0,#03,S1078
26024:  e0 16 b6 33 04 2e c0 ff CALL_VS         2d8cc (#04,#2e,Gb0) -> Gef
2602c:  41 01 0a 00 27          JE              L00,#0a [FALSE] 26056
26031:  e1 93 c0 00 f5 50       STOREW          Gb0,#00,S1079
26037:  e1 93 c0 01 f5 58       STOREW          Gb0,#01,S1080
2603d:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
26042:  e1 93 c0 03 f5 61       STOREW          Gb0,#03,S1081
26048:  e1 93 c0 04 f5 6a       STOREW          Gb0,#04,S1082
2604e:  e0 16 b6 33 05 33 c0 ff CALL_VS         2d8cc (#05,#33,Gb0) -> Gef
26056:  41 01 0b 00 1b          JE              L00,#0b [FALSE] 26074
2605b:  e1 93 c0 00 f5 6f       STOREW          Gb0,#00,S1083
26061:  e1 97 c0 01 00          STOREW          Gb0,#01,#00
26066:  e1 93 c0 02 f5 74       STOREW          Gb0,#02,S1084
2606c:  e0 16 b6 33 03 1c c0 ff CALL_VS         2d8cc (#03,#1c,Gb0) -> Gef
26074:  41 01 0c 00 27          JE              L00,#0c [FALSE] 2609e
26079:  e1 93 c0 00 f5 7c       STOREW          Gb0,#00,S1085
2607f:  e1 93 c0 01 f5 83       STOREW          Gb0,#01,S1086
26085:  e1 93 c0 02 f5 8b       STOREW          Gb0,#02,S1087
2608b:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
26090:  e1 93 c0 04 f5 91       STOREW          Gb0,#04,S1088
26096:  e0 16 b6 33 05 2f c0 ff CALL_VS         2d8cc (#05,#2f,Gb0) -> Gef
2609e:  41 01 0d 00 21          JE              L00,#0d [FALSE] 260c2
260a3:  e1 93 c0 00 f5 9a       STOREW          Gb0,#00,S1089
260a9:  e1 93 c0 01 f5 a1       STOREW          Gb0,#01,S1090
260af:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
260b4:  e1 93 c0 03 f5 a9       STOREW          Gb0,#03,S1091
260ba:  e0 16 b6 33 04 34 c0 ff CALL_VS         2d8cc (#04,#34,Gb0) -> Gef
260c2:  41 01 0e 00 21          JE              L00,#0e [FALSE] 260e6
260c7:  e1 93 c0 00 f5 b0       STOREW          Gb0,#00,S1092
260cd:  e1 93 c0 01 f5 b9       STOREW          Gb0,#01,S1093
260d3:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
260d8:  e1 93 c0 03 f5 c2       STOREW          Gb0,#03,S1094
260de:  e0 16 b6 33 04 34 c0 ff CALL_VS         2d8cc (#04,#34,Gb0) -> Gef
260e6:  41 01 0f 00 1b          JE              L00,#0f [FALSE] 26104
260eb:  e1 93 c0 00 f5 ca       STOREW          Gb0,#00,S1095
260f1:  e1 97 c0 01 00          STOREW          Gb0,#01,#00
260f6:  e1 93 c0 02 f5 d2       STOREW          Gb0,#02,S1096
260fc:  e0 16 b6 33 03 34 c0 ff CALL_VS         2d8cc (#03,#34,Gb0) -> Gef
26104:  41 01 10 00 2d          JE              L00,#10 [FALSE] 26134
26109:  e1 93 c0 00 f5 d8       STOREW          Gb0,#00,S1097
2610f:  e1 93 c0 01 f5 dc       STOREW          Gb0,#01,S1098
26115:  e1 93 c0 02 f5 e0       STOREW          Gb0,#02,S1099
2611b:  e1 93 c0 03 f5 e2       STOREW          Gb0,#03,S1100
26121:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
26126:  e1 93 c0 05 f5 e6       STOREW          Gb0,#05,S1101
2612c:  e0 16 b6 33 06 1f c0 ff CALL_VS         2d8cc (#06,#1f,Gb0) -> Gef
26134:  41 01 11 00 21          JE              L00,#11 [FALSE] 26158
26139:  e1 93 c0 00 f5 ed       STOREW          Gb0,#00,S1102
2613f:  e1 93 c0 01 f5 f2       STOREW          Gb0,#01,S1103
26145:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2614a:  e1 93 c0 03 f5 f5       STOREW          Gb0,#03,S1104
26150:  e0 16 b6 33 04 1c c0 ff CALL_VS         2d8cc (#04,#1c,Gb0) -> Gef
26158:  41 01 12 00 21          JE              L00,#12 [FALSE] 2617c
2615d:  e1 93 c0 00 f5 fb       STOREW          Gb0,#00,S1105
26163:  e1 93 c0 01 f6 02       STOREW          Gb0,#01,S1106
26169:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2616e:  e1 93 c0 03 f6 08       STOREW          Gb0,#03,S1107
26174:  e0 16 b6 33 04 30 c0 ff CALL_VS         2d8cc (#04,#30,Gb0) -> Gef
2617c:  41 01 13 00 2d          JE              L00,#13 [FALSE] 261ac
26181:  e1 93 c0 00 f6 11       STOREW          Gb0,#00,S1108
26187:  e1 93 c0 01 f6 16       STOREW          Gb0,#01,S1109
2618d:  e1 93 c0 02 f6 1e       STOREW          Gb0,#02,S1110
26193:  e1 93 c0 03 f6 26       STOREW          Gb0,#03,S1111
26199:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2619e:  e1 93 c0 05 f6 2b       STOREW          Gb0,#05,S1112
261a4:  e0 16 b6 33 06 30 c0 ff CALL_VS         2d8cc (#06,#30,Gb0) -> Gef
261ac:  41 01 14 00 21          JE              L00,#14 [FALSE] 261d0
261b1:  e1 93 c0 00 f6 33       STOREW          Gb0,#00,S1113
261b7:  e1 93 c0 01 f6 3b       STOREW          Gb0,#01,S1114
261bd:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
261c2:  e1 93 c0 03 f6 43       STOREW          Gb0,#03,S1115
261c8:  e0 16 b6 33 04 30 c0 ff CALL_VS         2d8cc (#04,#30,Gb0) -> Gef
261d0:  41 01 15 00 27          JE              L00,#15 [FALSE] 261fa
261d5:  e1 93 c0 00 f6 49       STOREW          Gb0,#00,S1116
261db:  e1 93 c0 01 f6 4f       STOREW          Gb0,#01,S1117
261e1:  e1 93 c0 02 f6 56       STOREW          Gb0,#02,S1118
261e7:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
261ec:  e1 93 c0 04 f6 5c       STOREW          Gb0,#04,S1119
261f2:  e0 16 b6 33 05 2f c0 ff CALL_VS         2d8cc (#05,#2f,Gb0) -> Gef
261fa:  41 01 16 00 2d          JE              L00,#16 [FALSE] 2622a
261ff:  e1 93 c0 00 f6 66       STOREW          Gb0,#00,S1120
26205:  e1 93 c0 01 f6 6a       STOREW          Gb0,#01,S1121
2620b:  e1 93 c0 02 f6 70       STOREW          Gb0,#02,S1122
26211:  e1 93 c0 03 f6 75       STOREW          Gb0,#03,S1123
26217:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2621c:  e1 93 c0 05 f6 7a       STOREW          Gb0,#05,S1124
26222:  e0 16 b6 33 06 1f c0 ff CALL_VS         2d8cc (#06,#1f,Gb0) -> Gef
2622a:  41 01 17 00 27          JE              L00,#17 [FALSE] 26254
2622f:  e1 93 c0 00 f6 81       STOREW          Gb0,#00,S1125
26235:  e1 93 c0 01 f6 89       STOREW          Gb0,#01,S1126
2623b:  e1 93 c0 02 f6 8e       STOREW          Gb0,#02,S1127
26241:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
26246:  e1 93 c0 04 f6 94       STOREW          Gb0,#04,S1128
2624c:  e0 16 b6 33 05 34 c0 ff CALL_VS         2d8cc (#05,#34,Gb0) -> Gef
26254:  41 01 18 00 21          JE              L00,#18 [FALSE] 26278
26259:  e1 93 c0 00 f6 9b       STOREW          Gb0,#00,S1129
2625f:  e1 93 c0 01 f6 a1       STOREW          Gb0,#01,S1130
26265:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2626a:  e1 93 c0 03 f6 a8       STOREW          Gb0,#03,S1131
26270:  e0 16 b6 33 04 30 c0 ff CALL_VS         2d8cc (#04,#30,Gb0) -> Gef
26278:  41 01 19 00 2d          JE              L00,#19 [FALSE] 262a8
2627d:  e1 93 c0 00 f6 ac       STOREW          Gb0,#00,S1132
26283:  e1 93 c0 01 f6 af       STOREW          Gb0,#01,S1133
26289:  e1 93 c0 02 f6 b4       STOREW          Gb0,#02,S1134
2628f:  e1 93 c0 03 f6 b9       STOREW          Gb0,#03,S1135
26295:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2629a:  e1 93 c0 05 f6 be       STOREW          Gb0,#05,S1136
262a0:  e0 16 b6 33 06 23 c0 ff CALL_VS         2d8cc (#06,#23,Gb0) -> Gef
262a8:  41 01 1a 00 27          JE              L00,#1a [FALSE] 262d2
262ad:  e1 93 c0 00 f6 c5       STOREW          Gb0,#00,S1137
262b3:  e1 93 c0 01 f6 cd       STOREW          Gb0,#01,S1138
262b9:  e1 93 c0 02 f6 d4       STOREW          Gb0,#02,S1139
262bf:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
262c4:  e1 93 c0 04 f6 da       STOREW          Gb0,#04,S1140
262ca:  e0 16 b6 33 05 34 c0 ff CALL_VS         2d8cc (#05,#34,Gb0) -> Gef
262d2:  41 01 1b 00 21          JE              L00,#1b [FALSE] 262f6
262d7:  e1 93 c0 00 f6 e3       STOREW          Gb0,#00,S1141
262dd:  e1 93 c0 01 f6 e8       STOREW          Gb0,#01,S1142
262e3:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
262e8:  e1 93 c0 03 f6 ef       STOREW          Gb0,#03,S1143
262ee:  e0 16 b6 33 04 2b c0 ff CALL_VS         2d8cc (#04,#2b,Gb0) -> Gef
262f6:  41 01 1c 00 39          JE              L00,#1c [FALSE] 26332
262fb:  e1 93 c0 00 f6 f5       STOREW          Gb0,#00,S1144
26301:  e1 93 c0 01 f6 ff       STOREW          Gb0,#01,S1145
26307:  e1 93 c0 02 f7 07       STOREW          Gb0,#02,S1146
2630d:  e1 93 c0 03 f7 12       STOREW          Gb0,#03,S1147
26313:  e1 93 c0 04 f7 1a       STOREW          Gb0,#04,S1148
26319:  e1 93 c0 05 f7 23       STOREW          Gb0,#05,S1149
2631f:  e1 97 c0 06 00          STOREW          Gb0,#06,#00
26324:  e1 93 c0 07 f7 29       STOREW          Gb0,#07,S1150
2632a:  e0 16 b6 33 08 3c c0 ff CALL_VS         2d8cc (#08,#3c,Gb0) -> Gef
26332:  41 01 1d 00 21          JE              L00,#1d [FALSE] 26356
26337:  e1 93 c0 00 f7 33       STOREW          Gb0,#00,S1151
2633d:  e1 93 c0 01 f7 3a       STOREW          Gb0,#01,S1152
26343:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
26348:  e1 93 c0 03 f7 40       STOREW          Gb0,#03,S1153
2634e:  e0 16 b6 33 04 29 c0 ff CALL_VS         2d8cc (#04,#29,Gb0) -> Gef
26356:  41 01 1e 00 21          JE              L00,#1e [FALSE] 2637a
2635b:  e1 93 c0 00 f7 48       STOREW          Gb0,#00,S1154
26361:  e1 93 c0 01 f7 4f       STOREW          Gb0,#01,S1155
26367:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2636c:  e1 93 c0 03 f7 57       STOREW          Gb0,#03,S1156
26372:  e0 16 b6 33 04 32 c0 ff CALL_VS         2d8cc (#04,#32,Gb0) -> Gef
2637a:  41 01 1f 00 2d          JE              L00,#1f [FALSE] 263aa
2637f:  e1 93 c0 00 f7 5b       STOREW          Gb0,#00,S1157
26385:  e1 93 c0 01 f7 5f       STOREW          Gb0,#01,S1158
2638b:  e1 93 c0 02 f7 63       STOREW          Gb0,#02,S1159
26391:  e1 93 c0 03 f7 69       STOREW          Gb0,#03,S1160
26397:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2639c:  e1 93 c0 05 f7 71       STOREW          Gb0,#05,S1161
263a2:  e0 16 b6 33 06 2f c0 ff CALL_VS         2d8cc (#06,#2f,Gb0) -> Gef
263aa:  41 01 20 00 2d          JE              L00,#20 [FALSE] 263da
263af:  e1 93 c0 00 f7 78       STOREW          Gb0,#00,S1162
263b5:  e1 93 c0 01 f7 7b       STOREW          Gb0,#01,S1163
263bb:  e1 93 c0 02 f7 82       STOREW          Gb0,#02,S1164
263c1:  e1 93 c0 03 f7 88       STOREW          Gb0,#03,S1165
263c7:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
263cc:  e1 93 c0 05 f7 8f       STOREW          Gb0,#05,S1166
263d2:  e0 16 b6 33 06 2e c0 ff CALL_VS         2d8cc (#06,#2e,Gb0) -> Gef
263da:  41 01 21 00 1b          JE              L00,#21 [FALSE] 263f8
263df:  e1 93 c0 00 f7 97       STOREW          Gb0,#00,S1167
263e5:  e1 97 c0 01 00          STOREW          Gb0,#01,#00
263ea:  e1 93 c0 02 f7 9f       STOREW          Gb0,#02,S1168
263f0:  e0 16 b6 33 03 2c c0 ff CALL_VS         2d8cc (#03,#2c,Gb0) -> Gef
263f8:  41 01 22 00 2d          JE              L00,#22 [FALSE] 26428
263fd:  e1 93 c0 00 f7 a4       STOREW          Gb0,#00,S1169
26403:  e1 93 c0 01 f7 ae       STOREW          Gb0,#01,S1170
26409:  e1 93 c0 02 f7 b7       STOREW          Gb0,#02,S1171
2640f:  e1 93 c0 03 f7 c0       STOREW          Gb0,#03,S1172
26415:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2641a:  e1 93 c0 05 f7 c8       STOREW          Gb0,#05,S1173
26420:  e0 16 b6 33 06 36 c0 ff CALL_VS         2d8cc (#06,#36,Gb0) -> Gef
26428:  41 01 23 00 1b          JE              L00,#23 [FALSE] 26446
2642d:  e1 93 c0 00 f7 ce       STOREW          Gb0,#00,S1174
26433:  e1 97 c0 01 00          STOREW          Gb0,#01,#00
26438:  e1 93 c0 02 f7 d5       STOREW          Gb0,#02,S1175
2643e:  e0 16 b6 33 03 2b c0 ff CALL_VS         2d8cc (#03,#2b,Gb0) -> Gef
26446:  41 01 24 00 27          JE              L00,#24 [FALSE] 26470
2644b:  e1 93 c0 00 f7 dd       STOREW          Gb0,#00,S1176
26451:  e1 93 c0 01 f7 e4       STOREW          Gb0,#01,S1177
26457:  e1 93 c0 02 f7 ec       STOREW          Gb0,#02,S1178
2645d:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
26462:  e1 93 c0 04 f7 ef       STOREW          Gb0,#04,S1179
26468:  e0 16 b6 33 05 2f c0 ff CALL_VS         2d8cc (#05,#2f,Gb0) -> Gef
26470:  41 01 25 00 21          JE              L00,#25 [FALSE] 26494
26475:  e1 93 c0 00 f7 f9       STOREW          Gb0,#00,S1180
2647b:  e1 93 c0 01 f7 ff       STOREW          Gb0,#01,S1181
26481:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
26486:  e1 93 c0 03 f8 04       STOREW          Gb0,#03,S1182
2648c:  e0 16 b6 33 04 22 c0 ff CALL_VS         2d8cc (#04,#22,Gb0) -> Gef
26494:  41 01 26 00 21          JE              L00,#26 [FALSE] 264b8
26499:  e1 93 c0 00 f8 0b       STOREW          Gb0,#00,S1183
2649f:  e1 93 c0 01 f8 12       STOREW          Gb0,#01,S1184
264a5:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
264aa:  e1 93 c0 03 f8 1a       STOREW          Gb0,#03,S1185
264b0:  e0 16 b6 33 04 32 c0 ff CALL_VS         2d8cc (#04,#32,Gb0) -> Gef
264b8:  41 01 27 00 21          JE              L00,#27 [FALSE] 264dc
264bd:  e1 93 c0 00 f8 21       STOREW          Gb0,#00,S1186
264c3:  e1 93 c0 01 f8 28       STOREW          Gb0,#01,S1187
264c9:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
264ce:  e1 93 c0 03 f8 2e       STOREW          Gb0,#03,S1188
264d4:  e0 16 b6 33 04 2a c0 ff CALL_VS         2d8cc (#04,#2a,Gb0) -> Gef
264dc:  41 01 28 00 21          JE              L00,#28 [FALSE] 26500
264e1:  e1 93 c0 00 f8 36       STOREW          Gb0,#00,S1189
264e7:  e1 93 c0 01 f8 3e       STOREW          Gb0,#01,S1190
264ed:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
264f2:  e1 93 c0 03 f8 45       STOREW          Gb0,#03,S1191
264f8:  e0 16 b6 33 04 2d c0 ff CALL_VS         2d8cc (#04,#2d,Gb0) -> Gef
26500:  41 01 29 00 2d          JE              L00,#29 [FALSE] 26530
26505:  e1 93 c0 00 f8 4d       STOREW          Gb0,#00,S1192
2650b:  e1 93 c0 01 f8 50       STOREW          Gb0,#01,S1193
26511:  e1 93 c0 02 f8 53       STOREW          Gb0,#02,S1194
26517:  e1 93 c0 03 f8 57       STOREW          Gb0,#03,S1195
2651d:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
26522:  e1 93 c0 05 f8 5a       STOREW          Gb0,#05,S1196
26528:  e0 16 b6 33 06 17 c0 ff CALL_VS         2d8cc (#06,#17,Gb0) -> Gef
26530:  41 01 2a 00 21          JE              L00,#2a [FALSE] 26554
26535:  e1 93 c0 00 f8 5e       STOREW          Gb0,#00,S1197
2653b:  e1 93 c0 01 f8 63       STOREW          Gb0,#01,S1198
26541:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
26546:  e1 93 c0 03 f8 67       STOREW          Gb0,#03,S1199
2654c:  e0 16 b6 33 04 26 c0 ff CALL_VS         2d8cc (#04,#26,Gb0) -> Gef
26554:  41 01 2b 00 39          JE              L00,#2b [FALSE] 26590
26559:  e1 93 c0 00 f8 6f       STOREW          Gb0,#00,S1200
2655f:  e1 93 c0 01 f8 75       STOREW          Gb0,#01,S1201
26565:  e1 93 c0 02 f8 7d       STOREW          Gb0,#02,S1202
2656b:  e1 93 c0 03 f8 83       STOREW          Gb0,#03,S1203
26571:  e1 93 c0 04 f8 8b       STOREW          Gb0,#04,S1204
26577:  e1 93 c0 05 f8 91       STOREW          Gb0,#05,S1205
2657d:  e1 97 c0 06 00          STOREW          Gb0,#06,#00
26582:  e1 93 c0 07 f8 96       STOREW          Gb0,#07,S1206
26588:  e0 16 b6 33 08 32 c0 ff CALL_VS         2d8cc (#08,#32,Gb0) -> Gef
26590:  41 01 2c 00 33          JE              L00,#2c [FALSE] 265c6
26595:  e1 93 c0 00 f8 a0       STOREW          Gb0,#00,S1207
2659b:  e1 93 c0 01 f8 a7       STOREW          Gb0,#01,S1208
265a1:  e1 93 c0 02 f8 ae       STOREW          Gb0,#02,S1209
265a7:  e1 93 c0 03 f8 b5       STOREW          Gb0,#03,S1210
265ad:  e1 93 c0 04 f8 bc       STOREW          Gb0,#04,S1211
265b3:  e1 97 c0 05 00          STOREW          Gb0,#05,#00
265b8:  e1 93 c0 06 f8 c2       STOREW          Gb0,#06,S1212
265be:  e0 16 b6 33 07 2d c0 ff CALL_VS         2d8cc (#07,#2d,Gb0) -> Gef
265c6:  41 01 2d 00 21          JE              L00,#2d [FALSE] 265ea
265cb:  e1 93 c0 00 f8 ca       STOREW          Gb0,#00,S1213
265d1:  e1 93 c0 01 f8 cc       STOREW          Gb0,#01,S1214
265d7:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
265dc:  e1 93 c0 03 f8 d2       STOREW          Gb0,#03,S1215
265e2:  e0 16 b6 33 04 28 c0 ff CALL_VS         2d8cc (#04,#28,Gb0) -> Gef
265ea:  41 01 2e 00 27          JE              L00,#2e [FALSE] 26614
265ef:  e1 93 c0 00 f8 da       STOREW          Gb0,#00,S1216
265f5:  e1 93 c0 01 f8 e1       STOREW          Gb0,#01,S1217
265fb:  e1 93 c0 02 f8 e9       STOREW          Gb0,#02,S1218
26601:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
26606:  e1 93 c0 04 f8 ef       STOREW          Gb0,#04,S1219
2660c:  e0 16 b6 33 05 30 c0 ff CALL_VS         2d8cc (#05,#30,Gb0) -> Gef
26614:  41 01 2f 00 39          JE              L00,#2f [FALSE] 26650
26619:  e1 93 c0 00 f8 f8       STOREW          Gb0,#00,S1220
2661f:  e1 93 c0 01 f8 ff       STOREW          Gb0,#01,S1221
26625:  e1 93 c0 02 f9 04       STOREW          Gb0,#02,S1222
2662b:  e1 93 c0 03 f9 08       STOREW          Gb0,#03,S1223
26631:  e1 93 c0 04 f9 0e       STOREW          Gb0,#04,S1224
26637:  e1 93 c0 05 f9 14       STOREW          Gb0,#05,S1225
2663d:  e1 97 c0 06 00          STOREW          Gb0,#06,#00
26642:  e1 93 c0 07 f9 1b       STOREW          Gb0,#07,S1226
26648:  e0 16 b6 33 08 27 c0 ff CALL_VS         2d8cc (#08,#27,Gb0) -> Gef
26650:  41 01 30 00 33          JE              L00,#30 [FALSE] 26686
26655:  e1 93 c0 00 f9 21       STOREW          Gb0,#00,S1227
2665b:  e1 93 c0 01 f9 29       STOREW          Gb0,#01,S1228
26661:  e1 93 c0 02 f9 30       STOREW          Gb0,#02,S1229
26667:  e1 93 c0 03 f9 37       STOREW          Gb0,#03,S1230
2666d:  e1 93 c0 04 f9 3e       STOREW          Gb0,#04,S1231
26673:  e1 97 c0 05 00          STOREW          Gb0,#05,#00
26678:  e1 93 c0 06 f9 44       STOREW          Gb0,#06,S1232
2667e:  e0 16 b6 33 07 32 c0 ff CALL_VS         2d8cc (#07,#32,Gb0) -> Gef
26686:  b0                      RTRUE

Routine 26688, 3 locals

26689:  41 01 00 00 08          JE              L00,#00 [FALSE] 26694
2668e:  b2 ...                  PRINT           "zero"
26693:  b1                      RFALSE
26694:  42 01 00 00 0b          JL              L00,#00 [FALSE] 266a2
26699:  b2 ...                  PRINT           "minus "
2669e:  35 00 01 01             SUB             #00,L00 -> L00
266a2:  c2 8f 01 03 e8 80 1d    JL              L00,#03e8 [TRUE] 266c4
266a9:  d7 8f 01 03 e8 00       DIV             L00,#03e8 -> -(SP)
266af:  da 2f 99 a2 00          CALL_2N         26688 ((SP)+)
266b4:  b2 ...                  PRINT           " thousand"
266bb:  d8 8f 01 03 e8 01       MOD             L00,#03e8 -> L00
266c1:  0d 03 01                STORE           L02,#01
266c4:  42 01 64 80 21          JL              L00,#64 [TRUE] 266e8
266c9:  41 03 01 00 05          JE              L02,#01 [FALSE] 266d1
266ce:  b2 ...                  PRINT           ", "
266d1:  57 01 64 00             DIV             L00,#64 -> -(SP)
266d5:  da 2f 99 a2 00          CALL_2N         26688 ((SP)+)
266da:  b2 ...                  PRINT           " hundred"
266e1:  58 01 64 01             MOD             L00,#64 -> L00
266e5:  0d 03 01                STORE           L02,#01
266e8:  41 01 00 00 03          JE              L00,#00 [FALSE] 266ee
266ed:  b1                      RFALSE
266ee:  41 03 01 00 07          JE              L02,#01 [FALSE] 266f8
266f3:  b2 ...                  PRINT           " and "
266f8:  42 01 0a 00 08          JL              L00,#0a [FALSE] 26703
266fd:  da 2f 99 fa 01          CALL_2N         267e8 (L00)
26702:  b1                      RFALSE
26703:  42 01 14 80 6f          JL              L00,#14 [TRUE] 26775
26708:  57 01 0a 02             DIV             L00,#0a -> L01
2670c:  41 02 02 00 07          JE              L01,#02 [FALSE] 26716
26711:  b2 ...                  PRINT           "twenty"
26716:  41 02 03 00 07          JE              L01,#03 [FALSE] 26720
2671b:  b2 ...                  PRINT           "thirty"
26720:  41 02 04 00 07          JE              L01,#04 [FALSE] 2672a
26725:  b2 ...                  PRINT           "forty"
2672a:  41 02 05 00 07          JE              L01,#05 [FALSE] 26734
2672f:  b2 ...                  PRINT           "fifty"
26734:  41 02 06 00 07          JE              L01,#06 [FALSE] 2673e
26739:  b2 ...                  PRINT           "sixty"
2673e:  41 02 07 00 09          JE              L01,#07 [FALSE] 2674a
26743:  b2 ...                  PRINT           "seventy"
2674a:  41 02 08 00 07          JE              L01,#08 [FALSE] 26754
2674f:  b2 ...                  PRINT           "eighty"
26754:  41 02 09 00 07          JE              L01,#09 [FALSE] 2675e
26759:  b2 ...                  PRINT           "ninety"
2675e:  58 01 0a 00             MOD             L00,#0a -> -(SP)
26762:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] 26768
26767:  b1                      RFALSE
26768:  b2 ...                  PRINT           "-"
2676b:  58 01 0a 00             MOD             L00,#0a -> -(SP)
2676f:  da 2f 99 fa 00          CALL_2N         267e8 ((SP)+)
26774:  b1                      RFALSE
26775:  41 01 0a 00 06          JE              L00,#0a [FALSE] 2677e
2677a:  b2 ...                  PRINT           "ten"
2677d:  b1                      RFALSE
2677e:  41 01 0b 00 08          JE              L00,#0b [FALSE] 26789
26783:  b2 ...                  PRINT           "eleven"
26788:  b1                      RFALSE
26789:  41 01 0c 00 08          JE              L00,#0c [FALSE] 26794
2678e:  b2 ...                  PRINT           "twelve"
26793:  b1                      RFALSE
26794:  41 01 0d 00 0a          JE              L00,#0d [FALSE] 267a1
26799:  b2 ...                  PRINT           "thirteen"
267a0:  b1                      RFALSE
267a1:  41 01 0e 00 0a          JE              L00,#0e [FALSE] 267ae
267a6:  b2 ...                  PRINT           "fourteen"
267ad:  b1                      RFALSE
267ae:  41 01 0f 00 0a          JE              L00,#0f [FALSE] 267bb
267b3:  b2 ...                  PRINT           "fifteen"
267ba:  b1                      RFALSE
267bb:  41 01 10 00 0a          JE              L00,#10 [FALSE] 267c8
267c0:  b2 ...                  PRINT           "sixteen"
267c7:  b1                      RFALSE
267c8:  41 01 11 00 0a          JE              L00,#11 [FALSE] 267d5
267cd:  b2 ...                  PRINT           "seventeen"
267d4:  b1                      RFALSE
267d5:  41 01 12 00 08          JE              L00,#12 [FALSE] 267e0
267da:  b2 ...                  PRINT           "eighteen"
267df:  b1                      RFALSE
267e0:  b2 ...                  PRINT           "nineteen"
267e7:  b0                      RTRUE

Routine 267e8, 1 local

267e9:  41 01 01 00 06          JE              L00,#01 [FALSE] 267f2
267ee:  b2 ...                  PRINT           "one"
267f1:  b1                      RFALSE
267f2:  41 01 02 00 06          JE              L00,#02 [FALSE] 267fb
267f7:  b2 ...                  PRINT           "two"
267fa:  b1                      RFALSE
267fb:  41 01 03 00 08          JE              L00,#03 [FALSE] 26806
26800:  b2 ...                  PRINT           "three"
26805:  b1                      RFALSE
26806:  41 01 04 00 08          JE              L00,#04 [FALSE] 26811
2680b:  b2 ...                  PRINT           "four"
26810:  b1                      RFALSE
26811:  41 01 05 00 08          JE              L00,#05 [FALSE] 2681c
26816:  b2 ...                  PRINT           "five"
2681b:  b1                      RFALSE
2681c:  41 01 06 00 06          JE              L00,#06 [FALSE] 26825
26821:  b2 ...                  PRINT           "six"
26824:  b1                      RFALSE
26825:  41 01 07 00 08          JE              L00,#07 [FALSE] 26830
2682a:  b2 ...                  PRINT           "seven"
2682f:  b1                      RFALSE
26830:  41 01 08 00 06          JE              L00,#08 [FALSE] 26839
26835:  b2 ...                  PRINT           "eight"
26838:  b1                      RFALSE
26839:  41 01 09 00 08          JE              L00,#09 [FALSE] 26844
2683e:  b2 ...                  PRINT           "nine"
26843:  b1                      RFALSE
26844:  b0                      RTRUE

Routine 26848, 2 locals

26849:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 2684d
2684d:  41 85 00 80 71          JE              G75,#00 [TRUE] 268c1
26852:  c9 8f 84 02 00 00       AND             G74,#0200 -> -(SP)
26858:  41 00 00 80 23          JE              (SP)+,#00 [TRUE] 2687e
2685d:  41 02 00 00 1e          JE              L01,#00 [FALSE] 2687e
26862:  41 01 00 80 17          JE              L00,#00 [TRUE] 2687c
26867:  51 01 0c 00             GET_PROP        L00,#0c -> -(SP)
2686b:  61 00 85 00 07          JE              (SP)+,G75 [FALSE] 26875
26870:  4a 01 19 80 09          TEST_ATTR       L00,#19 [TRUE] 2687c
26875:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 26879
26879:  8c ff e8                JUMP            26862
2687c:  ab 01                   RET             L00
2687e:  c9 8f 84 08 00 00       AND             G74,#0800 -> -(SP)
26884:  41 00 00 80 23          JE              (SP)+,#00 [TRUE] 268aa
26889:  41 01 00 80 1c          JE              L00,#00 [TRUE] 268a8
2688e:  4a 01 02 80 10          TEST_ATTR       L00,#02 [TRUE] 268a1
26893:  4a 01 11 80 0b          TEST_ATTR       L00,#11 [TRUE] 268a1
26898:  51 01 0c 00             GET_PROP        L00,#0c -> -(SP)
2689c:  61 00 85 80 09          JE              (SP)+,G75 [TRUE] 268a8
268a1:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 268a5
268a5:  8c ff e3                JUMP            26889
268a8:  ab 01                   RET             L00
268aa:  41 01 00 80 12          JE              L00,#00 [TRUE] 268bf
268af:  51 01 0c 00             GET_PROP        L00,#0c -> -(SP)
268b3:  61 00 85 80 09          JE              (SP)+,G75 [TRUE] 268bf
268b8:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 268bc
268bc:  8c ff ed                JUMP            268aa
268bf:  ab 01                   RET             L00
268c1:  c9 8f 84 02 00 00       AND             G74,#0200 -> -(SP)
268c7:  41 00 00 80 1a          JE              (SP)+,#00 [TRUE] 268e4
268cc:  41 02 00 00 15          JE              L01,#00 [FALSE] 268e4
268d1:  41 01 00 80 0e          JE              L00,#00 [TRUE] 268e2
268d6:  4a 01 19 80 09          TEST_ATTR       L00,#19 [TRUE] 268e2
268db:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 268df
268df:  8c ff f1                JUMP            268d1
268e2:  ab 01                   RET             L00
268e4:  c9 8f 84 08 00 00       AND             G74,#0800 -> -(SP)
268ea:  41 00 00 80 18          JE              (SP)+,#00 [TRUE] 26905
268ef:  41 01 00 80 13          JE              L00,#00 [TRUE] 26905
268f4:  4a 01 02 80 07          TEST_ATTR       L00,#02 [TRUE] 268fe
268f9:  4a 01 11 00 09          TEST_ATTR       L00,#11 [FALSE] 26905
268fe:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 26902
26902:  8c ff ec                JUMP            268ef
26905:  ab 01                   RET             L00

Routine 26908, 1 local

26909:  49 84 20 00             AND             G74,#20 -> -(SP)
2690d:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 26913
26912:  b0                      RTRUE
26913:  49 84 10 00             AND             G74,#10 -> -(SP)
26917:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] 2691d
2691c:  b1                      RFALSE
2691d:  4a 01 17 80 11          TEST_ATTR       L00,#17 [TRUE] 26931
26922:  4a 01 14 80 0c          TEST_ATTR       L00,#14 [TRUE] 26931
26927:  4a 01 03 00 08          TEST_ATTR       L00,#03 [FALSE] 26932
2692c:  4a 01 0e 00 03          TEST_ATTR       L00,#0e [FALSE] 26932
26931:  b0                      RTRUE
26932:  b1                      RFALSE

Routine 26934, 2 locals

26935:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 26939
26939:  41 00 00 80 0e          JE              (SP)+,#00 [TRUE] 2694a
2693e:  d9 2f 9a 42 01 00       CALL_2S         26908 (L00) -> -(SP)
26944:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 2694a
26949:  b1                      RFALSE
2694a:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 2694e
2694e:  41 00 00 80 0e          JE              (SP)+,#00 [TRUE] 2695f
26953:  d9 2f 9a 42 02 00       CALL_2S         26908 (L01) -> -(SP)
26959:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 2695f
2695e:  b1                      RFALSE
2695f:  14 04 80 00             ADD             #04,#80 -> -(SP)
26963:  69 84 00 00             AND             G74,(SP)+ -> -(SP)
26967:  41 00 00 80 2c          JE              (SP)+,#00 [TRUE] 26996
2696c:  4a 01 1a 80 07          TEST_ATTR       L00,#1a [TRUE] 26976
26971:  4a 02 1a 80 0c          TEST_ATTR       L01,#1a [TRUE] 26980
26976:  4a 02 1a 80 08          TEST_ATTR       L01,#1a [TRUE] 26981
2697b:  4a 01 1a 00 03          TEST_ATTR       L00,#1a [FALSE] 26981
26980:  b1                      RFALSE
26981:  4a 01 09 80 07          TEST_ATTR       L00,#09 [TRUE] 2698b
26986:  4a 02 09 80 0c          TEST_ATTR       L01,#09 [TRUE] 26995
2698b:  4a 02 09 80 08          TEST_ATTR       L01,#09 [TRUE] 26996
26990:  4a 01 09 00 03          TEST_ATTR       L00,#09 [FALSE] 26996
26995:  b1                      RFALSE
26996:  e0 2b 31 74 01 02 00    CALL_VS         c5d0 (L00,L01) -> -(SP)
2699d:  ab 00                   RET             (SP)+

Routine 269a0, 2 locals

269a1:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 269a5
269a5:  41 00 00 80 23          JE              (SP)+,#00 [TRUE] 269cb
269aa:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 269ae
269ae:  51 00 0c 00             GET_PROP        (SP)+,#0c -> -(SP)
269b2:  61 00 02 80 0c          JE              (SP)+,L01 [TRUE] 269c1
269b7:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 269bb
269bb:  4e 00 0c                INSERT_OBJ      (SP)+,"outside"
269be:  8c 00 09                JUMP            269c8
269c1:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 269c5
269c5:  4e 00 0d                INSERT_OBJ      (SP)+,"inside"
269c8:  8c ff d8                JUMP            269a1
269cb:  92 0d 00 c2             GET_CHILD       "inside" -> -(SP) [TRUE] 269cf
269cf:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 269de
269d4:  92 0d 00 c2             GET_CHILD       "inside" -> -(SP) [TRUE] 269d8
269d8:  6e 00 01                INSERT_OBJ      (SP)+,L00
269db:  8c ff ef                JUMP            269cb
269de:  92 0c 00 c2             GET_CHILD       "outside" -> -(SP) [TRUE] 269e2
269e2:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 269f1
269e7:  92 0c 00 c2             GET_CHILD       "outside" -> -(SP) [TRUE] 269eb
269eb:  6e 00 01                INSERT_OBJ      (SP)+,L00
269ee:  8c ff ef                JUMP            269de
269f1:  b0                      RTRUE

Routine 269f4, 4 locals

269f5:  2d 02 01                STORE           L01,L00
269f8:  41 02 00 80 5d          JE              L01,#00 [TRUE] 26a58
269fd:  51 02 0c 03             GET_PROP        L01,#0c -> L02
26a01:  41 03 00 80 4d          JE              L02,#00 [TRUE] 26a51
26a06:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] 26a0a
26a0a:  41 02 00 80 12          JE              L01,#00 [TRUE] 26a1f
26a0f:  51 02 0c 00             GET_PROP        L01,#0c -> -(SP)
26a13:  61 00 03 00 09          JE              (SP)+,L02 [FALSE] 26a1f
26a18:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] 26a1c
26a1c:  8c ff ed                JUMP            26a0a
26a1f:  41 02 00 00 03          JE              L01,#00 [FALSE] 26a25
26a24:  b1                      RFALSE
26a25:  a1 02 04 c2             GET_SIBLING     L01 -> L03 [TRUE] 26a29
26a29:  41 04 00 80 25          JE              L03,#00 [TRUE] 26a51
26a2e:  51 04 0c 00             GET_PROP        L03,#0c -> -(SP)
26a32:  61 00 03 00 15          JE              (SP)+,L02 [FALSE] 26a4a
26a37:  a3 01 00                GET_PARENT      L00 -> -(SP)
26a3a:  f9 2b 9a 68 00 03       CALL_VN         269a0 ((SP)+,L02)
26a40:  a3 01 00                GET_PARENT      L00 -> -(SP)
26a43:  a2 00 01 c2             GET_CHILD       (SP)+ -> L00 [TRUE] 26a47
26a47:  8c ff ad                JUMP            269f5
26a4a:  a1 04 04 c2             GET_SIBLING     L03 -> L03 [TRUE] 26a4e
26a4e:  8c ff da                JUMP            26a29
26a51:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] 26a55
26a55:  8c ff a2                JUMP            269f8
26a58:  b0                      RTRUE

Routine 26a5c, 3 locals

26a5d:  a3 01 00                GET_PARENT      L00 -> -(SP)
26a60:  a2 00 00 c2             GET_CHILD       (SP)+ -> -(SP) [TRUE] 26a64
26a64:  61 01 00 00 0e          JE              L00,(SP)+ [FALSE] 26a75
26a69:  da 2f 9a 7d 01          CALL_2N         269f4 (L00)
26a6e:  a3 01 00                GET_PARENT      L00 -> -(SP)
26a71:  a2 00 01 c2             GET_CHILD       (SP)+ -> L00 [TRUE] 26a75
26a75:  2d 84 02                STORE           G74,L01
26a78:  c9 8f 02 02 00 00       AND             L01,#0200 -> -(SP)
26a7e:  41 00 00 80 16          JE              (SP)+,#00 [TRUE] 26a97
26a83:  41 01 00 80 0e          JE              L00,#00 [TRUE] 26a94
26a88:  4a 01 19 80 09          TEST_ATTR       L00,#19 [TRUE] 26a94
26a8d:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 26a91
26a91:  8c ff f1                JUMP            26a83
26a94:  8c 00 23                JUMP            26ab8
26a97:  c9 8f 84 08 00 00       AND             G74,#0800 -> -(SP)
26a9d:  41 00 00 80 18          JE              (SP)+,#00 [TRUE] 26ab8
26aa2:  41 01 00 80 13          JE              L00,#00 [TRUE] 26ab8
26aa7:  4a 01 02 80 07          TEST_ATTR       L00,#02 [TRUE] 26ab1
26aac:  4a 01 11 00 09          TEST_ATTR       L00,#11 [FALSE] 26ab8
26ab1:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 26ab5
26ab5:  8c ff ec                JUMP            26aa2
26ab8:  41 01 00 00 03          JE              L00,#00 [FALSE] 26abe
26abd:  b1                      RFALSE
26abe:  0d 88 00                STORE           G78,#00
26ac1:  f9 2b 9a b2 01 03       CALL_VN         26ac8 (L00,L02)
26ac7:  b0                      RTRUE

Routine 26ac8, 15 locals

26ac9:  43 02 00 00 1a          JG              L01,#00 [FALSE] 26ae6
26ace:  a3 01 00                GET_PARENT      L00 -> -(SP)
26ad1:  a2 00 00 c2             GET_CHILD       (SP)+ -> -(SP) [TRUE] 26ad5
26ad5:  61 01 00 00 0e          JE              L00,(SP)+ [FALSE] 26ae6
26ada:  da 2f 9a 7d 01          CALL_2N         269f4 (L00)
26adf:  a3 01 00                GET_PARENT      L00 -> -(SP)
26ae2:  a2 00 01 c2             GET_CHILD       (SP)+ -> L00 [TRUE] 26ae6
26ae6:  d4 2f 60 d4 03 04       ADD             #60d4,L02 -> L03
26aec:  d4 2f 60 54 03 05       ADD             #6054,L02 -> L04
26af2:  2d 06 01                STORE           L05,L00
26af5:  0d 07 00                STORE           L06,#00
26af8:  41 06 00 80 27          JE              L05,#00 [TRUE] 26b22
26afd:  74 07 03 00             ADD             L06,L02 -> -(SP)
26b01:  42 00 80 00 1e          JL              (SP)+,#80 [FALSE] 26b22
26b06:  e2 a7 04 07 00          STOREB          L03,L06,#00
26b0b:  51 06 0e 00             GET_PROP        L05,#0e -> -(SP)
26b0f:  41 00 00 80 04          JE              (SP)+,#00 [TRUE] 26b16
26b14:  95 08                   INC             L07
26b16:  e0 2b 9a 12 06 02 06    CALL_VS         26848 (L05,L01) -> L05
26b1d:  95 07                   INC             L06
26b1f:  8c ff d8                JUMP            26af8
26b22:  c9 8f 84 04 00 00       AND             G74,#0400 -> -(SP)
26b28:  41 00 00 80 2c          JE              (SP)+,#00 [TRUE] 26b57
26b2d:  41 07 01 00 08          JE              L06,#01 [FALSE] 26b38
26b32:  b2 ...                  PRINT           " is"
26b35:  8c 00 07                JUMP            26b3d
26b38:  b2 ...                  PRINT           " are"
26b3d:  49 84 01 00             AND             G74,#01 -> -(SP)
26b41:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 26b4e
26b46:  b2 ...                  PRINT           ":
"
26b4b:  8c 00 05                JUMP            26b51
26b4e:  e5 7f 20                PRINT_CHAR      ' '
26b51:  d5 8f 84 04 00 84       SUB             G74,#0400 -> G74
26b57:  74 03 07 00             ADD             L02,L06 -> -(SP)
26b5b:  54 00 01 03             ADD             (SP)+,#01 -> L02
26b5f:  42 08 02 00 05          JL              L07,#02 [FALSE] 26b67
26b64:  8c 03 45                JUMP            26eaa
26b67:  0d 0c 01                STORE           L0b,#01
26b6a:  2d 06 01                STORE           L05,L00
26b6d:  0d 08 00                STORE           L07,#00
26b70:  62 08 07 00 7d          JL              L07,L06 [FALSE] 26bf0
26b75:  70 04 08 00             LOADB           L03,L07 -> -(SP)
26b79:  41 00 00 00 68          JE              (SP)+,#00 [FALSE] 26be4
26b7e:  e2 ab 04 08 0c          STOREB          L03,L07,L0b
26b83:  e2 a7 05 0c 01          STOREB          L04,L0b,#01
26b88:  e0 2b 9a 12 06 02 0a    CALL_VS         26848 (L05,L01) -> L09
26b8f:  54 08 01 0b             ADD             L07,#01 -> L0a
26b93:  41 0a 00 80 4c          JE              L09,#00 [TRUE] 26be2
26b98:  62 0b 07 00 47          JL              L0a,L06 [FALSE] 26be2
26b9d:  70 04 0b 00             LOADB           L03,L0a -> -(SP)
26ba1:  41 00 00 00 32          JE              (SP)+,#00 [FALSE] 26bd6
26ba6:  51 06 0e 00             GET_PROP        L05,#0e -> -(SP)
26baa:  41 00 00 80 29          JE              (SP)+,#00 [TRUE] 26bd6
26baf:  51 0a 0e 00             GET_PROP        L09,#0e -> -(SP)
26bb3:  41 00 00 80 20          JE              (SP)+,#00 [TRUE] 26bd6
26bb8:  e0 2b 9a 4d 06 0a 00    CALL_VS         26934 (L05,L09) -> -(SP)
26bbf:  41 00 01 00 14          JE              (SP)+,#01 [FALSE] 26bd6
26bc4:  70 05 0c 00             LOADB           L04,L0b -> -(SP)
26bc8:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
26bcc:  e2 ab 05 0c 00          STOREB          L04,L0b,(SP)+
26bd1:  e2 ab 04 0b 0c          STOREB          L03,L0a,L0b
26bd6:  e0 2b 9a 12 0a 02 0a    CALL_VS         26848 (L09,L01) -> L09
26bdd:  95 0b                   INC             L0a
26bdf:  8c ff b3                JUMP            26b93
26be2:  95 0c                   INC             L0b
26be4:  e0 2b 9a 12 06 02 06    CALL_VS         26848 (L05,L01) -> L05
26beb:  95 08                   INC             L07
26bed:  8c ff 82                JUMP            26b70
26bf0:  96 0c                   DEC             L0b
26bf2:  0d 06 01                STORE           L05,#01
26bf5:  2d 07 01                STORE           L06,L00
26bf8:  0d 08 00                STORE           L07,#00
26bfb:  63 06 0c 80 5a          JG              L05,L0b [TRUE] 26c58
26c00:  70 04 08 00             LOADB           L03,L07 -> -(SP)
26c04:  61 00 06 80 1b          JE              (SP)+,L05 [TRUE] 26c22
26c09:  35 00 06 00             SUB             #00,L05 -> -(SP)
26c0d:  70 04 08 00             LOADB           L03,L07 -> -(SP)
26c11:  61 00 00 80 0e          JE              (SP)+,(SP)+ [TRUE] 26c22
26c16:  95 08                   INC             L07
26c18:  e0 2b 9a 12 07 02 07    CALL_VS         26848 (L06,L01) -> L06
26c1f:  8c ff e0                JUMP            26c00
26c22:  70 05 06 0b             LOADB           L04,L05 -> L0a
26c26:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26c2a:  c1 9b 00 00 85 80 1e    JE              (SP)+,#00,G75 [TRUE] 26c4d
26c31:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26c35:  d9 2f 34 45 00 00       CALL_2S         d114 ((SP)+) -> -(SP)
26c3b:  c1 97 00 02 03 00 0d    JE              (SP)+,#02,#03 [FALSE] 26c4d
26c42:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26c46:  61 00 0f 00 04          JE              (SP)+,L0e [FALSE] 26c4d
26c4b:  96 0e                   DEC             L0d
26c4d:  51 07 0c 0f             GET_PROP        L06,#0c -> L0e
26c51:  95 06                   INC             L05
26c53:  95 0e                   INC             L0d
26c55:  8c ff a5                JUMP            26bfb
26c58:  96 0e                   DEC             L0d
26c5a:  0d 06 01                STORE           L05,#01
26c5d:  2d 07 01                STORE           L06,L00
26c60:  0d 08 00                STORE           L07,#00
26c63:  0d 0f 00                STORE           L0e,#00
26c66:  42 0e 00 82 40          JL              L0d,#00 [TRUE] 26ea9
26c6b:  70 04 08 00             LOADB           L03,L07 -> -(SP)
26c6f:  61 00 06 80 1b          JE              (SP)+,L05 [TRUE] 26c8d
26c74:  35 00 06 00             SUB             #00,L05 -> -(SP)
26c78:  70 04 08 00             LOADB           L03,L07 -> -(SP)
26c7c:  61 00 00 80 0e          JE              (SP)+,(SP)+ [TRUE] 26c8d
26c81:  95 08                   INC             L07
26c83:  e0 2b 9a 12 07 02 07    CALL_VS         26848 (L06,L01) -> L06
26c8a:  8c ff e0                JUMP            26c6b
26c8d:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26c91:  c1 9b 00 00 85 81 81    JE              (SP)+,#00,G75 [TRUE] 26e17
26c98:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26c9c:  61 00 0f 00 07          JE              (SP)+,L0e [FALSE] 26ca6
26ca1:  95 0e                   INC             L0d
26ca3:  8c 01 fe                JUMP            26ea2
26ca6:  e0 2b 9a 12 07 02 09    CALL_VS         26848 (L06,L01) -> L08
26cad:  41 09 00 80 0f          JE              L08,#00 [TRUE] 26cbf
26cb2:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26cb6:  51 09 0c 00             GET_PROP        L08,#0c -> -(SP)
26cba:  61 00 00 80 05          JE              (SP)+,(SP)+ [TRUE] 26cc2
26cbf:  8c 01 57                JUMP            26e17
26cc2:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26cc6:  d9 2f 34 45 00 09       CALL_2S         d114 ((SP)+) -> L08
26ccc:  c1 97 09 02 03 01 46    JE              L08,#02,#03 [FALSE] 26e17
26cd3:  2d 0d 07                STORE           L0c,L06
26cd6:  0d 87 01                STORE           G77,#01
26cd9:  2d 0a 08                STORE           L09,L07
26cdc:  2d 0b 06                STORE           L0a,L05
26cdf:  62 0b 0c 00 45          JL              L0a,L0b [FALSE] 26d27
26ce4:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26ce8:  51 0d 0c 00             GET_PROP        L0c,#0c -> -(SP)
26cec:  61 00 00 00 38          JE              (SP)+,(SP)+ [FALSE] 26d27
26cf1:  95 0b                   INC             L0a
26cf3:  70 04 0a 00             LOADB           L03,L09 -> -(SP)
26cf7:  61 00 0b 80 1b          JE              (SP)+,L0a [TRUE] 26d15
26cfc:  35 00 0b 00             SUB             #00,L0a -> -(SP)
26d00:  70 04 0a 00             LOADB           L03,L09 -> -(SP)
26d04:  61 00 00 80 0e          JE              (SP)+,(SP)+ [TRUE] 26d15
26d09:  95 0a                   INC             L09
26d0b:  e0 2b 9a 12 0d 02 0d    CALL_VS         26848 (L0c,L01) -> L0c
26d12:  8c ff e0                JUMP            26cf3
26d15:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26d19:  51 0d 0c 00             GET_PROP        L0c,#0c -> -(SP)
26d1d:  61 00 00 00 04          JE              (SP)+,(SP)+ [FALSE] 26d24
26d22:  95 87                   INC             G77
26d24:  8c ff ba                JUMP            26cdf
26d27:  41 87 01 00 05          JE              G77,#01 [FALSE] 26d2f
26d2c:  8c 00 ea                JUMP            26e17
26d2f:  49 84 02 00             AND             G74,#02 -> -(SP)
26d33:  41 00 00 80 1e          JE              (SP)+,#00 [TRUE] 26d54
26d38:  74 02 88 00             ADD             L01,G78 -> -(SP)
26d3c:  36 02 00 00             MUL             #02,(SP)+ -> -(SP)
26d40:  2d ff 00                STORE           Gef,(SP)+
26d43:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 26d54
26d48:  e5 7f 20                PRINT_CHAR      ' '
26d4b:  55 ff 01 ff             SUB             Gef,#01 -> Gef
26d4f:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 26d48
26d54:  41 09 03 00 46          JE              L08,#03 [FALSE] 26d9d
26d59:  0d 0d 00                STORE           L0c,#00
26d5c:  0d 0a 00                STORE           L09,#00
26d5f:  62 0a 87 00 13          JL              L09,G77 [FALSE] 26d75
26d64:  74 0a 06 00             ADD             L09,L05 -> -(SP)
26d68:  70 05 00 00             LOADB           L04,(SP)+ -> -(SP)
26d6c:  74 0d 00 0d             ADD             L0c,(SP)+ -> L0c
26d70:  95 0a                   INC             L09
26d72:  8c ff ec                JUMP            26d5f
26d75:  da 2f 99 a2 0d          CALL_2N         26688 (L0c)
26d7a:  b2 ...                  PRINT           " "
26d7d:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26d81:  ad 00                   PRINT_PADDR     (SP)+
26d83:  49 84 08 00             AND             G74,#08 -> -(SP)
26d87:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 26d8f
26d8c:  b2 ...                  PRINT           " ("
26d8f:  49 84 02 00             AND             G74,#02 -> -(SP)
26d93:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 26d9d
26d98:  b2 ...                  PRINT           ":
"
26d9d:  2d 0d 84                STORE           L0c,G74
26da0:  41 09 03 80 1b          JE              L08,#03 [TRUE] 26dbe
26da5:  0d 83 01                STORE           G73,#01
26da8:  2d 58 07                STORE           G48,L06
26dab:  74 02 88 59             ADD             L01,G78 -> G49
26daf:  e0 27 34 7a 07 0c 00    CALL_VS         d1e8 (L06,#0c) -> -(SP)
26db6:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] 26dbe
26dbb:  8c 00 3e                JUMP            26dfa
26dbe:  51 07 0c 85             GET_PROP        L06,#0c -> G75
26dc2:  2d 86 07                STORE           G76,L06
26dc5:  95 88                   INC             G78
26dc7:  f9 2a 9a b2 07 02 03    CALL_VN         26ac8 (L06,L01,L02)
26dce:  96 88                   DEC             G78
26dd0:  0d 85 00                STORE           G75,#00
26dd3:  0d 86 00                STORE           G76,#00
26dd6:  41 09 03 00 11          JE              L08,#03 [FALSE] 26dea
26ddb:  49 84 08 00             AND             G74,#08 -> -(SP)
26ddf:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 26de7
26de4:  b2 ...                  PRINT           ")"
26de7:  8c 00 12                JUMP            26dfa
26dea:  0d 83 02                STORE           G73,#02
26ded:  2d 58 07                STORE           G48,L06
26df0:  74 02 88 59             ADD             L01,G78 -> G49
26df4:  f9 27 34 7a 07 0c       CALL_VN         d1e8 (L06,#0c)
26dfa:  49 0d 01 00             AND             L0c,#01 -> -(SP)
26dfe:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 26e0d
26e03:  49 84 01 00             AND             G74,#01 -> -(SP)
26e07:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] 26e0d
26e0c:  bb                      NEW_LINE
26e0d:  2d 84 0d                STORE           G74,L0c
26e10:  51 07 0c 0f             GET_PROP        L06,#0c -> L0e
26e14:  8c 00 72                JUMP            26e87
26e17:  e0 2b 9c 28 07 02 00    CALL_VS         270a0 (L06,L01) -> -(SP)
26e1e:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] 26e26
26e23:  8c 00 7e                JUMP            26ea2
26e26:  70 05 06 00             LOADB           L04,L05 -> -(SP)
26e2a:  41 00 01 00 30          JE              (SP)+,#01 [FALSE] 26e5d
26e2f:  c9 8f 84 10 00 00       AND             G74,#1000 -> -(SP)
26e35:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 26e42
26e3a:  da 2f 38 57 07          CALL_2N         e15c (L06)
26e3f:  8c 00 1a                JUMP            26e5a
26e42:  c9 8f 84 01 00 00       AND             G74,#0100 -> -(SP)
26e48:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 26e55
26e4d:  da 2f 38 4e 07          CALL_2N         e138 (L06)
26e52:  8c 00 07                JUMP            26e5a
26e55:  da 2f 38 48 07          CALL_2N         e120 (L06)
26e5a:  8c 00 25                JUMP            26e80
26e5d:  c9 8f 84 01 00 00       AND             G74,#0100 -> -(SP)
26e63:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 26e6d
26e68:  b2 ...                  PRINT           "the "
26e6d:  70 05 06 00             LOADB           L04,L05 -> -(SP)
26e71:  da 2f 99 a2 00          CALL_2N         26688 ((SP)+)
26e76:  b2 ...                  PRINT           " "
26e79:  f9 25 34 52 07 0e 01    CALL_VN         d148 (L06,#0e,#01)
26e80:  f9 2a 9c 3d 07 02 03    CALL_VN         270f4 (L06,L01,L02)
26e87:  49 84 08 00             AND             G74,#08 -> -(SP)
26e8b:  41 00 00 80 14          JE              (SP)+,#00 [TRUE] 26ea2
26e90:  41 0e 01 00 07          JE              L0d,#01 [FALSE] 26e9a
26e95:  b2 ...                  PRINT           " and "
26e9a:  43 0e 01 00 05          JG              L0d,#01 [FALSE] 26ea2
26e9f:  b2 ...                  PRINT           ", "
26ea2:  95 06                   INC             L05
26ea4:  96 0e                   DEC             L0d
26ea6:  8c fd bf                JUMP            26c66
26ea9:  b0                      RTRUE
26eaa:  2d 0c 07                STORE           L0b,L06
26ead:  0d 06 01                STORE           L05,#01
26eb0:  2d 07 01                STORE           L06,L00
26eb3:  63 06 0c 80 3b          JG              L05,L0b [TRUE] 26ef1
26eb8:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26ebc:  c1 9b 00 00 85 80 1e    JE              (SP)+,#00,G75 [TRUE] 26edf
26ec3:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26ec7:  d9 2f 34 45 00 00       CALL_2S         d114 ((SP)+) -> -(SP)
26ecd:  c1 97 00 02 03 00 0d    JE              (SP)+,#02,#03 [FALSE] 26edf
26ed4:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26ed8:  61 00 0f 00 04          JE              (SP)+,L0e [FALSE] 26edf
26edd:  96 0e                   DEC             L0d
26edf:  51 07 0c 0f             GET_PROP        L06,#0c -> L0e
26ee3:  e0 2b 9a 12 07 02 07    CALL_VS         26848 (L06,L01) -> L06
26eea:  95 06                   INC             L05
26eec:  95 0e                   INC             L0d
26eee:  8c ff c4                JUMP            26eb3
26ef1:  0d 06 01                STORE           L05,#01
26ef4:  2d 07 01                STORE           L06,L00
26ef7:  0d 0f 00                STORE           L0e,#00
26efa:  63 06 0e 81 a0          JG              L05,L0d [TRUE] 2709d
26eff:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f03:  c1 9b 00 00 85 81 25    JE              (SP)+,#00,G75 [TRUE] 2702d
26f0a:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f0e:  61 00 0f 00 07          JE              (SP)+,L0e [FALSE] 26f18
26f13:  96 06                   DEC             L05
26f15:  8c 01 7b                JUMP            27091
26f18:  e0 2b 9a 12 07 02 08    CALL_VS         26848 (L06,L01) -> L07
26f1f:  41 08 00 80 0f          JE              L07,#00 [TRUE] 26f31
26f24:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f28:  51 08 0c 00             GET_PROP        L07,#0c -> -(SP)
26f2c:  61 00 00 80 05          JE              (SP)+,(SP)+ [TRUE] 26f34
26f31:  8c 00 fb                JUMP            2702d
26f34:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f38:  d9 2f 34 45 00 08       CALL_2S         d114 ((SP)+) -> L07
26f3e:  c1 97 08 02 03 00 ea    JE              L07,#02,#03 [FALSE] 2702d
26f45:  49 84 02 00             AND             G74,#02 -> -(SP)
26f49:  41 00 00 80 1e          JE              (SP)+,#00 [TRUE] 26f6a
26f4e:  74 02 88 00             ADD             L01,G78 -> -(SP)
26f52:  36 02 00 00             MUL             #02,(SP)+ -> -(SP)
26f56:  2d ff 00                STORE           Gef,(SP)+
26f59:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 26f6a
26f5e:  e5 7f 20                PRINT_CHAR      ' '
26f61:  55 ff 01 ff             SUB             Gef,#01 -> Gef
26f65:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 26f5e
26f6a:  41 08 03 00 46          JE              L07,#03 [FALSE] 26fb3
26f6f:  2d 0d 07                STORE           L0c,L06
26f72:  0d 0a 00                STORE           L09,#00
26f75:  e0 2b 9a 12 0d 02 0d    CALL_VS         26848 (L0c,L01) -> L0c
26f7c:  95 0a                   INC             L09
26f7e:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f82:  51 0d 0c 00             GET_PROP        L0c,#0c -> -(SP)
26f86:  61 00 00 bf ec          JE              (SP)+,(SP)+ [TRUE] 26f75
26f8b:  da 2f 99 a2 0a          CALL_2N         26688 (L09)
26f90:  b2 ...                  PRINT           " "
26f93:  51 07 0c 00             GET_PROP        L06,#0c -> -(SP)
26f97:  ad 00                   PRINT_PADDR     (SP)+
26f99:  49 84 08 00             AND             G74,#08 -> -(SP)
26f9d:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 26fa5
26fa2:  b2 ...                  PRINT           " ("
26fa5:  49 84 02 00             AND             G74,#02 -> -(SP)
26fa9:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 26fb3
26fae:  b2 ...                  PRINT           ":
"
26fb3:  2d 0d 84                STORE           L0c,G74
26fb6:  41 08 03 80 1b          JE              L07,#03 [TRUE] 26fd4
26fbb:  0d 83 01                STORE           G73,#01
26fbe:  2d 58 07                STORE           G48,L06
26fc1:  74 02 88 59             ADD             L01,G78 -> G49
26fc5:  e0 27 34 7a 07 0c 00    CALL_VS         d1e8 (L06,#0c) -> -(SP)
26fcc:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] 26fd4
26fd1:  8c 00 3e                JUMP            27010
26fd4:  51 07 0c 85             GET_PROP        L06,#0c -> G75
26fd8:  2d 86 07                STORE           G76,L06
26fdb:  95 88                   INC             G78
26fdd:  f9 2a 9a b2 07 02 03    CALL_VN         26ac8 (L06,L01,L02)
26fe4:  96 88                   DEC             G78
26fe6:  0d 85 00                STORE           G75,#00
26fe9:  0d 86 00                STORE           G76,#00
26fec:  41 08 03 00 11          JE              L07,#03 [FALSE] 27000
26ff1:  49 0d 08 00             AND             L0c,#08 -> -(SP)
26ff5:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 26ffd
26ffa:  b2 ...                  PRINT           ")"
26ffd:  8c 00 12                JUMP            27010
27000:  0d 83 02                STORE           G73,#02
27003:  2d 58 07                STORE           G48,L06
27006:  74 02 88 59             ADD             L01,G78 -> G49
2700a:  f9 27 34 7a 07 0c       CALL_VN         d1e8 (L06,#0c)
27010:  49 0d 01 00             AND             L0c,#01 -> -(SP)
27014:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 27023
27019:  49 84 01 00             AND             G74,#01 -> -(SP)
2701d:  41 00 00 00 03          JE              (SP)+,#00 [FALSE] 27023
27022:  bb                      NEW_LINE
27023:  2d 84 0d                STORE           G74,L0c
27026:  51 07 0c 0f             GET_PROP        L06,#0c -> L0e
2702a:  8c 00 43                JUMP            2706e
2702d:  e0 2b 9c 28 07 02 00    CALL_VS         270a0 (L06,L01) -> -(SP)
27034:  41 00 01 00 05          JE              (SP)+,#01 [FALSE] 2703c
27039:  8c 00 57                JUMP            27091
2703c:  c9 8f 84 10 00 00       AND             G74,#1000 -> -(SP)
27042:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 2704f
27047:  da 2f 38 57 07          CALL_2N         e15c (L06)
2704c:  8c 00 1a                JUMP            27067
2704f:  c9 8f 84 01 00 00       AND             G74,#0100 -> -(SP)
27055:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 27062
2705a:  da 2f 38 4e 07          CALL_2N         e138 (L06)
2705f:  8c 00 07                JUMP            27067
27062:  da 2f 38 48 07          CALL_2N         e120 (L06)
27067:  f9 2a 9c 3d 07 02 03    CALL_VN         270f4 (L06,L01,L02)
2706e:  49 84 08 00             AND             G74,#08 -> -(SP)
27072:  41 00 00 80 1c          JE              (SP)+,#00 [TRUE] 27091
27077:  55 0e 01 00             SUB             L0d,#01 -> -(SP)
2707b:  61 06 00 00 07          JE              L05,(SP)+ [FALSE] 27085
27080:  b2 ...                  PRINT           " and "
27085:  55 0e 01 00             SUB             L0d,#01 -> -(SP)
27089:  62 06 00 00 05          JL              L05,(SP)+ [FALSE] 27091
2708e:  b2 ...                  PRINT           ", "
27091:  e0 2b 9a 12 07 02 07    CALL_VS         26848 (L06,L01) -> L06
27098:  95 06                   INC             L05
2709a:  8c fe 5f                JUMP            26efa
2709d:  b0                      RTRUE

Routine 270a0, 3 locals

270a1:  49 84 02 00             AND             G74,#02 -> -(SP)
270a5:  41 00 00 80 1e          JE              (SP)+,#00 [TRUE] 270c6
270aa:  74 02 88 00             ADD             L01,G78 -> -(SP)
270ae:  36 02 00 00             MUL             #02,(SP)+ -> -(SP)
270b2:  2d ff 00                STORE           Gef,(SP)+
270b5:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 270c6
270ba:  e5 7f 20                PRINT_CHAR      ' '
270bd:  55 ff 01 ff             SUB             Gef,#01 -> Gef
270c1:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 270ba
270c6:  49 84 04 00             AND             G74,#04 -> -(SP)
270ca:  41 00 00 80 25          JE              (SP)+,#00 [TRUE] 270f2
270cf:  51 01 0d 00             GET_PROP        L00,#0d -> -(SP)
270d3:  41 00 00 80 1c          JE              (SP)+,#00 [TRUE] 270f2
270d8:  0d 83 01                STORE           G73,#01
270db:  e0 25 34 52 01 0d 01 03 CALL_VS         d148 (L00,#0d,#01) -> L02
270e3:  41 03 01 00 0c          JE              L02,#01 [FALSE] 270f2
270e8:  49 84 01 00             AND             G74,#01 -> -(SP)
270ec:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 270f2
270f1:  bb                      NEW_LINE
270f2:  ab 03                   RET             L02

Routine 270f4, 8 locals

270f5:  49 84 80 00             AND             G74,#80 -> -(SP)
270f9:  41 00 00 80 d7          JE              (SP)+,#00 [TRUE] 271d3
270fe:  0d 08 00                STORE           L07,#00
27101:  4a 01 09 00 0b          TEST_ATTR       L00,#09 [FALSE] 2710f
27106:  4a 11 09 80 06          TEST_ATTR       G01,#09 [TRUE] 2710f
2710b:  54 08 01 08             ADD             L07,#01 -> L07
2710f:  4a 01 03 00 0b          TEST_ATTR       L00,#03 [FALSE] 2711d
27114:  4a 01 0e 80 06          TEST_ATTR       L00,#0e [TRUE] 2711d
27119:  54 08 02 08             ADD             L07,#02 -> L07
2711d:  4a 01 03 00 19          TEST_ATTR       L00,#03 [FALSE] 27139
27122:  4a 01 0e 80 07          TEST_ATTR       L00,#0e [TRUE] 2712c
27127:  4a 01 17 00 0f          TEST_ATTR       L00,#17 [FALSE] 27139
2712c:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 27130
27130:  41 00 00 00 06          JE              (SP)+,#00 [FALSE] 27139
27135:  54 08 04 08             ADD             L07,#04 -> L07
27139:  41 08 01 00 0f          JE              L07,#01 [FALSE] 2714b
2713e:  b2 ...                  PRINT           " (providing light)"
2714b:  41 08 02 00 0f          JE              L07,#02 [FALSE] 2715d
27150:  b2 ...                  PRINT           " (which is closed)"
2715d:  41 08 03 00 15          JE              L07,#03 [FALSE] 27175
27162:  b2 ...                  PRINT           " (closed and providing light)"
27175:  41 08 04 00 0f          JE              L07,#04 [FALSE] 27187
2717a:  b2 ...                  PRINT           " (which is empty)"
27187:  41 08 05 00 15          JE              L07,#05 [FALSE] 2719f
2718c:  b2 ...                  PRINT           " (empty and providing light)"
2719f:  41 08 06 00 15          JE              L07,#06 [FALSE] 271b7
271a4:  b2 ...                  PRINT           " (which is closed and empty)"
271b7:  41 08 07 00 19          JE              L07,#07 [FALSE] 271d3
271bc:  b2 ...                  PRINT           " (closed, empty and providing
light)"
271d3:  49 84 04 00             AND             G74,#04 -> -(SP)
271d7:  41 00 00 80 f4          JE              (SP)+,#00 [TRUE] 272ce
271dc:  51 01 0d 00             GET_PROP        L00,#0d -> -(SP)
271e0:  41 00 00 80 1c          JE              (SP)+,#00 [TRUE] 271ff
271e5:  0d 83 02                STORE           G73,#02
271e8:  e0 27 34 7a 01 0d 00    CALL_VS         d1e8 (L00,#0d) -> -(SP)
271ef:  41 00 00 80 0d          JE              (SP)+,#00 [TRUE] 271ff
271f4:  49 84 01 00             AND             G74,#01 -> -(SP)
271f8:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 271fe
271fd:  bb                      NEW_LINE
271fe:  b0                      RTRUE
271ff:  4a 01 09 00 22          TEST_ATTR       L00,#09 [FALSE] 27224
27204:  4a 01 1a 00 1d          TEST_ATTR       L00,#1a [FALSE] 27224
27209:  b2 ...                  PRINT           " (providing light and being
worn"
2721e:  0d 05 01                STORE           L04,#01
27221:  8c 00 26                JUMP            27248
27224:  4a 01 09 00 10          TEST_ATTR       L00,#09 [FALSE] 27237
27229:  b2 ...                  PRINT           " (providing light"
27234:  0d 05 01                STORE           L04,#01
27237:  4a 01 1a 00 0e          TEST_ATTR       L00,#1a [FALSE] 27248
2723c:  b2 ...                  PRINT           " (being worn"
27245:  0d 05 01                STORE           L04,#01
27248:  4a 01 03 00 7b          TEST_ATTR       L00,#03 [FALSE] 272c6
2724d:  4a 01 0f 00 51          TEST_ATTR       L00,#0f [FALSE] 272a1
27252:  41 05 01 00 0a          JE              L04,#01 [FALSE] 2725f
27257:  b2 ...                  PRINT           " and "
2725c:  8c 00 09                JUMP            27266
2725f:  b2 ...                  PRINT           " (which is "
27266:  4a 01 0e 00 1c          TEST_ATTR       L00,#0e [FALSE] 27285
2726b:  b2 ...                  PRINT           "open"
27270:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 27274
27274:  41 00 00 00 0b          JE              (SP)+,#00 [FALSE] 27282
27279:  b2 ...                  PRINT           " but empty"
27282:  8c 00 07                JUMP            2728a
27285:  b2 ...                  PRINT           "closed"
2728a:  4a 01 0a 00 0e          TEST_ATTR       L00,#0a [FALSE] 2729b
2728f:  4a 01 0b 00 09          TEST_ATTR       L00,#0b [FALSE] 2729b
27294:  b2 ...                  PRINT           " and locked"
2729b:  0d 05 01                STORE           L04,#01
2729e:  8c 00 27                JUMP            272c6
272a1:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 272a5
272a5:  41 00 00 00 1e          JE              (SP)+,#00 [FALSE] 272c6
272aa:  41 05 01 00 0c          JE              L04,#01 [FALSE] 272b9
272af:  b2 ...                  PRINT           " and empty"
272b6:  8c 00 0f                JUMP            272c6
272b9:  b2 ...                  PRINT           " (which is empty)"
272c6:  41 05 01 00 05          JE              L04,#01 [FALSE] 272ce
272cb:  b2 ...                  PRINT           ")"
272ce:  c9 8f 84 08 00 00       AND             G74,#0800 -> -(SP)
272d4:  41 00 00 00 23          JE              (SP)+,#00 [FALSE] 272fa
272d9:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 272dd
272dd:  41 00 00 80 17          JE              (SP)+,#00 [TRUE] 272f7
272e2:  0d ff 00                STORE           Gef,#00
272e5:  a2 01 00 49             GET_CHILD       L00 -> -(SP) [FALSE] 272f0
272e9:  95 ff                   INC             Gef
272eb:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 272e9
272f0:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
272f4:  2d 06 00                STORE           L05,(SP)+
272f7:  8c 00 19                JUMP            27311
272fa:  a2 01 07 c2             GET_CHILD       L00 -> L06 [TRUE] 272fe
272fe:  41 07 00 80 10          JE              L06,#00 [TRUE] 27311
27303:  4a 07 02 80 04          TEST_ATTR       L06,#02 [TRUE] 2730a
27308:  95 06                   INC             L05
2730a:  a1 07 07 c2             GET_SIBLING     L06 -> L06 [TRUE] 2730e
2730e:  8c ff ef                JUMP            272fe
27311:  49 84 20 00             AND             G74,#20 -> -(SP)
27315:  41 00 00 80 1a          JE              (SP)+,#00 [TRUE] 27332
2731a:  43 06 00 00 15          JG              L05,#00 [FALSE] 27332
2731f:  49 84 08 00             AND             G74,#08 -> -(SP)
27323:  41 00 00 80 09          JE              (SP)+,#00 [TRUE] 2732f
27328:  b2 ...                  PRINT           " containing "
2732f:  0d 04 01                STORE           L03,#01
27332:  49 84 10 00             AND             G74,#10 -> -(SP)
27336:  41 00 00 80 85          JE              (SP)+,#00 [TRUE] 273be
2733b:  43 06 00 00 80          JG              L05,#00 [FALSE] 273be
27340:  4a 01 14 00 38          TEST_ATTR       L00,#14 [FALSE] 2737b
27345:  49 84 08 00             AND             G74,#08 -> -(SP)
27349:  41 00 00 80 2c          JE              (SP)+,#00 [TRUE] 27378
2734e:  49 84 40 00             AND             G74,#40 -> -(SP)
27352:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 2735f
27357:  b2 ...                  PRINT           " (on "
2735c:  8c 00 0b                JUMP            27368
2735f:  b2 ...                  PRINT           ", on top of "
27368:  4a 01 00 00 0a          TEST_ATTR       L00,#00 [FALSE] 27375
2736d:  b2 ...                  PRINT           "whom "
27372:  8c 00 05                JUMP            27378
27375:  b2 ...                  PRINT           "which "
27378:  0d 04 01                STORE           L03,#01
2737b:  4a 01 03 00 40          TEST_ATTR       L00,#03 [FALSE] 273be
27380:  4a 01 0e 80 07          TEST_ATTR       L00,#0e [TRUE] 2738a
27385:  4a 01 17 00 36          TEST_ATTR       L00,#17 [FALSE] 273be
2738a:  49 84 08 00             AND             G74,#08 -> -(SP)
2738e:  41 00 00 80 2a          JE              (SP)+,#00 [TRUE] 273bb
27393:  49 84 40 00             AND             G74,#40 -> -(SP)
27397:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 273a4
2739c:  b2 ...                  PRINT           " (in "
273a1:  8c 00 09                JUMP            273ab
273a4:  b2 ...                  PRINT           ", inside "
273ab:  4a 01 00 00 0a          TEST_ATTR       L00,#00 [FALSE] 273b8
273b0:  b2 ...                  PRINT           "whom "
273b5:  8c 00 05                JUMP            273bb
273b8:  b2 ...                  PRINT           "which "
273bb:  0d 04 01                STORE           L03,#01
273be:  41 04 01 00 1b          JE              L03,#01 [FALSE] 273dc
273c3:  49 84 08 00             AND             G74,#08 -> -(SP)
273c7:  41 00 00 80 12          JE              (SP)+,#00 [TRUE] 273dc
273cc:  43 06 01 00 0a          JG              L05,#01 [FALSE] 273d9
273d1:  b2 ...                  PRINT           "are "
273d6:  8c 00 05                JUMP            273dc
273d9:  b2 ...                  PRINT           "is "
273dc:  49 84 01 00             AND             G74,#01 -> -(SP)
273e0:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 273e6
273e5:  bb                      NEW_LINE
273e6:  41 04 01 00 11          JE              L03,#01 [FALSE] 273fa
273eb:  54 02 01 00             ADD             L01,#01 -> -(SP)
273ef:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 273f3
273f3:  f9 2a 9a b2 00 00 03    CALL_VN         26ac8 ((SP)+,(SP)+,L02)
273fa:  41 04 01 00 0e          JE              L03,#01 [FALSE] 2740b
273ff:  49 84 40 00             AND             G74,#40 -> -(SP)
27403:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 2740b
27408:  b2 ...                  PRINT           ")"
2740b:  b0                      RTRUE

Routine 2740c, 5 locals

2740d:  14 0f 01 01             ADD             #0f,#01 -> L00
27411:  63 01 25 80 69          JG              L00,G15 [TRUE] 2747d
27416:  52 01 16 05             GET_PROP_ADDR   L00,#16 -> L04
2741a:  41 05 00 80 5b          JE              L04,#00 [TRUE] 27478
2741f:  4a 01 07 80 56          TEST_ATTR       L00,#07 [TRUE] 27478
27424:  4f 05 00 00             LOADW           L04,#00 -> -(SP)
27428:  d9 2f 34 45 00 00       CALL_2S         d114 ((SP)+) -> -(SP)
2742e:  41 00 02 00 15          JE              (SP)+,#02 [FALSE] 27446
27433:  4f 05 00 00             LOADW           L04,#00 -> -(SP)
27437:  e0 bf 00 00             CALL_VS         (SP)+ -> -(SP)
2743b:  41 00 00 80 05          JE              (SP)+,#00 [TRUE] 27443
27440:  6e 01 11                INSERT_OBJ      L00,G01
27443:  8c 00 34                JUMP            27478
27446:  52 01 16 00             GET_PROP_ADDR   L00,#16 -> -(SP)
2744a:  2d ff 00                STORE           Gef,(SP)+
2744d:  a0 ff c5                JZ              Gef [TRUE] 27453
27450:  a4 ff ff                GET_PROP_LEN    Gef -> Gef
27453:  2d 02 ff                STORE           L01,Gef
27456:  0d 03 00                STORE           L02,#00
27459:  57 02 02 00             DIV             L01,#02 -> -(SP)
2745d:  62 03 00 00 18          JL              L02,(SP)+ [FALSE] 27478
27462:  6f 05 03 04             LOADW           L04,L02 -> L03
27466:  61 04 11 80 07          JE              L03,G01 [TRUE] 27470
2746b:  66 04 11 00 05          JIN             L03,G01 [FALSE] 27473
27470:  6e 01 11                INSERT_OBJ      L00,G01
27473:  95 03                   INC             L02
27475:  8c ff e3                JUMP            27459
27478:  95 01                   INC             L00
2747a:  8c ff 96                JUMP            27411
2747d:  b0                      RTRUE

Routine 27480, 2 locals

27481:  6e 19 01                INSERT_OBJ      G09,L00
27484:  a3 01 00                GET_PARENT      L00 -> -(SP)
27487:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] 27492
2748c:  a3 01 01                GET_PARENT      L00 -> L00
2748f:  8c ff f4                JUMP            27484
27492:  2d 11 01                STORE           G01,L00
27495:  2d 1b 11                STORE           G0b,G01
27498:  da 1f 37 9e 01          CALL_2N         de78 (#01)
2749d:  41 02 00 00 07          JE              L01,#00 [FALSE] 274a7
274a2:  da 1f 36 0d 29          CALL_2N         d834 (#29)
274a7:  41 02 01 00 08          JE              L01,#01 [FALSE] 274b2
274ac:  8f a0 9d                CALL_1N         28274
274af:  8f a0 a6                CALL_1N         28298
274b2:  41 02 02 00 07          JE              L01,#02 [FALSE] 274bc
274b7:  da 1f a0 ac 01          CALL_2N         282b0 (#01)
274bc:  b0                      RTRUE

Routine 274c0, 1 local

274c1:  f9 1b 36 0d 26 01       CALL_VN         d834 (#26,L00)
274c7:  da 1f 36 0d 29          CALL_2N         d834 (#29)
274cc:  b0                      RTRUE

Routine 274d0, 1 local

274d1:  01 01 01 00 3a          JE              #01,#01 [FALSE] 2750e
274d6:  e2 17 5d d5 01 00       STOREB          #5dd5,#01,#00
274dc:  8f b5 55                CALL_1N         2d554
274df:  e4 0f 5d d5 5e 4e ff    READ            #5dd5,#5e4e -> Gef
274e6:  cf 1f 5e 4e 01 01       LOADW           #5e4e,#01 -> L00
274ec:  c1 83 01 a2 d2 a2 ae 00 03
                               JE              L00,"yes","y" [FALSE] 274f6
274f5:  b0                      RTRUE
274f6:  c1 83 01 8d cc 8d 4e 00 03
                               JE              L00,"no","n" [FALSE] 27500
274ff:  b1                      RFALSE
27500:  f9 17 a2 82 02 01       CALL_VN         28a08 (#02,#01)
27506:  b2 ...                  PRINT           "> "
2750b:  8c ff c5                JUMP            274d1
2750e:  b0                      RTRUE

Routine 27510, 0 locals
    Action routine for:
        "die"

27511:  f9 17 a2 82 02 02       CALL_VN         28a08 (#02,#02)
27517:  88 9d 34 00             CALL_1S         274d0 -> -(SP)
2751b:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 27521
27520:  ba                      QUIT
27521:  b0                      RTRUE

Routine 27524, 0 locals
    Action routine for:
        "restart"

27525:  f9 17 a2 82 04 01       CALL_VN         28a08 (#04,#01)
2752b:  88 9d 34 00             CALL_1S         274d0 -> -(SP)
2752f:  41 00 00 80 09          JE              (SP)+,#00 [TRUE] 2753b
27534:  b7                      RESTART
27535:  f9 17 a2 82 04 02       CALL_VN         28a08 (#04,#02)
2753b:  b0                      RTRUE

Routine 2753c, 0 locals
    Action routine for:
        "verify"

2753d:  bd c5                   VERIFY          [TRUE] 27542
2753f:  8c 00 0b                JUMP            2754b
27542:  e0 17 a2 82 05 01 00    CALL_VS         28a08 (#05,#01) -> -(SP)
27549:  ab 00                   RET             (SP)+
2754b:  f9 17 a2 82 05 02       CALL_VN         28a08 (#05,#02)
27551:  b0                      RTRUE

Routine 27554, 0 locals
    Action routine for:
        "script"
        "script on"

27555:  41 1e 01 00 0b          JE              G0e,#01 [FALSE] 27563
2755a:  e0 17 a2 82 07 01 00    CALL_VS         28a08 (#07,#01) -> -(SP)
27561:  ab 00                   RET             (SP)+
27563:  0d 1e 01                STORE           G0e,#01
27566:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2756a:  48 00 01 00             OR              (SP)+,#01 -> -(SP)
2756e:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
27573:  f9 17 a2 82 07 02       CALL_VN         28a08 (#07,#02)
27579:  8f 38 be                CALL_1N         e2f8
2757c:  b0                      RTRUE

Routine 27580, 0 locals
    Action routine for:
        "script off"
        "noscript"

27581:  41 1e 00 00 0b          JE              G0e,#00 [FALSE] 2758f
27586:  e0 17 a2 82 08 01 00    CALL_VS         28a08 (#08,#01) -> -(SP)
2758d:  ab 00                   RET             (SP)+
2758f:  f9 17 a2 82 08 02       CALL_VN         28a08 (#08,#02)
27595:  0d 1e 00                STORE           G0e,#00
27598:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2759c:  c9 8f 00 ff fe 00       AND             (SP)+,#fffe -> -(SP)
275a2:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
275a7:  b0                      RTRUE

Routine 275a8, 0 locals
    Action routine for:
        "notify on"

275a9:  0d 20 01                STORE           G10,#01
275ac:  da 1f a2 82 0d          CALL_2N         28a08 (#0d)
275b1:  b0                      RTRUE

Routine 275b4, 0 locals
    Action routine for:
        "notify off"

275b5:  0d 20 00                STORE           G10,#00
275b8:  da 1f a2 82 0e          CALL_2N         28a08 (#0e)
275bd:  b0                      RTRUE

Routine 275c0, 3 locals
    Action routine for:
        "places"

275c1:  da 1f a2 82 10          CALL_2N         28a08 (#10)
275c6:  0d 01 0f                STORE           L00,#0f
275c9:  63 01 25 80 0e          JG              L00,G15 [TRUE] 275da
275ce:  4a 01 18 00 04          TEST_ATTR       L00,#18 [FALSE] 275d5
275d3:  95 02                   INC             L01
275d5:  95 01                   INC             L00
275d7:  8c ff f1                JUMP            275c9
275da:  0d 01 0f                STORE           L00,#0f
275dd:  63 01 25 80 2f          JG              L00,G15 [TRUE] 2760f
275e2:  4a 01 18 00 25          TEST_ATTR       L00,#18 [FALSE] 2760a
275e7:  da 2f 38 57 01          CALL_2N         e15c (L00)
275ec:  95 03                   INC             L02
275ee:  61 03 02 00 05          JE              L02,L01 [FALSE] 275f6
275f3:  b3 ...                  PRINT_RET       "."
275f6:  55 02 01 00             SUB             L01,#01 -> -(SP)
275fa:  61 03 00 00 0a          JE              L02,(SP)+ [FALSE] 27607
275ff:  b2 ...                  PRINT           " and "
27604:  8c 00 05                JUMP            2760a
27607:  b2 ...                  PRINT           ", "
2760a:  95 01                   INC             L00
2760c:  8c ff d0                JUMP            275dd
2760f:  b0                      RTRUE

Routine 27610, 3 locals
    Action routine for:
        "objects"

27611:  f9 17 a2 82 11 01       CALL_VN         28a08 (#11,#01)
27617:  0d 01 0f                STORE           L00,#0f
2761a:  63 01 25 80 b6          JG              L00,G15 [TRUE] 276d3
2761f:  4a 01 0c 00 ac          TEST_ATTR       L00,#0c [FALSE] 276ce
27624:  0d 03 01                STORE           L02,#01
27627:  da 2f 38 4e 01          CALL_2N         e138 (L00)
2762c:  a3 01 02                GET_PARENT      L00 -> L01
2762f:  61 02 19 00 1f          JE              L01,G09 [FALSE] 27651
27634:  4a 01 1a 00 0e          TEST_ATTR       L00,#1a [FALSE] 27645
27639:  b2 ...                  PRINT           "   (worn)"
27642:  8c 00 0b                JUMP            2764e
27645:  b2 ...                  PRINT           "   (held)"
2764e:  8c 00 7e                JUMP            276cd
27651:  4a 02 00 00 12          TEST_ATTR       L01,#00 [FALSE] 27666
27656:  b2 ...                  PRINT           "   (given away)"
27663:  8c 00 69                JUMP            276cd
27666:  4a 02 18 00 14          TEST_ATTR       L01,#18 [FALSE] 2767d
2766b:  b2 ...                  PRINT           "   (in "
27672:  da 2f 38 57 02          CALL_2N         e15c (L01)
27677:  b2 ...                  PRINT           ")"
2767a:  8c 00 52                JUMP            276cd
2767d:  4a 02 06 00 14          TEST_ATTR       L01,#06 [FALSE] 27694
27682:  b2 ...                  PRINT           "   (in "
27689:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2768e:  b2 ...                  PRINT           ")"
27691:  8c 00 3b                JUMP            276cd
27694:  4a 02 03 00 16          TEST_ATTR       L01,#03 [FALSE] 276ad
27699:  b2 ...                  PRINT           "   (inside "
276a2:  da 2f 38 57 02          CALL_2N         e15c (L01)
276a7:  b2 ...                  PRINT           ")"
276aa:  8c 00 22                JUMP            276cd
276ad:  4a 02 14 00 14          TEST_ATTR       L01,#14 [FALSE] 276c4
276b2:  b2 ...                  PRINT           "   (on "
276b9:  da 2f 38 57 02          CALL_2N         e15c (L01)
276be:  b2 ...                  PRINT           ")"
276c1:  8c 00 0b                JUMP            276cd
276c4:  b2 ...                  PRINT           "   (lost)"
276cd:  bb                      NEW_LINE
276ce:  95 01                   INC             L00
276d0:  8c ff 49                JUMP            2761a
276d3:  41 03 00 00 08          JE              L02,#00 [FALSE] 276de
276d8:  f9 17 a2 82 11 02       CALL_VN         28a08 (#11,#02)
276de:  b0                      RTRUE

Routine 276e0, 0 locals
    Action routine for:
        "score"

276e1:  da 1f a2 82 00          CALL_2N         28a08 (#00)
276e6:  8f a8 fb                CALL_1N         2a3ec
276e9:  b0                      RTRUE

Routine 276ec, 1 local

276ed:  d0 2f 65 77 01 00       LOADB           #6577,L00 -> -(SP)
276f3:  41 00 00 00 10          JE              (SP)+,#00 [FALSE] 27706
276f8:  e2 27 65 77 01 01       STOREB          #6577,L00,#01
276fe:  70 10 01 00             LOADB           G00,L00 -> -(SP)
27702:  74 17 00 17             ADD             G07,(SP)+ -> G07
27706:  b0                      RTRUE

Routine 27708, 2 locals

27709:  b2 ...                  PRINT           "  "
2770c:  2d 02 01                STORE           L01,L00
2770f:  42 02 00 00 0a          JL              L01,#00 [FALSE] 2771c
27714:  35 00 01 02             SUB             #00,L00 -> L01
27718:  56 02 0a 02             MUL             L01,#0a -> L01
2771c:  42 02 0a 00 08          JL              L01,#0a [FALSE] 27727
27721:  b2 ...                  PRINT           "   "
27724:  8c 00 17                JUMP            2773c
27727:  42 02 64 00 08          JL              L01,#64 [FALSE] 27732
2772c:  b2 ...                  PRINT           "  "
2772f:  8c 00 0c                JUMP            2773c
27732:  c2 8f 02 03 e8 00 05    JL              L01,#03e8 [FALSE] 2773c
27739:  b2 ...                  PRINT           " "
2773c:  e6 bf 01                PRINT_NUM       L00
2773f:  b2 ...                  PRINT           " "
27742:  b0                      RTRUE

Routine 27744, 0 locals
    Action routine for:
        "i wide"

27745:  14 04 08 00             ADD             #04,#08 -> -(SP)
27749:  54 00 10 89             ADD             (SP)+,#10 -> G79
2774d:  da 1f 36 0d 18          CALL_2N         d834 (#18)
27752:  b0                      RTRUE

Routine 27754, 0 locals
    Action routine for:
        "i tall"

27755:  14 04 02 00             ADD             #04,#02 -> -(SP)
27759:  54 00 01 00             ADD             (SP)+,#01 -> -(SP)
2775d:  54 00 10 89             ADD             (SP)+,#10 -> G79
27761:  da 1f 36 0d 18          CALL_2N         d834 (#18)
27766:  b0                      RTRUE

Routine 27768, 0 locals
    Action routine for:
        "carry inventory"
        "i"

27769:  a2 19 00 c2             GET_CHILD       G09 -> -(SP) [TRUE] 2776d
2776d:  41 00 00 00 0b          JE              (SP)+,#00 [FALSE] 2777b
27772:  e0 17 a2 82 18 01 00    CALL_VS         28a08 (#18,#01) -> -(SP)
27779:  ab 00                   RET             (SP)+
2777b:  41 89 00 00 08          JE              G79,#00 [FALSE] 27786
27780:  da 1f 36 0d 27          CALL_2N         d834 (#27)
27785:  b0                      RTRUE
27786:  f9 17 a2 82 18 02       CALL_VN         28a08 (#18,#02)
2778c:  49 89 01 00             AND             G79,#01 -> -(SP)
27790:  41 00 00 80 0a          JE              (SP)+,#00 [TRUE] 2779d
27795:  b2 ...                  PRINT           ":
"
2779a:  8c 00 05                JUMP            277a0
2779d:  b2 ...                  PRINT           " "
277a0:  a2 19 00 c2             GET_CHILD       G09 -> -(SP) [TRUE] 277a4
277a4:  f9 29 9a 97 00 89 01    CALL_VN         26a5c ((SP)+,G79,#01)
277ab:  49 89 08 00             AND             G79,#08 -> -(SP)
277af:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 277b9
277b4:  b2 ...                  PRINT           ".
"
277b9:  8f 35 fc                CALL_1N         d7f0
277bc:  b0                      RTRUE

Routine 277c0, 0 locals
    Action routine for:
        "carry MULTI"
        "pick up MULTI"
        "pick MULTI up"
        "remove MULTI"
        "peel NOUN"
        "peel off NOUN"
        "pinch NOUN"

277c1:  41 37 00 80 0a          JE              G27,#00 [TRUE] 277ce
277c6:  a3 30 00                GET_PARENT      G20 -> -(SP)
277c9:  61 00 19 80 22          JE              (SP)+,G09 [TRUE] 277ee
277ce:  41 11 0e 00 11          JE              G01,#0e [FALSE] 277e2
277d3:  d9 2f 9e 04 1b 00       CALL_2S         27810 (G0b) -> -(SP)
277d9:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 277df
277de:  b0                      RTRUE
277df:  8c 00 0e                JUMP            277ee
277e2:  d9 2f 9e 04 11 00       CALL_2S         27810 (G01) -> -(SP)
277e8:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 277ee
277ed:  b0                      RTRUE
277ee:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
277f2:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 277f8
277f7:  b0                      RTRUE
277f8:  2d 36 37                STORE           G26,G27
277fb:  41 36 01 80 07          JE              G26,#01 [TRUE] 27805
27800:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27806
27805:  b0                      RTRUE
27806:  f9 17 a2 82 13 01       CALL_VN         28a08 (#13,#01)
2780c:  b0                      RTRUE

Routine 27810, 5 locals

27811:  61 30 19 00 0b          JE              G20,G09 [FALSE] 2781f
27816:  e0 17 a2 82 13 02 00    CALL_VS         28a08 (#13,#02) -> -(SP)
2781d:  ab 00                   RET             (SP)+
2781f:  4a 30 00 00 0c          TEST_ATTR       G20,#00 [FALSE] 2782e
27824:  e0 16 a2 82 13 03 30 00 CALL_VS         28a08 (#13,#03,G20) -> -(SP)
2782c:  ab 00                   RET             (SP)+
2782e:  a3 19 00                GET_PARENT      G09 -> -(SP)
27831:  61 00 30 00 0c          JE              (SP)+,G20 [FALSE] 27840
27836:  e0 16 a2 82 13 04 30 00 CALL_VS         28a08 (#13,#04,G20) -> -(SP)
2783e:  ab 00                   RET             (SP)+
27840:  a3 30 02                GET_PARENT      G20 -> L01
27843:  61 02 19 00 0b          JE              L01,G09 [FALSE] 27851
27848:  e0 17 a2 82 13 05 00    CALL_VS         28a08 (#13,#05) -> -(SP)
2784f:  ab 00                   RET             (SP)+
27851:  4a 02 03 80 07          TEST_ATTR       L01,#03 [TRUE] 2785b
27856:  4a 02 14 00 20          TEST_ATTR       L01,#14 [FALSE] 27879
2785b:  2d 05 02                STORE           L04,L01
2785e:  2d 04 2a                STORE           L03,G1a
27861:  cd 4f 2a 01 00          STORE           G1a,#0100
27866:  e0 27 34 7a 02 02 00    CALL_VS         d1e8 (L01,#02) -> -(SP)
2786d:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27876
27872:  2d 2a 04                STORE           G1a,L03
27875:  b0                      RTRUE
27876:  2d 2a 04                STORE           G1a,L03
27879:  61 02 01 80 5a          JE              L01,L00 [TRUE] 278d6
2787e:  41 02 00 80 55          JE              L01,#00 [TRUE] 278d6
27883:  4a 02 03 80 2e          TEST_ATTR       L01,#03 [TRUE] 278b4
27888:  4a 02 14 80 29          TEST_ATTR       L01,#14 [TRUE] 278b4
2788d:  4a 02 00 00 0c          TEST_ATTR       L01,#00 [FALSE] 2789c
27892:  e0 16 a2 82 13 06 02 00 CALL_VS         28a08 (#13,#06,L01) -> -(SP)
2789a:  ab 00                   RET             (SP)+
2789c:  4a 02 17 00 0c          TEST_ATTR       L01,#17 [FALSE] 278ab
278a1:  e0 16 a2 82 13 07 02 00 CALL_VS         28a08 (#13,#07,L01) -> -(SP)
278a9:  ab 00                   RET             (SP)+
278ab:  e0 17 a2 82 13 08 00    CALL_VS         28a08 (#13,#08) -> -(SP)
278b2:  ab 00                   RET             (SP)+
278b4:  4a 02 03 00 11          TEST_ATTR       L01,#03 [FALSE] 278c8
278b9:  4a 02 0e 80 0c          TEST_ATTR       L01,#0e [TRUE] 278c8
278be:  e0 16 a2 82 13 09 02 00 CALL_VS         28a08 (#13,#09,L01) -> -(SP)
278c6:  ab 00                   RET             (SP)+
278c8:  a3 02 02                GET_PARENT      L01 -> L01
278cb:  61 02 19 00 05          JE              L01,G09 [FALSE] 278d3
278d0:  2d 02 01                STORE           L01,L00
278d3:  8c ff a5                JUMP            27879
278d6:  4a 30 11 00 0b          TEST_ATTR       G20,#11 [FALSE] 278e4
278db:  e0 17 a2 82 13 0a 00    CALL_VS         28a08 (#13,#0a) -> -(SP)
278e2:  ab 00                   RET             (SP)+
278e4:  4a 30 13 00 0b          TEST_ATTR       G20,#13 [FALSE] 278f2
278e9:  e0 17 a2 82 13 0b 00    CALL_VS         28a08 (#13,#0b) -> -(SP)
278f0:  ab 00                   RET             (SP)+
278f2:  0d 04 00                STORE           L03,#00
278f5:  a2 19 03 c2             GET_CHILD       G09 -> L02 [TRUE] 278f9
278f9:  41 03 00 80 10          JE              L02,#00 [TRUE] 2790c
278fe:  4a 03 1a 80 04          TEST_ATTR       L02,#1a [TRUE] 27905
27903:  95 04                   INC             L03
27905:  a1 03 03 c2             GET_SIBLING     L02 -> L02 [TRUE] 27909
27909:  8c ff ef                JUMP            278f9
2790c:  e0 27 34 72 19 1b 00    CALL_VS         d1c8 (G09,#1b) -> -(SP)
27913:  62 04 00 80 74          JL              L03,(SP)+ [TRUE] 2798a
27918:  01 4f 00 80 66          JE              #4f,#00 [TRUE] 27981
2791d:  93 4f 00                GET_PARENT      "canvas rucksack" -> -(SP)
27920:  61 00 19 80 0b          JE              (SP)+,G09 [TRUE] 2792e
27925:  e0 17 a2 82 13 0c 00    CALL_VS         28a08 (#13,#0c) -> -(SP)
2792c:  ab 00                   RET             (SP)+
2792e:  0d 03 00                STORE           L02,#00
27931:  a2 19 04 c2             GET_CHILD       G09 -> L03 [TRUE] 27935
27935:  41 04 00 80 1b          JE              L03,#00 [TRUE] 27953
2793a:  41 04 4f 80 0f          JE              L03,#4f [TRUE] 2794c
2793f:  4a 04 1a 80 0a          TEST_ATTR       L03,#1a [TRUE] 2794c
27944:  4a 04 09 80 05          TEST_ATTR       L03,#09 [TRUE] 2794c
27949:  2d 03 04                STORE           L02,L03
2794c:  a1 04 04 c2             GET_SIBLING     L03 -> L03 [TRUE] 27950
27950:  8c ff e4                JUMP            27935
27953:  41 03 00 80 1f          JE              L02,#00 [TRUE] 27975
27958:  f9 16 a2 82 13 0d 03    CALL_VN         28a08 (#13,#0d,L02)
2795f:  0d 8a 01                STORE           G7a,#01
27962:  f9 19 36 0d 1a 03 4f    CALL_VN         d834 (#1a,L02,#4f)
27969:  0d 8a 00                STORE           G7a,#00
2796c:  46 03 4f 80 03          JIN             L02,"canvas rucksack" [TRUE]
27972
27971:  b0                      RTRUE
27972:  8c 00 0b                JUMP            2797e
27975:  e0 17 a2 82 13 0c 00    CALL_VS         28a08 (#13,#0c) -> -(SP)
2797c:  ab 00                   RET             (SP)+
2797e:  8c 00 0b                JUMP            2798a
27981:  e0 17 a2 82 13 0c 00    CALL_VS         28a08 (#13,#0c) -> -(SP)
27988:  ab 00                   RET             (SP)+
2798a:  6e 30 19                INSERT_OBJ      G20,G09
2798d:  41 05 00 80 1d          JE              L04,#00 [TRUE] 279ad
27992:  2d 04 2a                STORE           L03,G1a
27995:  cd 4f 2a 01 00          STORE           G1a,#0100
2799a:  e0 27 34 7a 05 03 00    CALL_VS         d1e8 (L04,#03) -> -(SP)
279a1:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 279aa
279a6:  2d 2a 04                STORE           G1a,L03
279a9:  b0                      RTRUE
279aa:  2d 2a 04                STORE           G1a,L03
279ad:  b1                      RFALSE

Routine 279b0, 1 local
    Action routine for:
        "put down MULTIHELD"
        "put MULTIHELD down"
        "discard MULTIHELD"
        "roll NOUN"

279b1:  a3 30 01                GET_PARENT      G20 -> L00
279b4:  61 01 11 00 0b          JE              L00,G01 [FALSE] 279c2
279b9:  e0 17 a2 82 1c 01 00    CALL_VS         28a08 (#1c,#01) -> -(SP)
279c0:  ab 00                   RET             (SP)+
279c2:  61 01 19 80 0b          JE              L00,G09 [TRUE] 279d0
279c7:  e0 17 a2 82 1c 02 00    CALL_VS         28a08 (#1c,#02) -> -(SP)
279ce:  ab 00                   RET             (SP)+
279d0:  4a 30 1a 00 15          TEST_ATTR       G20,#1a [FALSE] 279e8
279d5:  f9 16 a2 82 1c 03 30    CALL_VN         28a08 (#1c,#03,G20)
279dc:  f9 1b 36 0d 16 30       CALL_VN         d834 (#16,G20)
279e2:  4a 30 1a 00 03          TEST_ATTR       G20,#1a [FALSE] 279e8
279e7:  b0                      RTRUE
279e8:  a3 19 00                GET_PARENT      G09 -> -(SP)
279eb:  6e 30 00                INSERT_OBJ      G20,(SP)+
279ee:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
279f2:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 279f8
279f7:  b0                      RTRUE
279f8:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 279fe
279fd:  b0                      RTRUE
279fe:  e0 17 a2 82 1c 04 00    CALL_VS         28a08 (#1c,#04) -> -(SP)
27a05:  ab 00                   RET             (SP)+

Routine 27a08, 1 local
    Action routine for:
        "carry MULTIINSIDE from NOUN"
        "carry MULTIINSIDE off NOUN"
        "remove MULTIINSIDE from NOUN"

27a09:  a3 30 01                GET_PARENT      G20 -> L00
27a0c:  4a 01 03 00 10          TEST_ATTR       L00,#03 [FALSE] 27a1f
27a11:  4a 01 0e 80 0b          TEST_ATTR       L00,#0e [TRUE] 27a1f
27a16:  e0 17 a2 82 14 01 00    CALL_VS         28a08 (#14,#01) -> -(SP)
27a1d:  ab 00                   RET             (SP)+
27a1f:  61 01 31 80 0b          JE              L00,G21 [TRUE] 27a2d
27a24:  e0 17 a2 82 14 02 00    CALL_VS         28a08 (#14,#02) -> -(SP)
27a2b:  ab 00                   RET             (SP)+
27a2d:  4a 01 00 00 0c          TEST_ATTR       L00,#00 [FALSE] 27a3c
27a32:  e0 16 a2 82 13 06 01 00 CALL_VS         28a08 (#13,#06,L00) -> -(SP)
27a3a:  ab 00                   RET             (SP)+
27a3c:  d9 2f 9e 04 31 00       CALL_2S         27810 (G21) -> -(SP)
27a42:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 27a48
27a47:  b0                      RTRUE
27a48:  0d 2a 13                STORE           G1a,#13
27a4b:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27a4f:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27a55
27a54:  b0                      RTRUE
27a55:  0d 2a 14                STORE           G1a,#14
27a58:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27a5c:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27a62
27a61:  b0                      RTRUE
27a62:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27a68
27a67:  b0                      RTRUE
27a68:  e0 17 a2 82 14 04 00    CALL_VS         28a08 (#14,#04) -> -(SP)
27a6f:  ab 00                   RET             (SP)+

Routine 27a74, 2 locals

27a75:  41 02 00 80 0e          JE              L01,#00 [TRUE] 27a86
27a7a:  61 01 02 00 03          JE              L00,L01 [FALSE] 27a80
27a7f:  b0                      RTRUE
27a80:  a3 02 02                GET_PARENT      L01 -> L01
27a83:  8c ff f1                JUMP            27a75
27a86:  b1                      RFALSE

Routine 27a88, 0 locals
    Action routine for:
        "put MULTIEXCEPT on NOUN"
        "put MULTIEXCEPT onto NOUN"
        "discard MULTIEXCEPT on NOUN"
        "discard MULTIEXCEPT onto NOUN"
        "lay NOUN on NOUN"

27a89:  0d 8b 1b                STORE           G7b,#1b
27a8c:  41 31 0b 00 09          JE              G21,#0b [FALSE] 27a98
27a91:  f9 1b 36 0d 1c 30       CALL_VN         d834 (#1c,G20)
27a97:  b1                      RFALSE
27a98:  a3 30 00                GET_PARENT      G20 -> -(SP)
27a9b:  61 00 19 80 0c          JE              (SP)+,G09 [TRUE] 27aaa
27aa0:  e0 16 a2 82 1b 01 30 00 CALL_VS         28a08 (#1b,#01,G20) -> -(SP)
27aa8:  ab 00                   RET             (SP)+
27aaa:  43 31 01 00 1a          JG              G21,#01 [FALSE] 27ac7
27aaf:  cd 4f 2a 01 01          STORE           G1a,#0101
27ab4:  e0 27 34 7a 31 02 00    CALL_VS         d1e8 (G21,#02) -> -(SP)
27abb:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27ac4
27ac0:  0d 2a 1b                STORE           G1a,#1b
27ac3:  b0                      RTRUE
27ac4:  0d 2a 1b                STORE           G1a,#1b
27ac7:  e0 2b 9e 9d 30 31 00    CALL_VS         27a74 (G20,G21) -> -(SP)
27ace:  41 00 01 00 0b          JE              (SP)+,#01 [FALSE] 27adc
27ad3:  e0 17 a2 82 1b 02 00    CALL_VS         28a08 (#1b,#02) -> -(SP)
27ada:  ab 00                   RET             (SP)+
27adc:  4a 31 14 80 0c          TEST_ATTR       G21,#14 [TRUE] 27aeb
27ae1:  e0 16 a2 82 1b 03 31 00 CALL_VS         28a08 (#1b,#03,G21) -> -(SP)
27ae9:  ab 00                   RET             (SP)+
27aeb:  a3 31 00                GET_PARENT      G21 -> -(SP)
27aee:  61 00 19 00 0b          JE              (SP)+,G09 [FALSE] 27afc
27af3:  e0 17 a2 82 1b 04 00    CALL_VS         28a08 (#1b,#04) -> -(SP)
27afa:  ab 00                   RET             (SP)+
27afc:  4a 30 1a 00 14          TEST_ATTR       G20,#1a [FALSE] 27b13
27b01:  f9 17 a2 82 1b 05       CALL_VN         28a08 (#1b,#05)
27b07:  f9 1b 36 0d 16 30       CALL_VN         d834 (#16,G20)
27b0d:  4a 30 1a 00 03          TEST_ATTR       G20,#1a [FALSE] 27b13
27b12:  b0                      RTRUE
27b13:  e0 27 34 72 31 1b 00    CALL_VS         d1c8 (G21,#1b) -> -(SP)
27b1a:  0d ff 00                STORE           Gef,#00
27b1d:  a2 31 00 49             GET_CHILD       G21 -> -(SP) [FALSE] 27b28
27b21:  95 ff                   INC             Gef
27b23:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 27b21
27b28:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
27b2c:  62 00 00 80 0c          JL              (SP)+,(SP)+ [TRUE] 27b3b
27b31:  e0 16 a2 82 1b 06 31 00 CALL_VS         28a08 (#1b,#06,G21) -> -(SP)
27b39:  ab 00                   RET             (SP)+
27b3b:  6e 30 31                INSERT_OBJ      G20,G21
27b3e:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27b42:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27b48
27b47:  b0                      RTRUE
27b48:  43 31 01 00 1a          JG              G21,#01 [FALSE] 27b65
27b4d:  cd 4f 2a 01 01          STORE           G1a,#0101
27b52:  e0 27 34 7a 31 03 00    CALL_VS         d1e8 (G21,#03) -> -(SP)
27b59:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27b62
27b5e:  0d 2a 1b                STORE           G1a,#1b
27b61:  b0                      RTRUE
27b62:  0d 2a 1b                STORE           G1a,#1b
27b65:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27b6b
27b6a:  b0                      RTRUE
27b6b:  41 35 01 00 0b          JE              G25,#01 [FALSE] 27b79
27b70:  e0 17 a2 82 1b 07 00    CALL_VS         28a08 (#1b,#07) -> -(SP)
27b77:  ab 00                   RET             (SP)+
27b79:  f9 16 a2 82 1b 08 30    CALL_VN         28a08 (#1b,#08,G20)
27b80:  b0                      RTRUE

Routine 27b84, 0 locals
    Action routine for:
        "put MULTIEXCEPT in NOUN"
        "put MULTIEXCEPT inside NOUN"
        "put MULTIEXCEPT into NOUN"
        "insert MULTIEXCEPT in NOUN"
        "insert MULTIEXCEPT into NOUN"
        "discard MULTIEXCEPT in NOUN"
        "discard MULTIEXCEPT into NOUN"
        "discard MULTIEXCEPT down NOUN"
        "hang NOUN on NOUN"
        "hang NOUN onto NOUN"
        "hang up NOUN on NOUN"
        "hang up NOUN onto NOUN"
        "hang NOUN up on NOUN"
        "hang NOUN up onto NOUN"
        "stack HELD on NOUN"
        "stack HELD onto NOUN"
        "stack HELD in NOUN"

27b85:  0d 8b 1a                STORE           G7b,#1a
27b88:  41 31 0b 00 09          JE              G21,#0b [FALSE] 27b94
27b8d:  f9 1b 36 0d 1c 30       CALL_VN         d834 (#1c,G20)
27b93:  b0                      RTRUE
27b94:  a3 30 00                GET_PARENT      G20 -> -(SP)
27b97:  61 00 19 80 0b          JE              (SP)+,G09 [TRUE] 27ba5
27b9c:  e0 17 a2 82 1a 01 00    CALL_VS         28a08 (#1a,#01) -> -(SP)
27ba3:  ab 00                   RET             (SP)+
27ba5:  43 31 01 00 1a          JG              G21,#01 [FALSE] 27bc2
27baa:  cd 4f 2a 01 01          STORE           G1a,#0101
27baf:  e0 27 34 7a 31 02 00    CALL_VS         d1e8 (G21,#02) -> -(SP)
27bb6:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27bbf
27bbb:  0d 2a 1a                STORE           G1a,#1a
27bbe:  b0                      RTRUE
27bbf:  0d 2a 1a                STORE           G1a,#1a
27bc2:  4a 31 03 80 0b          TEST_ATTR       G21,#03 [TRUE] 27bd0
27bc7:  e0 17 a2 82 1a 02 00    CALL_VS         28a08 (#1a,#02) -> -(SP)
27bce:  ab 00                   RET             (SP)+
27bd0:  4a 31 0e 80 0b          TEST_ATTR       G21,#0e [TRUE] 27bde
27bd5:  e0 17 a2 82 1a 03 00    CALL_VS         28a08 (#1a,#03) -> -(SP)
27bdc:  ab 00                   RET             (SP)+
27bde:  e0 2b 9e 9d 30 31 00    CALL_VS         27a74 (G20,G21) -> -(SP)
27be5:  41 00 01 00 0b          JE              (SP)+,#01 [FALSE] 27bf3
27bea:  e0 17 a2 82 1a 05 00    CALL_VS         28a08 (#1a,#05) -> -(SP)
27bf1:  ab 00                   RET             (SP)+
27bf3:  4a 30 1a 00 14          TEST_ATTR       G20,#1a [FALSE] 27c0a
27bf8:  f9 17 a2 82 1a 06       CALL_VN         28a08 (#1a,#06)
27bfe:  f9 1b 36 0d 16 30       CALL_VN         d834 (#16,G20)
27c04:  4a 30 1a 00 03          TEST_ATTR       G20,#1a [FALSE] 27c0a
27c09:  b0                      RTRUE
27c0a:  e0 27 34 72 31 1b 00    CALL_VS         d1c8 (G21,#1b) -> -(SP)
27c11:  0d ff 00                STORE           Gef,#00
27c14:  a2 31 00 49             GET_CHILD       G21 -> -(SP) [FALSE] 27c1f
27c18:  95 ff                   INC             Gef
27c1a:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 27c18
27c1f:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
27c23:  62 00 00 80 0c          JL              (SP)+,(SP)+ [TRUE] 27c32
27c28:  e0 16 a2 82 1a 07 31 00 CALL_VS         28a08 (#1a,#07,G21) -> -(SP)
27c30:  ab 00                   RET             (SP)+
27c32:  6e 30 31                INSERT_OBJ      G20,G21
27c35:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27c39:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27c3f
27c3e:  b0                      RTRUE
27c3f:  43 31 01 00 1a          JG              G21,#01 [FALSE] 27c5c
27c44:  cd 4f 2a 01 01          STORE           G1a,#0101
27c49:  e0 27 34 7a 31 03 00    CALL_VS         d1e8 (G21,#03) -> -(SP)
27c50:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27c59
27c55:  0d 2a 1a                STORE           G1a,#1a
27c58:  b0                      RTRUE
27c59:  0d 2a 1a                STORE           G1a,#1a
27c5c:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27c62
27c61:  b0                      RTRUE
27c62:  41 35 01 00 0b          JE              G25,#01 [FALSE] 27c70
27c67:  e0 17 a2 82 1a 08 00    CALL_VS         28a08 (#1a,#08) -> -(SP)
27c6e:  ab 00                   RET             (SP)+
27c70:  f9 16 a2 82 1a 09 30    CALL_VN         28a08 (#1a,#09,G20)
27c77:  b0                      RTRUE

Routine 27c78, 5 locals
    Action routine for:
        "transfer NOUN to NOUN"
        "clear NOUN to NOUN"

27c79:  0d 02 1c                STORE           L01,#1c
27c7c:  4a 31 03 00 08          TEST_ATTR       G21,#03 [FALSE] 27c87
27c81:  0d 02 1a                STORE           L01,#1a
27c84:  8c 00 0a                JUMP            27c8f
27c87:  4a 31 14 00 05          TEST_ATTR       G21,#14 [FALSE] 27c8f
27c8c:  0d 02 1b                STORE           L01,#1b
27c8f:  a3 30 01                GET_PARENT      G20 -> L00
27c92:  61 01 19 80 2c          JE              L00,G09 [TRUE] 27cc1
27c97:  41 01 00 80 1e          JE              L00,#00 [TRUE] 27cb8
27c9c:  4a 01 0e 80 0b          TEST_ATTR       L00,#0e [TRUE] 27caa
27ca1:  e0 17 a2 82 1f 01 00    CALL_VS         28a08 (#1f,#01) -> -(SP)
27ca8:  ab 00                   RET             (SP)+
27caa:  a3 01 01                GET_PARENT      L00 -> L00
27cad:  61 01 19 00 05          JE              L00,G09 [FALSE] 27cb5
27cb2:  8c 00 0e                JUMP            27cc1
27cb5:  8c ff e1                JUMP            27c97
27cb8:  e0 17 a2 82 1f 02 00    CALL_VS         28a08 (#1f,#02) -> -(SP)
27cbf:  ab 00                   RET             (SP)+
27cc1:  66 30 19 80 50          JIN             G20,G09 [TRUE] 27d14
27cc6:  a3 30 05                GET_PARENT      G20 -> L04
27cc9:  4a 05 03 80 07          TEST_ATTR       L04,#03 [TRUE] 27cd3
27cce:  4a 05 14 00 20          TEST_ATTR       L04,#14 [FALSE] 27cf1
27cd3:  2d 04 05                STORE           L03,L04
27cd6:  2d 03 2a                STORE           L02,G1a
27cd9:  cd 4f 2a 01 00          STORE           G1a,#0100
27cde:  e0 27 34 7a 05 02 00    CALL_VS         d1e8 (L04,#02) -> -(SP)
27ce5:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27cee
27cea:  2d 2a 03                STORE           G1a,L02
27ced:  b0                      RTRUE
27cee:  2d 2a 03                STORE           G1a,L02
27cf1:  6e 30 19                INSERT_OBJ      G20,G09
27cf4:  41 04 00 80 1d          JE              L03,#00 [TRUE] 27d14
27cf9:  2d 03 2a                STORE           L02,G1a
27cfc:  cd 4f 2a 01 00          STORE           G1a,#0100
27d01:  e0 27 34 7a 04 03 00    CALL_VS         d1e8 (L03,#03) -> -(SP)
27d08:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 27d11
27d0d:  2d 2a 03                STORE           G1a,L02
27d10:  b0                      RTRUE
27d11:  2d 2a 03                STORE           G1a,L02
27d14:  41 02 1c 00 09          JE              L01,#1c [FALSE] 27d20
27d19:  f9 1b 36 0d 1c 30       CALL_VN         d834 (#1c,G20)
27d1f:  b0                      RTRUE
27d20:  41 02 1a 00 0a          JE              L01,#1a [FALSE] 27d2d
27d25:  f9 1a 36 0d 1a 30 31    CALL_VN         d834 (#1a,G20,G21)
27d2c:  b0                      RTRUE
27d2d:  41 02 1b 00 0a          JE              L01,#1b [FALSE] 27d3a
27d32:  f9 1a 36 0d 1b 30 31    CALL_VN         d834 (#1b,G20,G21)
27d39:  b0                      RTRUE
27d3a:  b0                      RTRUE

Routine 27d3c, 0 locals
    Action routine for:
        "empty NOUN"
        "empty out NOUN"
        "empty NOUN out"

27d3d:  0d 31 0b                STORE           G21,#0b
27d40:  8f 9f 51                CALL_1N         27d44
27d43:  b0                      RTRUE

Routine 27d44, 2 locals
    Action routine for:
        "empty NOUN to NOUN"
        "empty NOUN into NOUN"
        "empty NOUN on NOUN"
        "empty NOUN onto NOUN"

27d45:  4a 30 03 80 0c          TEST_ATTR       G20,#03 [TRUE] 27d54
27d4a:  e0 16 a2 82 1e 01 30 00 CALL_VS         28a08 (#1e,#01,G20) -> -(SP)
27d52:  ab 00                   RET             (SP)+
27d54:  4a 30 0e 80 0c          TEST_ATTR       G20,#0e [TRUE] 27d63
27d59:  e0 16 a2 82 1e 02 30 00 CALL_VS         28a08 (#1e,#02,G20) -> -(SP)
27d61:  ab 00                   RET             (SP)+
27d63:  41 31 0b 80 20          JE              G21,#0b [TRUE] 27d86
27d68:  4a 31 03 80 0c          TEST_ATTR       G21,#03 [TRUE] 27d77
27d6d:  e0 16 a2 82 1e 01 31 00 CALL_VS         28a08 (#1e,#01,G21) -> -(SP)
27d75:  ab 00                   RET             (SP)+
27d77:  4a 31 0e 80 0c          TEST_ATTR       G21,#0e [TRUE] 27d86
27d7c:  e0 16 a2 82 1e 02 31 00 CALL_VS         28a08 (#1e,#02,G21) -> -(SP)
27d84:  ab 00                   RET             (SP)+
27d86:  a2 30 01 c2             GET_CHILD       G20 -> L00 [TRUE] 27d8a
27d8a:  41 01 00 00 0c          JE              L00,#00 [FALSE] 27d99
27d8f:  e0 16 a2 82 1e 03 30 00 CALL_VS         28a08 (#1e,#03,G20) -> -(SP)
27d97:  ab 00                   RET             (SP)+
27d99:  41 01 00 80 1b          JE              L00,#00 [TRUE] 27db7
27d9e:  a1 01 02 c2             GET_SIBLING     L00 -> L01 [TRUE] 27da2
27da2:  da 2f 38 57 01          CALL_2N         e15c (L00)
27da7:  b2 ...                  PRINT           ": "
27daa:  f9 1a 36 0d 1f 01 31    CALL_VN         d834 (#1f,L00,G21)
27db1:  2d 01 02                STORE           L00,L01
27db4:  8c ff e4                JUMP            27d99
27db7:  b0                      RTRUE

Routine 27db8, 0 locals
    Action routine for:
        "feed HELD to CREATURE"
        "feed over HELD to CREATURE"

27db9:  a3 30 00                GET_PARENT      G20 -> -(SP)
27dbc:  61 00 19 80 0c          JE              (SP)+,G09 [TRUE] 27dcb
27dc1:  e0 16 a2 82 22 01 30 00 CALL_VS         28a08 (#22,#01,G20) -> -(SP)
27dc9:  ab 00                   RET             (SP)+
27dcb:  61 31 19 00 0c          JE              G21,G09 [FALSE] 27dda
27dd0:  e0 16 a2 82 22 02 30 00 CALL_VS         28a08 (#22,#02,G20) -> -(SP)
27dd8:  ab 00                   RET             (SP)+
27dda:  e0 27 36 26 31 22 00    CALL_VS         d898 (G21,#22) -> -(SP)
27de1:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 27de7
27de6:  b1                      RFALSE
27de7:  f9 16 a2 82 22 03 31    CALL_VN         28a08 (#22,#03,G21)
27dee:  b0                      RTRUE

Routine 27df0, 0 locals
    Action routine for:
        "feed CREATURE HELD"

27df1:  f9 1a 36 0d 22 31 30    CALL_VN         d834 (#22,G21,G20)
27df8:  b0                      RTRUE

Routine 27dfc, 0 locals
    Action routine for:
        "display HELD to CREATURE"

27dfd:  a3 30 00                GET_PARENT      G20 -> -(SP)
27e00:  61 00 19 80 0c          JE              (SP)+,G09 [TRUE] 27e0f
27e05:  e0 16 a2 82 24 01 30 00 CALL_VS         28a08 (#24,#01,G20) -> -(SP)
27e0d:  ab 00                   RET             (SP)+
27e0f:  61 31 19 00 09          JE              G21,G09 [FALSE] 27e1b
27e14:  f9 1b 36 0d 2a 30       CALL_VN         d834 (#2a,G20)
27e1a:  b0                      RTRUE
27e1b:  e0 27 36 26 31 24 00    CALL_VS         d898 (G21,#24) -> -(SP)
27e22:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 27e28
27e27:  b1                      RFALSE
27e28:  f9 16 a2 82 24 02 31    CALL_VN         28a08 (#24,#02,G21)
27e2f:  b0                      RTRUE

Routine 27e30, 0 locals
    Action routine for:
        "display CREATURE HELD"

27e31:  f9 1a 36 0d 24 31 30    CALL_VN         d834 (#24,G21,G20)
27e38:  b0                      RTRUE

Routine 27e3c, 1 local
    Action routine for:
        "carry in NOUN"
        "carry into NOUN"
        "carry on NOUN"
        "stand on NOUN"
        "go NOUN"
        "go into NOUN"
        "go in NOUN"
        "go inside NOUN"
        "go through NOUN"
        "cross NOUN"
        "lie on NOUN"
        "lie in NOUN"
        "lie inside NOUN"
        "lie down on NOUN"
        "board NOUN"

27e3d:  4a 30 04 00 09          TEST_ATTR       G20,#04 [FALSE] 27e49
27e42:  f9 1b 36 0d 26 30       CALL_VN         d834 (#26,G20)
27e48:  b0                      RTRUE
27e49:  a3 19 01                GET_PARENT      G09 -> L00
27e4c:  61 01 11 80 0c          JE              L00,G01 [TRUE] 27e5b
27e51:  e0 16 a2 82 15 01 01 00 CALL_VS         28a08 (#15,#01,L00) -> -(SP)
27e59:  ab 00                   RET             (SP)+
27e5b:  a3 30 01                GET_PARENT      G20 -> L00
27e5e:  41 01 01 00 09          JE              L00,#01 [FALSE] 27e6a
27e63:  f9 1b 36 0d 26 30       CALL_VN         d834 (#26,G20)
27e69:  b0                      RTRUE
27e6a:  4a 30 06 80 0b          TEST_ATTR       G20,#06 [TRUE] 27e78
27e6f:  e0 17 a2 82 15 02 00    CALL_VS         28a08 (#15,#02) -> -(SP)
27e76:  ab 00                   RET             (SP)+
27e78:  4a 30 03 00 11          TEST_ATTR       G20,#03 [FALSE] 27e8c
27e7d:  4a 30 0e 80 0c          TEST_ATTR       G20,#0e [TRUE] 27e8c
27e82:  e0 16 a2 82 15 03 30 00 CALL_VS         28a08 (#15,#03,G20) -> -(SP)
27e8a:  ab 00                   RET             (SP)+
27e8c:  61 01 11 80 0b          JE              L00,G01 [TRUE] 27e9a
27e91:  e0 17 a2 82 15 04 00    CALL_VS         28a08 (#15,#04) -> -(SP)
27e98:  ab 00                   RET             (SP)+
27e9a:  6e 19 30                INSERT_OBJ      G09,G20
27e9d:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27ea1:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27ea7
27ea6:  b0                      RTRUE
27ea7:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27ead
27eac:  b0                      RTRUE
27ead:  f9 16 a2 82 15 05 30    CALL_VN         28a08 (#15,#05,G20)
27eb4:  da 2f a0 3e 30          CALL_2N         280f8 (G20)
27eb9:  b0                      RTRUE

Routine 27ebc, 0 locals
    Action routine for:
        "carry off NOUN"

27ebd:  a3 19 00                GET_PARENT      G09 -> -(SP)
27ec0:  61 00 30 00 08          JE              (SP)+,G20 [FALSE] 27ecb
27ec5:  da 1f 36 0d 12          CALL_2N         d834 (#12)
27eca:  b0                      RTRUE
27ecb:  f9 16 a2 82 17 01 30    CALL_VN         28a08 (#17,#01,G20)
27ed2:  b0                      RTRUE

Routine 27ed4, 1 local
    Action routine for:
        "carry out"
        "carry off"
        "carry up"
        "stand"
        "stand up"
        "exit"

27ed5:  a3 19 01                GET_PARENT      G09 -> L00
27ed8:  61 01 11 80 0c          JE              L00,G01 [TRUE] 27ee7
27edd:  41 11 0e 00 2e          JE              G01,#0e [FALSE] 27f0e
27ee2:  61 01 1b 00 29          JE              L00,G0b [FALSE] 27f0e
27ee7:  51 11 10 00             GET_PROP        G01,#10 -> -(SP)
27eeb:  41 00 00 00 10          JE              (SP)+,#00 [FALSE] 27efe
27ef0:  41 11 0e 00 12          JE              G01,#0e [FALSE] 27f05
27ef5:  51 1b 10 00             GET_PROP        G0b,#10 -> -(SP)
27ef9:  41 00 00 80 09          JE              (SP)+,#00 [TRUE] 27f05
27efe:  f9 17 36 0d 26 0c       CALL_VN         d834 (#26,#0c)
27f04:  b0                      RTRUE
27f05:  e0 17 a2 82 12 01 00    CALL_VS         28a08 (#12,#01) -> -(SP)
27f0c:  ab 00                   RET             (SP)+
27f0e:  4a 01 03 00 11          TEST_ATTR       L00,#03 [FALSE] 27f22
27f13:  4a 01 0e 80 0c          TEST_ATTR       L00,#0e [TRUE] 27f22
27f18:  e0 16 a2 82 12 02 01 00 CALL_VS         28a08 (#12,#02,L00) -> -(SP)
27f20:  ab 00                   RET             (SP)+
27f22:  41 11 0e 00 08          JE              G01,#0e [FALSE] 27f2d
27f27:  6e 19 1b                INSERT_OBJ      G09,G0b
27f2a:  8c 00 05                JUMP            27f30
27f2d:  6e 19 11                INSERT_OBJ      G09,G01
27f30:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
27f34:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 27f3a
27f39:  b0                      RTRUE
27f3a:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 27f40
27f3f:  b0                      RTRUE
27f40:  f9 16 a2 82 12 03 01    CALL_VN         28a08 (#12,#03,L00)
27f47:  da 1f a0 ac 01          CALL_2N         282b0 (#01)
27f4c:  b0                      RTRUE

Routine 27f50, 0 locals
    Action routine for:
        "go"

27f51:  da 1f a2 82 25          CALL_2N         28a08 (#25)
27f56:  b0                      RTRUE

Routine 27f58, 0 locals
    Action routine for:
        "cross"
        "in"

27f59:  f9 17 36 0d 26 0d       CALL_VN         d834 (#26,#0d)
27f5f:  b0                      RTRUE

Routine 27f60, 6 locals
    Action routine for:
        "go NOUN [parse 0]"

27f61:  0d 05 00                STORE           L04,#00
27f64:  a3 19 01                GET_PARENT      G09 -> L00
27f67:  41 11 0e 80 07          JE              G01,#0e [TRUE] 27f71
27f6c:  61 01 11 00 0c          JE              L00,G01 [FALSE] 27f7b
27f71:  41 11 0e 00 3c          JE              G01,#0e [FALSE] 27fb0
27f76:  61 01 1b 80 37          JE              L00,G0b [TRUE] 27fb0
27f7b:  2d 02 11                STORE           L01,G01
27f7e:  41 11 0e 00 05          JE              G01,#0e [FALSE] 27f86
27f83:  2d 11 1b                STORE           G01,G0b
27f86:  e0 27 34 7a 01 02 03    CALL_VS         d1e8 (L00,#02) -> L02
27f8d:  41 03 03 80 05          JE              L02,#03 [TRUE] 27f95
27f92:  2d 11 02                STORE           G01,L01
27f95:  41 03 01 00 0b          JE              L02,#01 [FALSE] 27fa3
27f9a:  2d 05 01                STORE           L04,L00
27f9d:  a3 01 01                GET_PARENT      L00 -> L00
27fa0:  8c 00 0f                JUMP            27fb0
27fa3:  41 03 00 00 09          JE              L02,#00 [FALSE] 27faf
27fa8:  f9 16 a2 82 26 01 01    CALL_VN         28a08 (#26,#01,L00)
27faf:  b0                      RTRUE
27fb0:  51 30 08 06             GET_PROP        G20,#08 -> L05
27fb4:  d9 2f 34 45 06 00       CALL_2S         d114 (L05) -> -(SP)
27fba:  41 00 02 00 09          JE              (SP)+,#02 [FALSE] 27fc6
27fbf:  e0 27 34 7a 30 08 06    CALL_VS         d1e8 (G20,#08) -> L05
27fc6:  71 01 06 02             GET_PROP        L00,L05 -> L01
27fca:  d9 2f 34 45 02 03       CALL_2S         d114 (L01) -> L02
27fd0:  41 03 03 00 06          JE              L02,#03 [FALSE] 27fd9
27fd5:  ad 02                   PRINT_PADDR     L01
27fd7:  bb                      NEW_LINE
27fd8:  b1                      RFALSE
27fd9:  41 03 02 00 0f          JE              L02,#02 [FALSE] 27feb
27fde:  e0 2b 34 7a 01 06 02    CALL_VS         d1e8 (L00,L05) -> L01
27fe5:  41 02 01 00 03          JE              L01,#01 [FALSE] 27feb
27fea:  b0                      RTRUE
27feb:  41 03 00 80 07          JE              L02,#00 [TRUE] 27ff5
27ff0:  41 02 00 00 12          JE              L01,#00 [FALSE] 28005
27ff5:  51 01 15 00             GET_PROP        L00,#15 -> -(SP)
27ff9:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] 28004
27ffe:  f9 27 34 52 01 15       CALL_VN         d148 (L00,#15)
28004:  b1                      RFALSE
28005:  4a 02 04 00 6f          TEST_ATTR       L01,#04 [FALSE] 28077
2800a:  4a 02 02 00 0b          TEST_ATTR       L01,#02 [FALSE] 28018
2800f:  e0 17 a2 82 26 02 00    CALL_VS         28a08 (#26,#02) -> -(SP)
28016:  ab 00                   RET             (SP)+
28018:  4a 02 0e 80 2a          TEST_ATTR       L01,#0e [TRUE] 28045
2801d:  41 30 0a 00 0c          JE              G20,#0a [FALSE] 2802c
28022:  e0 16 a2 82 26 03 02 00 CALL_VS         28a08 (#26,#03,L01) -> -(SP)
2802a:  ab 00                   RET             (SP)+
2802c:  41 30 0b 00 0c          JE              G20,#0b [FALSE] 2803b
28031:  e0 16 a2 82 26 04 02 00 CALL_VS         28a08 (#26,#04,L01) -> -(SP)
28039:  ab 00                   RET             (SP)+
2803b:  e0 16 a2 82 26 05 02 00 CALL_VS         28a08 (#26,#05,L01) -> -(SP)
28043:  ab 00                   RET             (SP)+
28045:  51 02 05 00             GET_PROP        L01,#05 -> -(SP)
28049:  d9 2f 34 45 00 00       CALL_2S         d114 ((SP)+) -> -(SP)
2804f:  41 00 02 00 0c          JE              (SP)+,#02 [FALSE] 2805e
28054:  e0 27 34 7a 02 05 02    CALL_VS         d1e8 (L01,#05) -> L01
2805b:  8c 00 06                JUMP            28062
2805e:  51 02 05 02             GET_PROP        L01,#05 -> L01
28062:  41 02 00 00 0c          JE              L01,#00 [FALSE] 28071
28067:  e0 16 a2 82 26 06 02 00 CALL_VS         28a08 (#26,#06,L01) -> -(SP)
2806f:  ab 00                   RET             (SP)+
28071:  41 02 01 00 03          JE              L01,#01 [FALSE] 28077
28076:  b0                      RTRUE
28077:  41 05 00 00 08          JE              L04,#00 [FALSE] 28082
2807c:  6e 19 02                INSERT_OBJ      G09,L01
2807f:  8c 00 05                JUMP            28085
28082:  6e 05 02                INSERT_OBJ      L04,L01
28085:  d9 2f 37 b3 02 04       CALL_2S         decc (L01) -> L03
2808b:  41 04 00 80 0b          JE              L03,#00 [TRUE] 28099
28090:  2d 11 02                STORE           G01,L01
28093:  0d 1a 01                STORE           G0a,#01
28096:  8c 00 13                JUMP            280aa
28099:  41 11 0e 00 05          JE              G01,#0e [FALSE] 280a1
2809e:  8f aa 81                CALL_1N         2aa04
280a1:  2d 1b 02                STORE           G0b,L01
280a4:  0d 11 0e                STORE           G01,#0e
280a7:  0d 1a 00                STORE           G0a,#00
280aa:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
280ae:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 280b4
280b3:  b0                      RTRUE
280b4:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 280ba
280b9:  b0                      RTRUE
280ba:  da 1f a0 ac 01          CALL_2N         282b0 (#01)
280bf:  b0                      RTRUE

Routine 280c0, 3 locals

280c1:  a3 19 00                GET_PARENT      G09 -> -(SP)
280c4:  61 01 00 00 03          JE              L00,(SP)+ [FALSE] 280ca
280c9:  b1                      RFALSE
280ca:  a2 01 02 c2             GET_CHILD       L00 -> L01 [TRUE] 280ce
280ce:  41 02 00 80 16          JE              L01,#00 [TRUE] 280e7
280d3:  4a 02 02 80 0a          TEST_ATTR       L01,#02 [TRUE] 280e0
280d8:  4a 02 11 80 05          TEST_ATTR       L01,#11 [TRUE] 280e0
280dd:  0d 03 01                STORE           L02,#01
280e0:  a1 02 02 c2             GET_SIBLING     L01 -> L01 [TRUE] 280e4
280e4:  8c ff e9                JUMP            280ce
280e7:  41 03 00 00 03          JE              L02,#00 [FALSE] 280ed
280ec:  b1                      RFALSE
280ed:  f9 16 a2 82 29 04 01    CALL_VN         28a08 (#29,#04,L00)
280f4:  b0                      RTRUE

Routine 280f8, 9 locals

280f9:  a2 01 04 c2             GET_CHILD       L00 -> L03 [TRUE] 280fd
280fd:  41 04 00 80 0c          JE              L03,#00 [TRUE] 2810c
28102:  4c 04 19                CLEAR_ATTR      L03,#19
28105:  a1 04 04 c2             GET_SIBLING     L03 -> L03 [TRUE] 28109
28109:  8c ff f3                JUMP            280fd
2810c:  0d 06 00                STORE           L05,#00
2810f:  a2 01 04 c2             GET_CHILD       L00 -> L03 [TRUE] 28113
28113:  41 04 00 80 d7          JE              L03,#00 [TRUE] 281ed
28118:  4a 04 02 80 cb          TEST_ATTR       L03,#02 [TRUE] 281e6
2811d:  a3 19 00                GET_PARENT      G09 -> -(SP)
28120:  61 04 00 80 c3          JE              L03,(SP)+ [TRUE] 281e6
28125:  4a 04 11 80 ab          TEST_ATTR       L03,#11 [TRUE] 281d3
2812a:  4b 04 19                SET_ATTR        L03,#19
2812d:  95 06                   INC             L05
2812f:  0d 05 11                STORE           L04,#11
28132:  0d 09 00                STORE           L08,#00
28135:  4a 04 04 00 0d          TEST_ATTR       L03,#04 [FALSE] 28145
2813a:  4a 04 0e 80 08          TEST_ATTR       L03,#0e [TRUE] 28145
2813f:  0d 05 06                STORE           L04,#06
28142:  0d 09 01                STORE           L08,#01
28145:  4a 04 15 00 0d          TEST_ATTR       L03,#15 [FALSE] 28155
2814a:  4a 04 0d 80 08          TEST_ATTR       L03,#0d [TRUE] 28155
2814f:  0d 05 06                STORE           L04,#06
28152:  0d 09 01                STORE           L08,#01
28155:  4a 04 03 00 16          TEST_ATTR       L03,#03 [FALSE] 2816e
2815a:  4a 04 0e 80 11          TEST_ATTR       L03,#0e [TRUE] 2816e
2815f:  52 04 06 00             GET_PROP_ADDR   L03,#06 -> -(SP)
28163:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] 2816e
28168:  0d 05 06                STORE           L04,#06
2816b:  0d 09 01                STORE           L08,#01
2816e:  4a 04 0c 00 12          TEST_ATTR       L03,#0c [FALSE] 28183
28173:  51 04 13 00             GET_PROP        L03,#13 -> -(SP)
28177:  c1 8f 00 ff ff 00 07    JE              (SP)+,#ffff [FALSE] 28183
2817e:  41 09 01 00 4f          JE              L08,#01 [FALSE] 281d0
28183:  51 04 13 00             GET_PROP        L03,#13 -> -(SP)
28187:  c1 8f 00 ff ff 80 19    JE              (SP)+,#ffff [TRUE] 281a5
2818e:  e0 27 34 7a 04 13 00    CALL_VS         d1e8 (L03,#13) -> -(SP)
28195:  41 00 00 80 0d          JE              (SP)+,#00 [TRUE] 281a5
2819a:  0d 08 01                STORE           L07,#01
2819d:  4c 04 19                CLEAR_ATTR      L03,#19
281a0:  96 06                   DEC             L05
281a2:  8c 00 2d                JUMP            281d0
281a5:  71 04 05 07             GET_PROP        L03,L04 -> L06
281a9:  41 07 00 80 24          JE              L06,#00 [TRUE] 281d0
281ae:  bb                      NEW_LINE
281af:  f9 2b 34 52 04 05       CALL_VN         d148 (L03,L04)
281b5:  0d 08 01                STORE           L07,#01
281b8:  4c 04 19                CLEAR_ATTR      L03,#19
281bb:  96 06                   DEC             L05
281bd:  4a 04 14 00 10          TEST_ATTR       L03,#14 [FALSE] 281d0
281c2:  a2 04 00 c2             GET_CHILD       L03 -> -(SP) [TRUE] 281c6
281c6:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 281d0
281cb:  da 2f a0 30 04          CALL_2N         280c0 (L03)
281d0:  8c 00 15                JUMP            281e6
281d3:  4a 04 14 00 10          TEST_ATTR       L03,#14 [FALSE] 281e6
281d8:  a2 04 00 c2             GET_CHILD       L03 -> -(SP) [TRUE] 281dc
281dc:  41 00 00 80 07          JE              (SP)+,#00 [TRUE] 281e6
281e1:  da 2f a0 30 04          CALL_2N         280c0 (L03)
281e6:  a1 04 04 c2             GET_SIBLING     L03 -> L03 [TRUE] 281ea
281ea:  8c ff 28                JUMP            28113
281ed:  41 06 00 00 04          JE              L05,#00 [FALSE] 281f4
281f2:  9b 00                   RET             #00
281f4:  41 02 00 80 34          JE              L01,#00 [TRUE] 2822b
281f9:  bb                      NEW_LINE
281fa:  41 08 01 00 05          JE              L07,#01 [FALSE] 28202
281ff:  2d 02 03                STORE           L01,L02
28202:  ad 02                   PRINT_PADDR     L01
28204:  b2 ...                  PRINT           " "
28207:  d4 4f 08 02 00 00       ADD             #08,#0200 -> -(SP)
2820d:  54 00 10 00             ADD             (SP)+,#10 -> -(SP)
28211:  54 00 80 00             ADD             (SP)+,#80 -> -(SP)
28215:  54 00 40 00             ADD             (SP)+,#40 -> -(SP)
28219:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
2821f:  a2 01 00 c2             GET_CHILD       L00 -> -(SP) [TRUE] 28223
28223:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
28229:  ab 06                   RET             L05
2822b:  41 08 01 00 0c          JE              L07,#01 [FALSE] 2823a
28230:  f9 16 a2 82 29 05 01    CALL_VN         28a08 (#29,#05,L00)
28237:  8c 00 09                JUMP            28241
2823a:  f9 16 a2 82 29 06 01    CALL_VN         28a08 (#29,#06,L00)
28241:  b0                      RTRUE

Routine 28244, 0 locals
    Action routine for:
        "brief"

28245:  0d 23 01                STORE           G13,#01
28248:  8d b6 69                PRINT_PADDR     S001
2824b:  da 1f a2 82 0b          CALL_2N         28a08 (#0b)
28250:  b0                      RTRUE

Routine 28254, 0 locals
    Action routine for:
        "long"

28255:  0d 23 02                STORE           G13,#02
28258:  8d b6 69                PRINT_PADDR     S001
2825b:  da 1f a2 82 0a          CALL_2N         28a08 (#0a)
28260:  b0                      RTRUE

Routine 28264, 0 locals
    Action routine for:
        "short"

28265:  0d 23 03                STORE           G13,#03
28268:  8d b6 69                PRINT_PADDR     S001
2826b:  da 1f a2 82 09          CALL_2N         28a08 (#09)
28270:  b0                      RTRUE

Routine 28274, 1 local

28275:  2d 01 11                STORE           L00,G01
28278:  61 01 24 80 1a          JE              L00,G14 [TRUE] 28295
2827d:  51 01 11 00             GET_PROP        L00,#11 -> -(SP)
28281:  41 00 00 80 08          JE              (SP)+,#00 [TRUE] 2828c
28286:  f9 27 34 52 01 11       CALL_VN         d148 (L00,#11)
2828c:  8f aa 43                CALL_1N         2a90c
2828f:  8f 9d 03                CALL_1N         2740c
28292:  2d 24 01                STORE           G14,L00
28295:  b0                      RTRUE

Routine 28298, 0 locals

28299:  4a 11 18 80 12          TEST_ATTR       G01,#18 [TRUE] 282ae
2829e:  4b 11 18                SET_ATTR        G01,#18
282a1:  4a 11 12 00 0a          TEST_ATTR       G01,#12 [FALSE] 282ae
282a6:  54 17 05 17             ADD             G07,#05 -> G07
282aa:  54 21 05 21             ADD             G11,#05 -> G11
282ae:  b0                      RTRUE

Routine 282b0, 3 locals
    Action routine for:
        "l"

282b1:  a3 19 00                GET_PARENT      G09 -> -(SP)
282b4:  41 00 00 00 21          JE              (SP)+,#00 [FALSE] 282d8
282b9:  b3 ...                  PRINT_RET       "** Error: player has no
location **"
282d8:  8f a0 9d                CALL_1N         28274
282db:  bb                      NEW_LINE
282dc:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
282df:  da 2f 38 57 11          CALL_2N         e15c (G01)
282e4:  f1 7f 00                SET_TEXT_STYLE  ROMAN
282e7:  a3 19 02                GET_PARENT      G09 -> L01
282ea:  41 11 0e 80 32          JE              G01,#0e [TRUE] 2831f
282ef:  61 02 11 80 2d          JE              L01,G01 [TRUE] 2831f
282f4:  4a 02 14 00 11          TEST_ATTR       L01,#14 [FALSE] 28308
282f9:  b2 ...                  PRINT           " ("
282fc:  f9 17 a2 82 29 01       CALL_VN         28a08 (#29,#01)
28302:  b2 ...                  PRINT           " "
28305:  8c 00 0e                JUMP            28314
28308:  b2 ...                  PRINT           " ("
2830b:  f9 17 a2 82 29 02       CALL_VN         28a08 (#29,#02)
28311:  b2 ...                  PRINT           " "
28314:  da 2f 38 4e 02          CALL_2N         e138 (L01)
28319:  b2 ...                  PRINT           ")"
2831c:  2d 03 02                STORE           L02,L01
2831f:  41 1c 01 00 13          JE              G0c,#01 [FALSE] 28335
28324:  b2 ...                  PRINT           " ("
28327:  f9 17 a2 82 29 03       CALL_VN         28a08 (#29,#03)
2832d:  b2 ...                  PRINT           " "
28330:  aa 19                   PRINT_OBJ       G09
28332:  b2 ...                  PRINT           ")"
28335:  bb                      NEW_LINE
28336:  42 23 03 00 52          JL              G13,#03 [FALSE] 2838b
2833b:  41 01 01 00 0c          JE              L00,#01 [FALSE] 2834a
28340:  41 23 02 80 07          JE              G13,#02 [TRUE] 2834a
28345:  4a 11 18 80 43          TEST_ATTR       G01,#18 [TRUE] 2838b
2834a:  51 11 13 00             GET_PROP        G01,#13 -> -(SP)
2834e:  c1 8f 00 ff ff 80 0b    JE              (SP)+,#ffff [TRUE] 2835e
28355:  f9 27 34 7a 11 13       CALL_VN         d1e8 (G01,#13)
2835b:  8c 00 2f                JUMP            2838b
2835e:  51 11 12 00             GET_PROP        G01,#12 -> -(SP)
28362:  41 00 00 00 20          JE              (SP)+,#00 [FALSE] 28385
28367:  b2 ...                  PRINT           "** Room undescribed! **
"
28382:  8c 00 08                JUMP            2838b
28385:  f9 27 34 52 11 12       CALL_VN         d148 (G01,#12)
2838b:  61 03 11 80 07          JE              L02,G01 [TRUE] 28395
28390:  da 2f a0 3e 11          CALL_2N         280f8 (G01)
28395:  da 2f a0 3e 03          CALL_2N         280f8 (L02)
2839a:  8f b0 f6                CALL_1N         2c3d8
2839d:  8f a0 a6                CALL_1N         28298
283a0:  0d 2a 29                STORE           G1a,#29
283a3:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
283a7:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 283ad
283ac:  b0                      RTRUE
283ad:  b0                      RTRUE

Routine 283b0, 1 local
    Action routine for:
        "l at NOUN"
        "check NOUN"
        "read NOUN"

283b1:  41 11 0e 00 0b          JE              G01,#0e [FALSE] 283bf
283b6:  e0 17 a2 82 2a 01 00    CALL_VS         28a08 (#2a,#01) -> -(SP)
283bd:  ab 00                   RET             (SP)+
283bf:  51 30 12 01             GET_PROP        G20,#12 -> L00
283c3:  41 01 00 00 25          JE              L00,#00 [FALSE] 283eb
283c8:  4a 30 03 00 09          TEST_ATTR       G20,#03 [FALSE] 283d4
283cd:  f9 1b 36 0d 2b 30       CALL_VN         d834 (#2b,G20)
283d3:  b0                      RTRUE
283d4:  4a 30 15 00 0a          TEST_ATTR       G20,#15 [FALSE] 283e1
283d9:  f9 16 a2 82 2a 03 30    CALL_VN         28a08 (#2a,#03,G20)
283e0:  b1                      RFALSE
283e1:  e0 16 a2 82 2a 02 30 00 CALL_VS         28a08 (#2a,#02,G20) -> -(SP)
283e9:  ab 00                   RET             (SP)+
283eb:  f9 27 34 52 30 12       CALL_VN         d148 (G20,#12)
283f1:  4a 30 15 00 09          TEST_ATTR       G20,#15 [FALSE] 283fd
283f6:  f9 16 a2 82 2a 03 30    CALL_VN         28a08 (#2a,#03,G20)
283fd:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
28401:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 28407
28406:  b0                      RTRUE
28407:  b0                      RTRUE

Routine 28408, 0 locals
    Action routine for:
        "l under NOUN"

28409:  41 11 0e 00 0b          JE              G01,#0e [FALSE] 28417
2840e:  e0 17 a2 82 2c 01 00    CALL_VS         28a08 (#2c,#01) -> -(SP)
28415:  ab 00                   RET             (SP)+
28417:  f9 17 a2 82 2c 02       CALL_VN         28a08 (#2c,#02)
2841d:  b0                      RTRUE

Routine 28420, 2 locals
    Action routine for:
        "l inside NOUN"
        "l in NOUN"
        "l into NOUN"
        "l through NOUN"
        "search NOUN"
        "frisk ATTRIBUTE(0)"

28421:  41 11 0e 00 0b          JE              G01,#0e [FALSE] 2842f
28426:  e0 17 a2 82 2b 01 00    CALL_VS         28a08 (#2b,#01) -> -(SP)
2842d:  ab 00                   RET             (SP)+
2842f:  a2 30 01 c2             GET_CHILD       G20 -> L00 [TRUE] 28433
28433:  41 01 00 80 11          JE              L00,#00 [TRUE] 28447
28438:  4a 01 02 80 05          TEST_ATTR       L00,#02 [TRUE] 28440
2843d:  0d 02 01                STORE           L01,#01
28440:  a1 01 01 c2             GET_SIBLING     L00 -> L00 [TRUE] 28444
28444:  8c ff ee                JUMP            28433
28447:  4a 30 14 00 1b          TEST_ATTR       G20,#14 [FALSE] 28465
2844c:  41 02 00 00 0c          JE              L01,#00 [FALSE] 2845b
28451:  e0 16 a2 82 2b 02 30 00 CALL_VS         28a08 (#2b,#02,G20) -> -(SP)
28459:  ab 00                   RET             (SP)+
2845b:  e0 16 a2 82 2b 03 30 00 CALL_VS         28a08 (#2b,#03,G20) -> -(SP)
28463:  ab 00                   RET             (SP)+
28465:  4a 30 03 80 0b          TEST_ATTR       G20,#03 [TRUE] 28473
2846a:  e0 17 a2 82 2b 04 00    CALL_VS         28a08 (#2b,#04) -> -(SP)
28471:  ab 00                   RET             (SP)+
28473:  4a 30 17 80 10          TEST_ATTR       G20,#17 [TRUE] 28486
28478:  4a 30 0e 80 0b          TEST_ATTR       G20,#0e [TRUE] 28486
2847d:  e0 17 a2 82 2b 05 00    CALL_VS         28a08 (#2b,#05) -> -(SP)
28484:  ab 00                   RET             (SP)+
28486:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
2848a:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 28490
2848f:  b0                      RTRUE
28490:  0d ff 00                STORE           Gef,#00
28493:  a2 30 00 49             GET_CHILD       G20 -> -(SP) [FALSE] 2849e
28497:  95 ff                   INC             Gef
28499:  a1 00 00 bf fb          GET_SIBLING     (SP)+ -> -(SP) [TRUE] 28497
2849e:  74 00 ff 00             ADD             (SP)+,Gef -> -(SP)
284a2:  2d 01 00                STORE           L00,(SP)+
284a5:  41 02 00 00 0c          JE              L01,#00 [FALSE] 284b4
284aa:  e0 16 a2 82 2b 06 30 00 CALL_VS         28a08 (#2b,#06,G20) -> -(SP)
284b2:  ab 00                   RET             (SP)+
284b4:  f9 16 a2 82 2b 07 30    CALL_VN         28a08 (#2b,#07,G20)
284bb:  b0                      RTRUE

Routine 284bc, 0 locals
    Action routine for:
        "open NOUN with HELD"
        "unlock NOUN with HELD"

284bd:  4a 30 0a 80 0b          TEST_ATTR       G20,#0a [TRUE] 284cb
284c2:  e0 17 a2 82 2f 01 00    CALL_VS         28a08 (#2f,#01) -> -(SP)
284c9:  ab 00                   RET             (SP)+
284cb:  4a 30 0b 80 0b          TEST_ATTR       G20,#0b [TRUE] 284d9
284d0:  e0 17 a2 82 2f 02 00    CALL_VS         28a08 (#2f,#02) -> -(SP)
284d7:  ab 00                   RET             (SP)+
284d9:  51 30 07 00             GET_PROP        G20,#07 -> -(SP)
284dd:  61 00 31 80 0b          JE              (SP)+,G21 [TRUE] 284eb
284e2:  e0 17 a2 82 2f 03 00    CALL_VS         28a08 (#2f,#03) -> -(SP)
284e9:  ab 00                   RET             (SP)+
284eb:  4c 30 0b                CLEAR_ATTR      G20,#0b
284ee:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
284f2:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 284f8
284f7:  b0                      RTRUE
284f8:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 284fe
284fd:  b0                      RTRUE
284fe:  f9 16 a2 82 2f 04 30    CALL_VN         28a08 (#2f,#04,G20)
28505:  b0                      RTRUE

Routine 28508, 0 locals
    Action routine for:
        "lock NOUN with HELD"

28509:  4a 30 0a 80 0b          TEST_ATTR       G20,#0a [TRUE] 28517
2850e:  e0 17 a2 82 41 01 00    CALL_VS         28a08 (#41,#01) -> -(SP)
28515:  ab 00                   RET             (SP)+
28517:  4a 30 0b 00 0b          TEST_ATTR       G20,#0b [FALSE] 28525
2851c:  e0 17 a2 82 41 02 00    CALL_VS         28a08 (#41,#02) -> -(SP)
28523:  ab 00                   RET             (SP)+
28525:  4a 30 0e 00 0b          TEST_ATTR       G20,#0e [FALSE] 28533
2852a:  e0 17 a2 82 41 03 00    CALL_VS         28a08 (#41,#03) -> -(SP)
28531:  ab 00                   RET             (SP)+
28533:  51 30 07 00             GET_PROP        G20,#07 -> -(SP)
28537:  61 00 31 80 0b          JE              (SP)+,G21 [TRUE] 28545
2853c:  e0 17 a2 82 41 04 00    CALL_VS         28a08 (#41,#04) -> -(SP)
28543:  ab 00                   RET             (SP)+
28545:  4b 30 0b                SET_ATTR        G20,#0b
28548:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
2854c:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 28552
28551:  b0                      RTRUE
28552:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 28558
28557:  b0                      RTRUE
28558:  f9 16 a2 82 41 05 30    CALL_VN         28a08 (#41,#05,G20)
2855f:  b0                      RTRUE

Routine 28560, 0 locals
    Action routine for:
        "rotate NOUN on"
        "rotate on NOUN"
        "switch NOUN"
        "switch NOUN on"
        "switch on NOUN"
        "change NOUN"

28561:  4a 30 15 80 0b          TEST_ATTR       G20,#15 [TRUE] 2856f
28566:  e0 17 a2 82 40 01 00    CALL_VS         28a08 (#40,#01) -> -(SP)
2856d:  ab 00                   RET             (SP)+
2856f:  4a 30 0d 00 0b          TEST_ATTR       G20,#0d [FALSE] 2857d
28574:  e0 17 a2 82 40 02 00    CALL_VS         28a08 (#40,#02) -> -(SP)
2857b:  ab 00                   RET             (SP)+
2857d:  4b 30 0d                SET_ATTR        G20,#0d
28580:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
28584:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 2858a
28589:  b0                      RTRUE
2858a:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 28590
2858f:  b0                      RTRUE
28590:  f9 16 a2 82 40 03 30    CALL_VN         28a08 (#40,#03,G20)
28597:  b0                      RTRUE

Routine 28598, 0 locals
    Action routine for:
        "close off NOUN"
        "rotate NOUN off"
        "rotate off NOUN"
        "switch NOUN off"
        "switch off NOUN"

28599:  4a 30 15 80 0b          TEST_ATTR       G20,#15 [TRUE] 285a7
2859e:  e0 17 a2 82 31 01 00    CALL_VS         28a08 (#31,#01) -> -(SP)
285a5:  ab 00                   RET             (SP)+
285a7:  4a 30 0d 80 0b          TEST_ATTR       G20,#0d [TRUE] 285b5
285ac:  e0 17 a2 82 31 02 00    CALL_VS         28a08 (#31,#02) -> -(SP)
285b3:  ab 00                   RET             (SP)+
285b5:  4c 30 0d                CLEAR_ATTR      G20,#0d
285b8:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
285bc:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 285c2
285c1:  b0                      RTRUE
285c2:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 285c8
285c7:  b0                      RTRUE
285c8:  f9 16 a2 82 31 03 30    CALL_VN         28a08 (#31,#03,G20)
285cf:  b0                      RTRUE

Routine 285d0, 0 locals
    Action routine for:
        "open NOUN"

285d1:  4a 30 0f 80 0b          TEST_ATTR       G20,#0f [TRUE] 285df
285d6:  e0 17 a2 82 2e 01 00    CALL_VS         28a08 (#2e,#01) -> -(SP)
285dd:  ab 00                   RET             (SP)+
285df:  4a 30 0b 00 0b          TEST_ATTR       G20,#0b [FALSE] 285ed
285e4:  e0 17 a2 82 2e 02 00    CALL_VS         28a08 (#2e,#02) -> -(SP)
285eb:  ab 00                   RET             (SP)+
285ed:  4a 30 0e 00 0b          TEST_ATTR       G20,#0e [FALSE] 285fb
285f2:  e0 17 a2 82 2e 03 00    CALL_VS         28a08 (#2e,#03) -> -(SP)
285f9:  ab 00                   RET             (SP)+
285fb:  4b 30 0e                SET_ATTR        G20,#0e
285fe:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
28602:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 28608
28607:  b0                      RTRUE
28608:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 2860e
2860d:  b0                      RTRUE
2860e:  4a 30 03 00 1a          TEST_ATTR       G20,#03 [FALSE] 2862b
28613:  4a 30 17 80 15          TEST_ATTR       G20,#17 [TRUE] 2862b
28618:  a2 30 00 c2             GET_CHILD       G20 -> -(SP) [TRUE] 2861c
2861c:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 2862b
28621:  e0 16 a2 82 2e 04 30 00 CALL_VS         28a08 (#2e,#04,G20) -> -(SP)
28629:  ab 00                   RET             (SP)+
2862b:  f9 16 a2 82 2e 05 30    CALL_VN         28a08 (#2e,#05,G20)
28632:  b0                      RTRUE

Routine 28634, 0 locals
    Action routine for:
        "close NOUN"
        "close up"

28635:  4a 30 0f 80 0b          TEST_ATTR       G20,#0f [TRUE] 28643
2863a:  e0 17 a2 82 30 01 00    CALL_VS         28a08 (#30,#01) -> -(SP)
28641:  ab 00                   RET             (SP)+
28643:  4a 30 0e 80 0b          TEST_ATTR       G20,#0e [TRUE] 28651
28648:  e0 17 a2 82 30 02 00    CALL_VS         28a08 (#30,#02) -> -(SP)
2864f:  ab 00                   RET             (SP)+
28651:  4c 30 0e                CLEAR_ATTR      G20,#0e
28654:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
28658:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 2865e
2865d:  b0                      RTRUE
2865e:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 28664
28663:  b0                      RTRUE
28664:  f9 16 a2 82 30 03 30    CALL_VN         28a08 (#30,#03,G20)
2866b:  b0                      RTRUE

Routine 2866c, 0 locals
    Action routine for:
        "carry off ATTRIBUTE(26)"
        "remove HELD"
        "disrobe HELD"

2866d:  4a 30 1a 80 0b          TEST_ATTR       G20,#1a [TRUE] 2867b
28672:  e0 17 a2 82 16 01 00    CALL_VS         28a08 (#16,#01) -> -(SP)
28679:  ab 00                   RET             (SP)+
2867b:  4c 30 1a                CLEAR_ATTR      G20,#1a
2867e:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
28682:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 28688
28687:  b0                      RTRUE
28688:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 2868e
2868d:  b0                      RTRUE
2868e:  f9 16 a2 82 16 02 30    CALL_VN         28a08 (#16,#02,G20)
28695:  b0                      RTRUE

Routine 28698, 0 locals
    Action routine for:
        "don HELD"
        "put on HELD"

28699:  4a 30 01 80 0b          TEST_ATTR       G20,#01 [TRUE] 286a7
2869e:  e0 17 a2 82 19 01 00    CALL_VS         28a08 (#19,#01) -> -(SP)
286a5:  ab 00                   RET             (SP)+
286a7:  a3 30 00                GET_PARENT      G20 -> -(SP)
286aa:  61 00 19 80 0b          JE              (SP)+,G09 [TRUE] 286b8
286af:  e0 17 a2 82 19 02 00    CALL_VS         28a08 (#19,#02) -> -(SP)
286b6:  ab 00                   RET             (SP)+
286b8:  4a 30 1a 00 0b          TEST_ATTR       G20,#1a [FALSE] 286c6
286bd:  e0 17 a2 82 19 03 00    CALL_VS         28a08 (#19,#03) -> -(SP)
286c4:  ab 00                   RET             (SP)+
286c6:  4b 30 1a                SET_ATTR        G20,#1a
286c9:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
286cd:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 286d3
286d2:  b0                      RTRUE
286d3:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 286d9
286d8:  b0                      RTRUE
286d9:  f9 16 a2 82 19 04 30    CALL_VN         28a08 (#19,#04,G20)
286e0:  b0                      RTRUE

Routine 286e4, 0 locals
    Action routine for:
        "eat HELD"

286e5:  4a 30 05 80 0b          TEST_ATTR       G20,#05 [TRUE] 286f3
286ea:  e0 17 a2 82 48 01 00    CALL_VS         28a08 (#48,#01) -> -(SP)
286f1:  ab 00                   RET             (SP)+
286f3:  a9 30                   REMOVE_OBJ      G20
286f5:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
286f9:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 286ff
286fe:  b0                      RTRUE
286ff:  41 8a 01 00 03          JE              G7a,#01 [FALSE] 28705
28704:  b0                      RTRUE
28705:  f9 16 a2 82 48 02 30    CALL_VN         28a08 (#48,#02,G20)
2870c:  b0                      RTRUE

Routine 28710, 0 locals
    Action routine for:
        "y"

28711:  da 1f a2 82 33          CALL_2N         28a08 (#33)
28716:  b0                      RTRUE

Routine 28718, 0 locals
    Action routine for:
        "no"

28719:  da 1f a2 82 34          CALL_2N         28a08 (#34)
2871e:  b0                      RTRUE

Routine 28720, 0 locals
    Action routine for:
        "burn NOUN"
        "burn NOUN with HELD"

28721:  da 1f a2 82 5c          CALL_2N         28a08 (#5c)
28726:  b0                      RTRUE

Routine 28728, 0 locals
    Action routine for:
        "pray"

28729:  da 1f a2 82 51          CALL_2N         28a08 (#51)
2872e:  b0                      RTRUE

Routine 28730, 0 locals
    Action routine for:
        "awake"
        "awake up"

28731:  da 1f a2 82 52          CALL_2N         28a08 (#52)
28736:  b0                      RTRUE

Routine 28738, 0 locals
    Action routine for:
        "awake CREATURE"
        "awake CREATURE up"
        "awake up CREATURE"

28739:  e0 27 36 26 30 53 00    CALL_VS         d898 (G20,#53) -> -(SP)
28740:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 28746
28745:  b1                      RFALSE
28746:  da 1f a2 82 53          CALL_2N         28a08 (#53)
2874b:  b0                      RTRUE

Routine 2874c, 0 locals
    Action routine for:
        "think"

2874d:  da 1f a2 82 55          CALL_2N         28a08 (#55)
28752:  b0                      RTRUE

Routine 28754, 0 locals
    Action routine for:
        "smell"
        "smell NOUN"

28755:  da 1f a2 82 56          CALL_2N         28a08 (#56)
2875a:  b0                      RTRUE

Routine 2875c, 0 locals
    Action routine for:
        "hear"
        "hear NOUN"
        "hear to NOUN"

2875d:  da 1f a2 82 57          CALL_2N         28a08 (#57)
28762:  b0                      RTRUE

Routine 28764, 0 locals
    Action routine for:
        "taste NOUN"

28765:  da 1f a2 82 58          CALL_2N         28a08 (#58)
2876a:  b0                      RTRUE

Routine 2876c, 0 locals
    Action routine for:
        "chop NOUN"

2876d:  da 1f a2 82 5f          CALL_2N         28a08 (#5f)
28772:  b0                      RTRUE

Routine 28774, 0 locals
    Action routine for:
        "hop over NOUN"

28775:  da 1f a2 82 61          CALL_2N         28a08 (#61)
2877a:  b0                      RTRUE

Routine 2877c, 0 locals
    Action routine for:
        "attach NOUN"
        "attach NOUN to NOUN"
        "add NOUN"
        "add NOUN to NOUN"

2877d:  da 1f a2 82 5b          CALL_2N         28a08 (#5b)
28782:  b0                      RTRUE

Routine 28784, 0 locals
    Action routine for:
        "drink"
        "drink NOUN"

28785:  da 1f a2 82 5d          CALL_2N         28a08 (#5d)
2878a:  b0                      RTRUE

Routine 2878c, 0 locals
    Action routine for:
        "dive"

2878d:  da 1f a2 82 4e          CALL_2N         28a08 (#4e)
28792:  b0                      RTRUE

Routine 28794, 0 locals
    Action routine for:
        "swing NOUN"
        "swing on NOUN"
        "swing on NOUN"

28795:  da 1f a2 82 4f          CALL_2N         28a08 (#4f)
2879a:  b0                      RTRUE

Routine 2879c, 0 locals
    Action routine for:
        "blow HELD"
        "play with HELD"
        "play HELD"

2879d:  da 1f a2 82 50          CALL_2N         28a08 (#50)
287a2:  b0                      RTRUE

Routine 287a4, 0 locals
    Action routine for:
        "clean NOUN"
        "scratch NOUN"

287a5:  da 1f a2 82 5a          CALL_2N         28a08 (#5a)
287aa:  b0                      RTRUE

Routine 287ac, 0 locals
    Action routine for:
        "adjust NOUN"

287ad:  da 1f a2 82 3a          CALL_2N         28a08 (#3a)
287b2:  b0                      RTRUE

Routine 287b4, 0 locals
    Action routine for:
        "adjust NOUN to SPECIAL"

287b5:  da 1f a2 82 3b          CALL_2N         28a08 (#3b)
287ba:  b0                      RTRUE

Routine 287bc, 0 locals
    Action routine for:
        "wave"

287bd:  da 1f a2 82 38          CALL_2N         28a08 (#38)
287c2:  b0                      RTRUE

Routine 287c4, 0 locals
    Action routine for:
        "buy SPECIAL"
        "achetez SPECIAL"

287c5:  da 1f a2 82 4c          CALL_2N         28a08 (#4c)
287ca:  b0                      RTRUE

Routine 287cc, 0 locals
    Action routine for:
        "display off"
        "sing"
        "exhibit"

287cd:  da 1f a2 82 4a          CALL_2N         28a08 (#4a)
287d2:  b0                      RTRUE

Routine 287d4, 0 locals
    Action routine for:
        "climb NOUN"
        "climb up NOUN"
        "climb over NOUN"

287d5:  da 1f a2 82 4b          CALL_2N         28a08 (#4b)
287da:  b0                      RTRUE

Routine 287dc, 0 locals
    Action routine for:
        "nap"

287dd:  da 1f a2 82 49          CALL_2N         28a08 (#49)
287e2:  b0                      RTRUE

Routine 287e4, 0 locals
    Action routine for:
        "l up TEXT [parse 1] in NOUN"
        "l up TEXT [parse 3] on NOUN"
        "consult NOUN about TEXT [parse 2]"
        "consult NOUN on TEXT [parse 2]"
        "read about TEXT [parse 1] in NOUN"
        "read TEXT [parse 1] in NOUN"
        "rotate NOUN to TEXT [parse 2]"

287e5:  f9 16 a2 82 2d 01 30    CALL_VN         28a08 (#2d,#01,G20)
287ec:  b0                      RTRUE

Routine 287f0, 0 locals
    Action routine for:
        "feel NOUN"
        "pet NOUN"

287f1:  61 30 19 00 0b          JE              G20,G09 [FALSE] 287ff
287f6:  e0 17 a2 82 59 03 00    CALL_VS         28a08 (#59,#03) -> -(SP)
287fd:  ab 00                   RET             (SP)+
287ff:  4a 30 00 00 0b          TEST_ATTR       G20,#00 [FALSE] 2880d
28804:  e0 17 a2 82 59 01 00    CALL_VS         28a08 (#59,#01) -> -(SP)
2880b:  ab 00                   RET             (SP)+
2880d:  f9 17 a2 82 59 02       CALL_VN         28a08 (#59,#02)
28813:  b0                      RTRUE

Routine 28814, 0 locals
    Action routine for:
        "drag NOUN"

28815:  4a 30 13 00 0b          TEST_ATTR       G20,#13 [FALSE] 28823
2881a:  e0 17 a2 82 3c 01 00    CALL_VS         28a08 (#3c,#01) -> -(SP)
28821:  ab 00                   RET             (SP)+
28823:  4a 30 11 00 0b          TEST_ATTR       G20,#11 [FALSE] 28831
28828:  e0 17 a2 82 3c 02 00    CALL_VS         28a08 (#3c,#02) -> -(SP)
2882f:  ab 00                   RET             (SP)+
28831:  4a 30 00 00 0b          TEST_ATTR       G20,#00 [FALSE] 2883f
28836:  e0 17 a2 82 3c 04 00    CALL_VS         28a08 (#3c,#04) -> -(SP)
2883d:  ab 00                   RET             (SP)+
2883f:  f9 17 a2 82 3c 03       CALL_VN         28a08 (#3c,#03)
28845:  b0                      RTRUE

Routine 28848, 0 locals
    Action routine for:
        "clear NOUN"
        "ring NOUN"

28849:  4a 30 13 00 0b          TEST_ATTR       G20,#13 [FALSE] 28857
2884e:  e0 17 a2 82 3d 01 00    CALL_VS         28a08 (#3d,#01) -> -(SP)
28855:  ab 00                   RET             (SP)+
28857:  4a 30 11 00 0b          TEST_ATTR       G20,#11 [FALSE] 28865
2885c:  e0 17 a2 82 3d 02 00    CALL_VS         28a08 (#3d,#02) -> -(SP)
28863:  ab 00                   RET             (SP)+
28865:  4a 30 00 00 0b          TEST_ATTR       G20,#00 [FALSE] 28873
2886a:  e0 17 a2 82 3c 04 00    CALL_VS         28a08 (#3c,#04) -> -(SP)
28871:  ab 00                   RET             (SP)+
28873:  f9 17 a2 82 3d 03       CALL_VN         28a08 (#3d,#03)
28879:  b0                      RTRUE

Routine 2887c, 0 locals
    Action routine for:
        "rotate NOUN"
        "rotate NOUN inside out"
        "rotate NOUN around"
        "rotate round NOUN"
        "tighten NOUN"
        "reverse NOUN"

2887d:  4a 30 13 00 0b          TEST_ATTR       G20,#13 [FALSE] 2888b
28882:  e0 17 a2 82 3f 01 00    CALL_VS         28a08 (#3f,#01) -> -(SP)
28889:  ab 00                   RET             (SP)+
2888b:  4a 30 11 00 0b          TEST_ATTR       G20,#11 [FALSE] 28899
28890:  e0 17 a2 82 3f 02 00    CALL_VS         28a08 (#3f,#02) -> -(SP)
28897:  ab 00                   RET             (SP)+
28899:  4a 30 00 00 0b          TEST_ATTR       G20,#00 [FALSE] 288a7
2889e:  e0 17 a2 82 3c 04 00    CALL_VS         28a08 (#3c,#04) -> -(SP)
288a5:  ab 00                   RET             (SP)+
288a7:  f9 17 a2 82 3f 03       CALL_VN         28a08 (#3f,#03)
288ad:  b0                      RTRUE

Routine 288b0, 0 locals
    Action routine for:
        "wait"

288b1:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
288b5:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 288bb
288ba:  b0                      RTRUE
288bb:  da 1f a2 82 43          CALL_2N         28a08 (#43)
288c0:  b0                      RTRUE

Routine 288c4, 0 locals
    Action routine for:
        "clear NOUN NOUN"

288c5:  f9 17 a2 82 3e 01       CALL_VN         28a08 (#3e,#01)
288cb:  b0                      RTRUE

Routine 288cc, 1 local

288cd:  a3 31 00                GET_PARENT      G21 -> -(SP)
288d0:  41 00 01 80 0b          JE              (SP)+,#01 [TRUE] 288de
288d5:  e0 17 a2 82 3e 02 00    CALL_VS         28a08 (#3e,#02) -> -(SP)
288dc:  ab 00                   RET             (SP)+
288de:  c1 97 31 0a 0b 00 0b    JE              G21,#0a,#0b [FALSE] 288ee
288e5:  e0 17 a2 82 3e 03 00    CALL_VS         28a08 (#3e,#03) -> -(SP)
288ec:  ab 00                   RET             (SP)+
288ee:  8f 35 fc                CALL_1N         d7f0
288f1:  2d 01 30                STORE           L00,G20
288f4:  6e 01 19                INSERT_OBJ      L00,G09
288f7:  f9 1b 36 0d 26 31       CALL_VN         d834 (#26,G21)
288fd:  41 11 0e 00 08          JE              G01,#0e [FALSE] 28908
28902:  6e 01 1b                INSERT_OBJ      L00,G0b
28905:  8c 00 05                JUMP            2890b
28908:  6e 01 11                INSERT_OBJ      L00,G01
2890b:  b0                      RTRUE

Routine 2890c, 0 locals
    Action routine for:
        "squash NOUN"

2890d:  4a 30 00 00 0b          TEST_ATTR       G20,#00 [FALSE] 2891b
28912:  e0 17 a2 82 4d 01 00    CALL_VS         28a08 (#4d,#01) -> -(SP)
28919:  ab 00                   RET             (SP)+
2891b:  f9 17 a2 82 4d 02       CALL_VN         28a08 (#4d,#02)
28921:  b0                      RTRUE

Routine 28924, 0 locals
    Action routine for:
        "discard HELD at NOUN"
        "discard HELD against NOUN"

28925:  43 31 01 00 1a          JG              G21,#01 [FALSE] 28942
2892a:  cd 4f 2a 01 02          STORE           G1a,#0102
2892f:  e0 27 34 7a 31 02 00    CALL_VS         d1e8 (G21,#02) -> -(SP)
28936:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 2893f
2893b:  0d 2a 20                STORE           G1a,#20
2893e:  b0                      RTRUE
2893f:  0d 2a 20                STORE           G1a,#20
28942:  4a 31 00 80 0b          TEST_ATTR       G21,#00 [TRUE] 28950
28947:  e0 17 a2 82 20 01 00    CALL_VS         28a08 (#20,#01) -> -(SP)
2894e:  ab 00                   RET             (SP)+
28950:  e0 27 36 26 31 20 00    CALL_VS         d898 (G21,#20) -> -(SP)
28957:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 2895d
2895c:  b1                      RFALSE
2895d:  f9 17 a2 82 20 02       CALL_VN         28a08 (#20,#02)
28963:  b0                      RTRUE

Routine 28964, 0 locals
    Action routine for:
        "attack NOUN"
        "kick NOUN"
        "pinch CREATURE"

28965:  4a 30 00 00 0f          TEST_ATTR       G20,#00 [FALSE] 28977
2896a:  e0 27 36 26 30 42 00    CALL_VS         d898 (G20,#42) -> -(SP)
28971:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 28977
28976:  b1                      RFALSE
28977:  da 1f a2 82 42          CALL_2N         28a08 (#42)
2897c:  b0                      RTRUE

Routine 28980, 0 locals
    Action routine for:
        "embrace CREATURE"

28981:  e0 27 36 26 30 54 00    CALL_VS         d898 (G20,#54) -> -(SP)
28988:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 2898e
2898d:  b1                      RFALSE
2898e:  61 30 19 00 0b          JE              G20,G09 [FALSE] 2899c
28993:  e0 17 a2 82 59 03 00    CALL_VS         28a08 (#59,#03) -> -(SP)
2899a:  ab 00                   RET             (SP)+
2899c:  da 1f a2 82 54          CALL_2N         28a08 (#54)
289a1:  b0                      RTRUE

Routine 289a4, 0 locals
    Action routine for:
        "answer TEXT [parse 2] to CREATURE"

289a5:  e0 27 36 26 31 44 00    CALL_VS         d898 (G21,#44) -> -(SP)
289ac:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 289b2
289b1:  b1                      RFALSE
289b2:  da 1f a2 82 44          CALL_2N         28a08 (#44)
289b7:  b0                      RTRUE

Routine 289b8, 0 locals
    Action routine for:
        "tell CREATURE about TEXT [parse 2]"

289b9:  61 30 19 00 0a          JE              G20,G09 [FALSE] 289c6
289be:  d9 1f a2 82 45 00       CALL_2S         28a08 (#45) -> -(SP)
289c4:  ab 00                   RET             (SP)+
289c6:  e0 27 36 26 30 45 00    CALL_VS         d898 (G20,#45) -> -(SP)
289cd:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 289d3
289d2:  b1                      RFALSE
289d3:  f9 17 a2 82 45 02       CALL_VN         28a08 (#45,#02)
289d9:  b0                      RTRUE

Routine 289dc, 0 locals
    Action routine for:
        "ask CREATURE about TEXT [parse 2]"

289dd:  e0 27 36 26 30 46 00    CALL_VS         d898 (G20,#46) -> -(SP)
289e4:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 289ea
289e9:  b1                      RFALSE
289ea:  da 1f a2 82 46          CALL_2N         28a08 (#46)
289ef:  b0                      RTRUE

Routine 289f0, 0 locals
    Action routine for:
        "ask CREATURE for NOUN"

289f1:  61 30 19 00 08          JE              G20,G09 [FALSE] 289fc
289f6:  da 1f 36 0d 18          CALL_2N         d834 (#18)
289fb:  b0                      RTRUE
289fc:  f9 06 a2 82 01 03 01 30 CALL_VN         28a08 (#0103,#01,G20)
28a04:  b0                      RTRUE

Routine 28a08, 4 locals

28a09:  2d 04 3a                STORE           L03,G2a
28a0c:  2d 3a 01                STORE           G2a,L00
28a0f:  41 02 00 00 05          JE              L01,#00 [FALSE] 28a17
28a14:  0d 02 01                STORE           L01,#01
28a17:  f9 2b a2 89 02 03       CALL_VN         28a24 (L01,L02)
28a1d:  2d 3a 04                STORE           G2a,L03
28a20:  b0                      RTRUE

Routine 28a24, 3 locals

28a25:  2d 03 2a                STORE           L02,G1a
28a28:  2d 40 01                STORE           G30,L00
28a2b:  2d 41 02                STORE           G31,L01
28a2e:  2d 2a 3a                STORE           G1a,G2a
28a31:  e0 17 34 7a 10 02 00    CALL_VS         d1e8 (#10,#02) -> -(SP)
28a38:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 28a41
28a3d:  2d 2a 03                STORE           G1a,L02
28a40:  b1                      RFALSE
28a41:  2d 2a 03                STORE           G1a,L02
28a44:  c1 8f 3a 01 07 00 08    JE              G2a,#0107 [FALSE] 28a51
28a4b:  b2 ...                  PRINT           "
>"
28a50:  b0                      RTRUE
28a51:  c1 8f 3a 01 06 02 2b    JE              G2a,#0106 [FALSE] 28c81
28a58:  41 01 01 00 1f          JE              L00,#01 [FALSE] 28a7a
28a5d:  b3 ...                  PRINT_RET       "(considering the first sixteen
objects only)
"
28a7a:  41 01 02 00 0d          JE              L00,#02 [FALSE] 28a8a
28a7f:  b3 ...                  PRINT_RET       "Nothing to do!"
28a8a:  41 01 03 00 0c          JE              L00,#03 [FALSE] 28a99
28a8f:  b2 ...                  PRINT           " You have died "
28a98:  b0                      RTRUE
28a99:  41 01 04 00 0c          JE              L00,#04 [FALSE] 28aa8
28a9e:  b2 ...                  PRINT           " You have won "
28aa7:  b0                      RTRUE
28aa8:  41 01 05 00 7b          JE              L00,#05 [FALSE] 28b26
28aad:  b2 ...                  PRINT           "
Would you like to RESTART, RESTORE a saved game"
28ad6:  01 00 00 00 19          JE              #00,#00 [FALSE] 28af2
28adb:  b2 ...                  PRINT           ", give the FULL score for that
game"
28af2:  41 1d 02 00 26          JE              G0d,#02 [FALSE] 28b1b
28af7:  01 00 00 00 21          JE              #00,#00 [FALSE] 28b1b
28afc:  b2 ...                  PRINT           ", see some suggestions for
AMUSING things to do"
28b1b:  b3 ...                  PRINT_RET       " or QUIT?"
28b26:  41 01 06 00 29          JE              L00,#06 [FALSE] 28b52
28b2b:  b3 ...                  PRINT_RET       "[Your interpreter does not
provide "undo". Sorry!]"
28b52:  41 01 07 00 27          JE              L00,#07 [FALSE] 28b7c
28b57:  b3 ...                  PRINT_RET       ""Undo" failed. [Not all
interpreters provide it.]"
28b7c:  41 01 08 00 1b          JE              L00,#08 [FALSE] 28b9a
28b81:  b3 ...                  PRINT_RET       "Please give one of the answers
above."
28b9a:  41 01 09 00 15          JE              L00,#09 [FALSE] 28bb2
28b9f:  b3 ...                  PRINT_RET       "
It is now pitch dark in here!"
28bb2:  41 01 0a 00 11          JE              L00,#0a [FALSE] 28bc6
28bb7:  b3 ...                  PRINT_RET       "I beg your pardon?"
28bc6:  41 01 0b 00 23          JE              L00,#0b [FALSE] 28bec
28bcb:  b3 ...                  PRINT_RET       "[You can't "undo" what hasn't
been done!]"
28bec:  41 01 0c 00 27          JE              L00,#0c [FALSE] 28c16
28bf1:  b3 ...                  PRINT_RET       "[Can't "undo" twice in
succession. Sorry!]"
28c16:  41 01 0d 00 17          JE              L00,#0d [FALSE] 28c30
28c1b:  b3 ...                  PRINT_RET       "[Previous turn undone.]"
28c30:  41 01 0e 00 19          JE              L00,#0e [FALSE] 28c4c
28c35:  b3 ...                  PRINT_RET       "Sorry, that can't be
corrected."
28c4c:  41 01 0f 00 11          JE              L00,#0f [FALSE] 28c60
28c51:  b3 ...                  PRINT_RET       "Think nothing of it."
28c60:  41 01 10 00 1d          JE              L00,#10 [FALSE] 28c80
28c65:  b3 ...                  PRINT_RET       ""Oops" can only correct a
single word."
28c80:  b1                      RFALSE
28c81:  c1 8f 3a 01 03 00 16    JE              G2a,#0103 [FALSE] 28c9c
28c88:  da 2f 38 53 02          CALL_2N         e14c (L01)
28c8d:  b3 ...                  PRINT_RET       " has better things to do."
28c9c:  41 3a 02 00 2f          JE              G2a,#02 [FALSE] 28cce
28ca1:  41 01 01 00 14          JE              L00,#01 [FALSE] 28cb8
28ca6:  b2 ...                  PRINT           "Please answer yes or no."
28cb7:  b0                      RTRUE
28cb8:  b2 ...                  PRINT           "Are you sure you want to quit?
"
28ccd:  b0                      RTRUE
28cce:  41 3a 04 00 26          JE              G2a,#04 [FALSE] 28cf7
28cd3:  41 01 01 00 1a          JE              L00,#01 [FALSE] 28cf0
28cd8:  b2 ...                  PRINT           "Are you sure you want to
restart? "
28cef:  b0                      RTRUE
28cf0:  b3 ...                  PRINT_RET       "Failed."
28cf7:  41 3a 03 00 19          JE              G2a,#03 [FALSE] 28d13
28cfc:  41 01 01 00 0f          JE              L00,#01 [FALSE] 28d0e
28d01:  b3 ...                  PRINT_RET       "Restore failed."
28d0e:  b3 ...                  PRINT_RET       "Ok."
28d13:  41 3a 06 00 17          JE              G2a,#06 [FALSE] 28d2d
28d18:  41 01 01 00 0d          JE              L00,#01 [FALSE] 28d28
28d1d:  b3 ...                  PRINT_RET       "Save failed."
28d28:  b3 ...                  PRINT_RET       "Ok."
28d2d:  41 3a 05 00 7d          JE              G2a,#05 [FALSE] 28dad
28d32:  41 01 01 00 19          JE              L00,#01 [FALSE] 28d4e
28d37:  b3 ...                  PRINT_RET       "The game file has verified as
intact."
28d4e:  b3 ...                  PRINT_RET       "The game file did not verify
properly, and may be corrupted (or you may be running it on a very primitive
interpreter which is unable properly to perform the test)."
28dad:  41 3a 07 00 2d          JE              G2a,#07 [FALSE] 28ddd
28db2:  41 01 01 00 17          JE              L00,#01 [FALSE] 28dcc
28db7:  b3 ...                  PRINT_RET       "Transcripting is already on."
28dcc:  b3 ...                  PRINT_RET       "Start of a transcript of"
28ddd:  41 3a 08 00 2b          JE              G2a,#08 [FALSE] 28e0b
28de2:  41 01 01 00 17          JE              L00,#01 [FALSE] 28dfc
28de7:  b3 ...                  PRINT_RET       "Transcripting is already off."
28dfc:  b3 ...                  PRINT_RET       "
End of transcript."
28e0b:  41 3a 0d 00 11          JE              G2a,#0d [FALSE] 28e1f
28e10:  b3 ...                  PRINT_RET       "Score notification on."
28e1f:  41 3a 0e 00 13          JE              G2a,#0e [FALSE] 28e35
28e24:  b3 ...                  PRINT_RET       "Score notification off."
28e35:  41 3a 10 00 10          JE              G2a,#10 [FALSE] 28e48
28e3a:  b2 ...                  PRINT           "You have visited: "
28e47:  b0                      RTRUE
28e48:  41 3a 11 00 21          JE              G2a,#11 [FALSE] 28e6c
28e4d:  41 01 01 00 15          JE              L00,#01 [FALSE] 28e65
28e52:  b3 ...                  PRINT_RET       "Objects you have handled:
"
28e65:  b3 ...                  PRINT_RET       "None."
28e6c:  41 3a 00 00 54          JE              G2a,#00 [FALSE] 28ec3
28e71:  41 1d 00 00 14          JE              G0d,#00 [FALSE] 28e88
28e76:  b2 ...                  PRINT           "You have so far scored "
28e85:  8c 00 13                JUMP            28e99
28e88:  b2 ...                  PRINT           "In that game you scored "
28e99:  e6 bf 17                PRINT_NUM       G07
28e9c:  b2 ...                  PRINT           " out of a possible "
28ea9:  e6 3f 02 26             PRINT_NUM       #0226
28ead:  b2 ...                  PRINT           ", in "
28eb2:  e6 bf 18                PRINT_NUM       G08
28eb5:  b2 ...                  PRINT           " turn"
28eba:  43 18 01 00 05          JG              G08,#01 [FALSE] 28ec2
28ebf:  b2 ...                  PRINT           "s"
28ec2:  b0                      RTRUE
28ec3:  41 3a 01 00 6e          JE              G2a,#01 [FALSE] 28f34
28ec8:  41 01 01 00 2d          JE              L00,#01 [FALSE] 28ef8
28ecd:  41 1d 00 00 0e          JE              G0d,#00 [FALSE] 28ede
28ed2:  b2 ...                  PRINT           "The score is "
28edb:  8c 00 0b                JUMP            28ee7
28ede:  b2 ...                  PRINT           "The score was "
28ee7:  b3 ...                  PRINT_RET       "made up as follows:
"
28ef8:  41 01 02 00 11          JE              L00,#02 [FALSE] 28f0c
28efd:  b3 ...                  PRINT_RET       "finding sundry items"
28f0c:  41 01 03 00 13          JE              L00,#03 [FALSE] 28f22
28f11:  b3 ...                  PRINT_RET       "visiting various places"
28f22:  b2 ...                  PRINT           "total (out of "
28f2d:  e6 3f 02 26             PRINT_NUM       #0226
28f31:  b3 ...                  PRINT_RET       ")"
28f34:  41 3a 18 00 24          JE              G2a,#18 [FALSE] 28f5b
28f39:  41 01 01 00 13          JE              L00,#01 [FALSE] 28f4f
28f3e:  b3 ...                  PRINT_RET       "You are carrying nothing."
28f4f:  b2 ...                  PRINT           "You are carrying"
28f5a:  b0                      RTRUE
28f5b:  41 3a 13 01 60          JE              G2a,#13 [FALSE] 290be
28f60:  41 01 01 00 09          JE              L00,#01 [FALSE] 28f6c
28f65:  b3 ...                  PRINT_RET       "Taken."
28f6c:  41 01 02 00 17          JE              L00,#02 [FALSE] 28f86
28f71:  b3 ...                  PRINT_RET       "You are always
self-possessed."
28f86:  41 01 03 00 23          JE              L00,#03 [FALSE] 28fac
28f8b:  b2 ...                  PRINT           "I don't suppose "
28f98:  da 2f 38 4e 02          CALL_2N         e138 (L01)
28f9d:  b3 ...                  PRINT_RET       " would care for that."
28fac:  41 01 04 00 2d          JE              L00,#04 [FALSE] 28fdc
28fb1:  b2 ...                  PRINT           "You'd have to get "
28fbe:  4a 02 14 00 0a          TEST_ATTR       L01,#14 [FALSE] 28fcb
28fc3:  b2 ...                  PRINT           "off "
28fc8:  8c 00 07                JUMP            28fd0
28fcb:  b2 ...                  PRINT           "out of "
28fd0:  da 2f 38 4e 02          CALL_2N         e138 (L01)
28fd5:  b3 ...                  PRINT_RET       " first."
28fdc:  41 01 05 00 11          JE              L00,#05 [FALSE] 28ff0
28fe1:  b3 ...                  PRINT_RET       "You already have that."
28ff0:  41 01 06 00 1b          JE              L00,#06 [FALSE] 2900e
28ff5:  b2 ...                  PRINT           "That seems to belong to "
29006:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2900b:  b3 ...                  PRINT_RET       "."
2900e:  41 01 07 00 1b          JE              L00,#07 [FALSE] 2902c
29013:  b2 ...                  PRINT           "That seems to be a part of "
29024:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29029:  b3 ...                  PRINT_RET       "."
2902c:  41 01 08 00 13          JE              L00,#08 [FALSE] 29042
29031:  b3 ...                  PRINT_RET       "That isn't available."
29042:  41 01 09 00 10          JE              L00,#09 [FALSE] 29055
29047:  da 2f 38 53 02          CALL_2N         e14c (L01)
2904c:  b3 ...                  PRINT_RET       " is not open."
29055:  41 01 0a 00 13          JE              L00,#0a [FALSE] 2906b
2905a:  b3 ...                  PRINT_RET       "That's hardly portable."
2906b:  41 01 0b 00 13          JE              L00,#0b [FALSE] 29081
29070:  b3 ...                  PRINT_RET       "That's fixed in place."
29081:  41 01 0c 00 1b          JE              L00,#0c [FALSE] 2909f
29086:  b3 ...                  PRINT_RET       "You're carrying too many
things already."
2909f:  b2 ...                  PRINT           "(putting "
290a6:  da 2f 38 4e 02          CALL_2N         e138 (L01)
290ab:  b2 ...                  PRINT           " into "
290b0:  da 1f 38 4e 4f          CALL_2N         e138 (#4f)
290b5:  b3 ...                  PRINT_RET       " to make room)"
290be:  41 3a 1c 00 4d          JE              G2a,#1c [FALSE] 2910e
290c3:  41 01 01 00 11          JE              L00,#01 [FALSE] 290d7
290c8:  b3 ...                  PRINT_RET       "Already on the floor."
290d7:  41 01 02 00 11          JE              L00,#02 [FALSE] 290eb
290dc:  b3 ...                  PRINT_RET       "You haven't got that."
290eb:  41 01 03 00 17          JE              L00,#03 [FALSE] 29105
290f0:  b2 ...                  PRINT           "(first taking "
290fb:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29100:  b3 ...                  PRINT_RET       " off)"
29105:  b3 ...                  PRINT_RET       "Dropped."
2910e:  41 3a 14 00 37          JE              G2a,#14 [FALSE] 29148
29113:  41 01 01 00 13          JE              L00,#01 [FALSE] 29129
29118:  b3 ...                  PRINT_RET       "It is unfortunately closed."
29129:  41 01 02 00 13          JE              L00,#02 [FALSE] 2913f
2912e:  b3 ...                  PRINT_RET       "But it isn't there now."
2913f:  b3 ...                  PRINT_RET       "Removed."
29148:  41 3a 1b 00 e9          JE              G2a,#1b [FALSE] 29234
2914d:  41 01 01 00 33          JE              L00,#01 [FALSE] 29183
29152:  b2 ...                  PRINT           "You need to be holding "
29161:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29166:  b3 ...                  PRINT_RET       " before you can put it on top
of something else."
29183:  41 01 02 00 1d          JE              L00,#02 [FALSE] 291a3
29188:  b3 ...                  PRINT_RET       "You can't put something on top
of itself."
291a3:  41 01 03 00 23          JE              L00,#03 [FALSE] 291c9
291a8:  b2 ...                  PRINT           "Putting things on "
291b5:  da 2f 38 4e 02          CALL_2N         e138 (L01)
291ba:  b3 ...                  PRINT_RET       " would achieve nothing."
291c9:  41 01 04 00 11          JE              L00,#04 [FALSE] 291dd
291ce:  b3 ...                  PRINT_RET       "You lack the dexterity."
291dd:  41 01 05 00 13          JE              L00,#05 [FALSE] 291f3
291e2:  b3 ...                  PRINT_RET       "(first taking it off)
"
291f3:  41 01 06 00 19          JE              L00,#06 [FALSE] 2920f
291f8:  b2 ...                  PRINT           "There is no more room on "
29207:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2920c:  b3 ...                  PRINT_RET       "."
2920f:  41 01 07 00 09          JE              L00,#07 [FALSE] 2921b
29214:  b3 ...                  PRINT_RET       "Done."
2921b:  b2 ...                  PRINT           "You put "
29222:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29227:  b2 ...                  PRINT           " on "
2922c:  da 2f 38 4e 31          CALL_2N         e138 (G21)
29231:  b3 ...                  PRINT_RET       "."
29234:  41 3a 1a 00 e9          JE              G2a,#1a [FALSE] 29320
29239:  41 01 01 00 2b          JE              L00,#01 [FALSE] 29267
2923e:  b3 ...                  PRINT_RET       "You need to be holding it
before you can put it into something else."
29267:  41 01 02 00 13          JE              L00,#02 [FALSE] 2927d
2926c:  b3 ...                  PRINT_RET       "That can't contain things."
2927d:  41 01 03 00 11          JE              L00,#03 [FALSE] 29291
29282:  b3 ...                  PRINT_RET       "Alas, it is closed."
29291:  41 01 04 00 17          JE              L00,#04 [FALSE] 292ab
29296:  b3 ...                  PRINT_RET       "You'll need to take it off
first."
292ab:  41 01 05 00 1b          JE              L00,#05 [FALSE] 292c9
292b0:  b3 ...                  PRINT_RET       "You can't put something inside
itself."
292c9:  41 01 06 00 13          JE              L00,#06 [FALSE] 292df
292ce:  b3 ...                  PRINT_RET       "(first taking it off)
"
292df:  41 01 07 00 19          JE              L00,#07 [FALSE] 292fb
292e4:  b2 ...                  PRINT           "There is no more room in "
292f3:  da 2f 38 4e 02          CALL_2N         e138 (L01)
292f8:  b3 ...                  PRINT_RET       "."
292fb:  41 01 08 00 09          JE              L00,#08 [FALSE] 29307
29300:  b3 ...                  PRINT_RET       "Done."
29307:  b2 ...                  PRINT           "You put "
2930e:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29313:  b2 ...                  PRINT           " into "
29318:  da 2f 38 4e 31          CALL_2N         e138 (G21)
2931d:  b3 ...                  PRINT_RET       "."
29320:  41 3a 1f 00 2b          JE              G2a,#1f [FALSE] 2934e
29325:  41 01 01 00 17          JE              L00,#01 [FALSE] 2933f
2932a:  b3 ...                  PRINT_RET       "That isn't in your
possession."
2933f:  b3 ...                  PRINT_RET       "First pick that up."
2934e:  41 3a 1e 00 40          JE              G2a,#1e [FALSE] 29391
29353:  41 01 01 00 14          JE              L00,#01 [FALSE] 2936a
29358:  da 2f 38 53 02          CALL_2N         e14c (L01)
2935d:  b3 ...                  PRINT_RET       " can't contain things."
2936a:  41 01 02 00 10          JE              L00,#02 [FALSE] 2937d
2936f:  da 2f 38 53 02          CALL_2N         e14c (L01)
29374:  b3 ...                  PRINT_RET       " is closed."
2937d:  da 2f 38 53 02          CALL_2N         e14c (L01)
29382:  b3 ...                  PRINT_RET       " is empty already."
29391:  41 3a 22 00 60          JE              G2a,#22 [FALSE] 293f4
29396:  41 01 01 00 17          JE              L00,#01 [FALSE] 293b0
2939b:  b2 ...                  PRINT           "You aren't holding "
293a8:  da 2f 38 4e 02          CALL_2N         e138 (L01)
293ad:  b3 ...                  PRINT_RET       "."
293b0:  41 01 02 00 29          JE              L00,#02 [FALSE] 293dc
293b5:  b2 ...                  PRINT           "You juggle "
293be:  da 2f 38 4e 02          CALL_2N         e138 (L01)
293c3:  b3 ...                  PRINT_RET       " for a while, but don't
achieve much."
293dc:  da 2f 38 53 02          CALL_2N         e14c (L01)
293e1:  b3 ...                  PRINT_RET       " doesn't seem interested."
293f4:  41 3a 24 00 2e          JE              G2a,#24 [FALSE] 29425
293f9:  41 01 01 00 17          JE              L00,#01 [FALSE] 29413
293fe:  b2 ...                  PRINT           "You aren't holding "
2940b:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29410:  b3 ...                  PRINT_RET       "."
29413:  da 2f 38 53 02          CALL_2N         e14c (L01)
29418:  b3 ...                  PRINT_RET       " is unimpressed."
29425:  41 3a 15 00 a5          JE              G2a,#15 [FALSE] 294cd
2942a:  41 01 01 00 27          JE              L00,#01 [FALSE] 29454
2942f:  b2 ...                  PRINT           "But you're already "
2943e:  4a 02 14 00 08          TEST_ATTR       L01,#14 [FALSE] 29449
29443:  b2 ...                  PRINT           "on "
29446:  8c 00 05                JUMP            2944c
29449:  b2 ...                  PRINT           "in "
2944c:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29451:  b3 ...                  PRINT_RET       "."
29454:  41 01 02 00 17          JE              L00,#02 [FALSE] 2946e
29459:  b3 ...                  PRINT_RET       "That's not something you can
enter."
2946e:  41 01 03 00 1b          JE              L00,#03 [FALSE] 2948c
29473:  b2 ...                  PRINT           "You can't get into the closed
"
29484:  da 2f 38 57 02          CALL_2N         e15c (L01)
29489:  b3 ...                  PRINT_RET       "."
2948c:  41 01 04 00 1d          JE              L00,#04 [FALSE] 294ac
29491:  b3 ...                  PRINT_RET       "You can only get into
something on the floor."
294ac:  b2 ...                  PRINT           "You get "
294b3:  4a 02 14 00 0a          TEST_ATTR       L01,#14 [FALSE] 294c0
294b8:  b2 ...                  PRINT           "onto "
294bd:  8c 00 07                JUMP            294c5
294c0:  b2 ...                  PRINT           "into "
294c5:  da 2f 38 4e 02          CALL_2N         e138 (L01)
294ca:  b3 ...                  PRINT_RET       "."
294cd:  41 3a 17 00 1f          JE              G2a,#17 [FALSE] 294ef
294d2:  b2 ...                  PRINT           "But you aren't on "
294df:  da 2f 38 4e 02          CALL_2N         e138 (L01)
294e4:  b3 ...                  PRINT_RET       " at the moment."
294ef:  41 3a 12 00 63          JE              G2a,#12 [FALSE] 29555
294f4:  41 01 01 00 1d          JE              L00,#01 [FALSE] 29514
294f9:  b3 ...                  PRINT_RET       "But you aren't in anything at
the moment."
29514:  41 01 02 00 1d          JE              L00,#02 [FALSE] 29534
29519:  b2 ...                  PRINT           "You can't get out of the
closed "
2952c:  da 2f 38 57 02          CALL_2N         e15c (L01)
29531:  b3 ...                  PRINT_RET       "."
29534:  b2 ...                  PRINT           "You get "
2953b:  4a 02 14 00 0a          TEST_ATTR       L01,#14 [FALSE] 29548
29540:  b2 ...                  PRINT           "off "
29545:  8c 00 07                JUMP            2954d
29548:  b2 ...                  PRINT           "out of "
2954d:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29552:  b3 ...                  PRINT_RET       "."
29555:  41 3a 25 00 1f          JE              G2a,#25 [FALSE] 29577
2955a:  b3 ...                  PRINT_RET       "You'll have to say which
compass direction to go in."
29577:  41 3a 26 00 bb          JE              G2a,#26 [FALSE] 29635
2957c:  41 01 01 00 2d          JE              L00,#01 [FALSE] 295ac
29581:  b2 ...                  PRINT           "You'll have to get "
2958e:  4a 02 14 00 0a          TEST_ATTR       L01,#14 [FALSE] 2959b
29593:  b2 ...                  PRINT           "off "
29598:  8c 00 07                JUMP            295a0
2959b:  b2 ...                  PRINT           "out of "
295a0:  da 2f 38 4e 02          CALL_2N         e138 (L01)
295a5:  b3 ...                  PRINT_RET       " first."
295ac:  41 01 02 00 11          JE              L00,#02 [FALSE] 295c0
295b1:  b3 ...                  PRINT_RET       "You can't go that way."
295c0:  41 01 03 00 19          JE              L00,#03 [FALSE] 295dc
295c5:  b2 ...                  PRINT           "You are unable to climb "
295d4:  da 2f 38 4e 02          CALL_2N         e138 (L01)
295d9:  b3 ...                  PRINT_RET       "."
295dc:  41 01 04 00 1b          JE              L00,#04 [FALSE] 295fa
295e1:  b2 ...                  PRINT           "You are unable to descend "
295f2:  da 2f 38 4e 02          CALL_2N         e138 (L01)
295f7:  b3 ...                  PRINT_RET       "."
295fa:  41 01 05 00 1d          JE              L00,#05 [FALSE] 2961a
295ff:  b2 ...                  PRINT           "You can't, since "
2960a:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2960f:  b3 ...                  PRINT_RET       " is in the way."
2961a:  b2 ...                  PRINT           "You can't, since "
29625:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2962a:  b3 ...                  PRINT_RET       " leads nowhere."
29635:  41 3a 0b 00 59          JE              G2a,#0b [FALSE] 29691
2963a:  b3 ...                  PRINT_RET       " is now in its normal "brief"
printing mode, which gives long descriptions of places never before visited and
short descriptions otherwise."
29691:  41 3a 0a 00 4d          JE              G2a,#0a [FALSE] 296e1
29696:  b3 ...                  PRINT_RET       " is now in its "verbose" mode,
which always gives long descriptions of locations (even if you've been there
before)."
296e1:  41 3a 09 00 53          JE              G2a,#09 [FALSE] 29737
296e6:  b3 ...                  PRINT_RET       " is now in its "superbrief"
mode, which always gives short descriptions of locations (even if you haven't
been there before)."
29737:  41 3a 29 00 b9          JE              G2a,#29 [FALSE] 297f3
2973c:  41 01 01 00 06          JE              L00,#01 [FALSE] 29745
29741:  b2 ...                  PRINT           "on"
29744:  b1                      RFALSE
29745:  41 01 02 00 06          JE              L00,#02 [FALSE] 2974e
2974a:  b2 ...                  PRINT           "in"
2974d:  b1                      RFALSE
2974e:  41 01 03 00 06          JE              L00,#03 [FALSE] 29757
29753:  b2 ...                  PRINT           "as"
29756:  b1                      RFALSE
29757:  41 01 04 00 31          JE              L00,#04 [FALSE] 2978b
2975c:  b2 ...                  PRINT           "
On "
29761:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29766:  14 08 10 00             ADD             #08,#10 -> -(SP)
2976a:  54 00 80 00             ADD             (SP)+,#80 -> -(SP)
2976e:  54 00 40 00             ADD             (SP)+,#40 -> -(SP)
29772:  d4 8f 00 04 00 00       ADD             (SP)+,#0400 -> -(SP)
29778:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
2977e:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 29782
29782:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
29788:  b3 ...                  PRINT_RET       "."
2978b:  61 02 11 80 1f          JE              L01,G01 [TRUE] 297ad
29790:  4a 02 14 00 0a          TEST_ATTR       L01,#14 [FALSE] 2979d
29795:  b2 ...                  PRINT           "
On "
2979a:  8c 00 07                JUMP            297a2
2979d:  b2 ...                  PRINT           "
In "
297a2:  da 2f 38 4e 02          CALL_2N         e138 (L01)
297a7:  b2 ...                  PRINT           " you"
297aa:  8c 00 07                JUMP            297b2
297ad:  b2 ...                  PRINT           "
You"
297b2:  b2 ...                  PRINT           " can "
297b5:  41 01 05 00 07          JE              L00,#05 [FALSE] 297bf
297ba:  b2 ...                  PRINT           "also "
297bf:  b2 ...                  PRINT           "see "
297c4:  d4 4f 08 02 00 00       ADD             #08,#0200 -> -(SP)
297ca:  54 00 10 00             ADD             (SP)+,#10 -> -(SP)
297ce:  54 00 80 00             ADD             (SP)+,#80 -> -(SP)
297d2:  54 00 40 00             ADD             (SP)+,#40 -> -(SP)
297d6:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
297dc:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 297e0
297e0:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
297e6:  61 02 11 80 05          JE              L01,G01 [TRUE] 297ee
297eb:  b3 ...                  PRINT_RET       "."
297ee:  b3 ...                  PRINT_RET       " here."
297f3:  41 3a 2a 00 6f          JE              G2a,#2a [FALSE] 29865
297f8:  41 01 01 00 21          JE              L00,#01 [FALSE] 2981c
297fd:  b3 ...                  PRINT_RET       "Darkness, noun. An absence of
light to see by."
2981c:  41 01 02 00 1d          JE              L00,#02 [FALSE] 2983c
29821:  b2 ...                  PRINT           "You see nothing special about
"
29834:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29839:  b3 ...                  PRINT_RET       "."
2983c:  da 2f 38 53 02          CALL_2N         e14c (L01)
29841:  b2 ...                  PRINT           " is currently switched "
29852:  4a 02 0d 00 0a          TEST_ATTR       L01,#0d [FALSE] 2985f
29857:  b3 ...                  PRINT_RET       "on."
2985c:  8c 00 07                JUMP            29864
2985f:  b3 ...                  PRINT_RET       "off."
29864:  b1                      RFALSE
29865:  41 3a 2c 00 27          JE              G2a,#2c [FALSE] 2988f
2986a:  41 01 01 00 0f          JE              L00,#01 [FALSE] 2987c
2986f:  b3 ...                  PRINT_RET       "But it's dark."
2987c:  b3 ...                  PRINT_RET       "You find nothing of interest."
2988f:  41 3a 2b 00 ca          JE              G2a,#2b [FALSE] 2995c
29894:  41 01 01 00 0f          JE              L00,#01 [FALSE] 298a6
29899:  b3 ...                  PRINT_RET       "But it's dark."
298a6:  41 01 02 00 17          JE              L00,#02 [FALSE] 298c0
298ab:  b2 ...                  PRINT           "There is nothing on "
298b8:  da 2f 38 4e 02          CALL_2N         e138 (L01)
298bd:  b3 ...                  PRINT_RET       "."
298c0:  41 01 03 00 29          JE              L00,#03 [FALSE] 298ec
298c5:  b2 ...                  PRINT           "On "
298ca:  da 2f 38 4e 02          CALL_2N         e138 (L01)
298cf:  14 40 08 00             ADD             #40,#08 -> -(SP)
298d3:  d4 8f 00 04 00 00       ADD             (SP)+,#0400 -> -(SP)
298d9:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
298df:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 298e3
298e3:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
298e9:  b3 ...                  PRINT_RET       "."
298ec:  41 01 04 00 15          JE              L00,#04 [FALSE] 29904
298f1:  b3 ...                  PRINT_RET       "You find nothing of interest."
29904:  41 01 05 00 1b          JE              L00,#05 [FALSE] 29922
29909:  b3 ...                  PRINT_RET       "You can't see inside, since it
is closed."
29922:  41 01 06 00 10          JE              L00,#06 [FALSE] 29935
29927:  da 2f 38 53 02          CALL_2N         e14c (L01)
2992c:  b3 ...                  PRINT_RET       " is empty."
29935:  b2 ...                  PRINT           "In "
2993a:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2993f:  14 40 08 00             ADD             #40,#08 -> -(SP)
29943:  d4 8f 00 04 00 00       ADD             (SP)+,#0400 -> -(SP)
29949:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
2994f:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 29953
29953:  f9 2b 9a 97 00 00       CALL_VN         26a5c ((SP)+,(SP)+)
29959:  b3 ...                  PRINT_RET       "."
2995c:  41 3a 2f 00 69          JE              G2a,#2f [FALSE] 299c8
29961:  41 01 01 00 21          JE              L00,#01 [FALSE] 29985
29966:  b3 ...                  PRINT_RET       "That doesn't seem to be
something you can unlock."
29985:  41 01 02 00 15          JE              L00,#02 [FALSE] 2999d
2998a:  b3 ...                  PRINT_RET       "It's unlocked at the moment."
2999d:  41 01 03 00 19          JE              L00,#03 [FALSE] 299b9
299a2:  b3 ...                  PRINT_RET       "That doesn't seem to fit the
lock."
299b9:  b2 ...                  PRINT           "You unlock "
299c0:  da 2f 38 4e 02          CALL_2N         e138 (L01)
299c5:  b3 ...                  PRINT_RET       "."
299c8:  41 3a 41 00 7f          JE              G2a,#41 [FALSE] 29a4a
299cd:  41 01 01 00 1f          JE              L00,#01 [FALSE] 299ef
299d2:  b3 ...                  PRINT_RET       "That doesn't seem to be
something you can lock."
299ef:  41 01 02 00 13          JE              L00,#02 [FALSE] 29a05
299f4:  b3 ...                  PRINT_RET       "It's locked at the moment."
29a05:  41 01 03 00 17          JE              L00,#03 [FALSE] 29a1f
29a0a:  b3 ...                  PRINT_RET       "First you'll have to close
it."
29a1f:  41 01 04 00 19          JE              L00,#04 [FALSE] 29a3b
29a24:  b3 ...                  PRINT_RET       "That doesn't seem to fit the
lock."
29a3b:  b2 ...                  PRINT           "You lock "
29a42:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29a47:  b3 ...                  PRINT_RET       "."
29a4a:  41 3a 40 00 43          JE              G2a,#40 [FALSE] 29a90
29a4f:  41 01 01 00 17          JE              L00,#01 [FALSE] 29a69
29a54:  b3 ...                  PRINT_RET       "That's not something you can
switch."
29a69:  41 01 02 00 11          JE              L00,#02 [FALSE] 29a7d
29a6e:  b3 ...                  PRINT_RET       "That's already on."
29a7d:  b2 ...                  PRINT           "You switch "
29a86:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29a8b:  b3 ...                  PRINT_RET       " on."
29a90:  41 3a 31 00 45          JE              G2a,#31 [FALSE] 29ad8
29a95:  41 01 01 00 17          JE              L00,#01 [FALSE] 29aaf
29a9a:  b3 ...                  PRINT_RET       "That's not something you can
switch."
29aaf:  41 01 02 00 13          JE              L00,#02 [FALSE] 29ac5
29ab4:  b3 ...                  PRINT_RET       "That's already off."
29ac5:  b2 ...                  PRINT           "You switch "
29ace:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29ad3:  b3 ...                  PRINT_RET       " off."
29ad8:  41 3a 2e 00 91          JE              G2a,#2e [FALSE] 29b6c
29add:  41 01 01 00 17          JE              L00,#01 [FALSE] 29af7
29ae2:  b3 ...                  PRINT_RET       "That's not something you can
open."
29af7:  41 01 02 00 11          JE              L00,#02 [FALSE] 29b0b
29afc:  b3 ...                  PRINT_RET       "It seems to be locked."
29b0b:  41 01 03 00 11          JE              L00,#03 [FALSE] 29b1f
29b10:  b3 ...                  PRINT_RET       "It's already open."
29b1f:  41 01 04 00 3b          JE              L00,#04 [FALSE] 29b5d
29b24:  b2 ...                  PRINT           "You open "
29b2b:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29b30:  b2 ...                  PRINT           ", revealing "
29b39:  14 08 40 00             ADD             #08,#40 -> -(SP)
29b3d:  d4 8f 00 08 00 00       ADD             (SP)+,#0800 -> -(SP)
29b43:  a2 02 00 c2             GET_CHILD       L01 -> -(SP) [TRUE] 29b47
29b47:  e0 2b 9a 97 00 00 00    CALL_VS         26a5c ((SP)+,(SP)+) -> -(SP)
29b4e:  41 00 00 00 09          JE              (SP)+,#00 [FALSE] 29b5a
29b53:  b3 ...                  PRINT_RET       "nothing."
29b5a:  b3 ...                  PRINT_RET       "."
29b5d:  b2 ...                  PRINT           "You open "
29b64:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29b69:  b3 ...                  PRINT_RET       "."
29b6c:  41 3a 30 00 41          JE              G2a,#30 [FALSE] 29bb0
29b71:  41 01 01 00 17          JE              L00,#01 [FALSE] 29b8b
29b76:  b3 ...                  PRINT_RET       "That's not something you can
close."
29b8b:  41 01 02 00 13          JE              L00,#02 [FALSE] 29ba1
29b90:  b3 ...                  PRINT_RET       "It's already closed."
29ba1:  b2 ...                  PRINT           "You close "
29ba8:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29bad:  b3 ...                  PRINT_RET       "."
29bb0:  41 3a 16 00 27          JE              G2a,#16 [FALSE] 29bda
29bb5:  41 01 01 00 11          JE              L00,#01 [FALSE] 29bc9
29bba:  b3 ...                  PRINT_RET       "You're not wearing that."
29bc9:  b2 ...                  PRINT           "You take off "
29bd2:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29bd7:  b3 ...                  PRINT_RET       "."
29bda:  41 3a 19 00 4f          JE              G2a,#19 [FALSE] 29c2c
29bdf:  41 01 01 00 0f          JE              L00,#01 [FALSE] 29bf1
29be4:  b3 ...                  PRINT_RET       "You can't wear that!"
29bf1:  41 01 02 00 11          JE              L00,#02 [FALSE] 29c05
29bf6:  b3 ...                  PRINT_RET       "You're not holding that!"
29c05:  41 01 03 00 15          JE              L00,#03 [FALSE] 29c1d
29c0a:  b3 ...                  PRINT_RET       "You're already wearing that!"
29c1d:  b2 ...                  PRINT           "You put on "
29c24:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29c29:  b3 ...                  PRINT_RET       "."
29c2c:  41 3a 48 00 2d          JE              G2a,#48 [FALSE] 29c5c
29c31:  41 01 01 00 15          JE              L00,#01 [FALSE] 29c49
29c36:  b3 ...                  PRINT_RET       "That's plainly inedible."
29c49:  b2 ...                  PRINT           "You eat "
29c4e:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29c53:  b3 ...                  PRINT_RET       ". Not bad."
29c5c:  c1 97 3a 33 34 00 17    JE              G2a,#33,#34 [FALSE] 29c78
29c63:  b3 ...                  PRINT_RET       "That was a rhetorical
question."
29c78:  41 3a 5c 00 1d          JE              G2a,#5c [FALSE] 29c98
29c7d:  b3 ...                  PRINT_RET       "This dangerous act would
achieve little."
29c98:  41 3a 51 00 1d          JE              G2a,#51 [FALSE] 29cb8
29c9d:  b3 ...                  PRINT_RET       "Nothing practical results from
your prayer."
29cb8:  41 3a 52 00 1f          JE              G2a,#52 [FALSE] 29cda
29cbd:  b3 ...                  PRINT_RET       "The dreadful truth is, this is
not a dream."
29cda:  41 3a 53 00 13          JE              G2a,#53 [FALSE] 29cf0
29cdf:  b3 ...                  PRINT_RET       "That seems unnecessary."
29cf0:  41 3a 54 00 13          JE              G2a,#54 [FALSE] 29d06
29cf5:  b3 ...                  PRINT_RET       "Keep your mind on the game."
29d06:  41 3a 55 00 0f          JE              G2a,#55 [FALSE] 29d18
29d0b:  b3 ...                  PRINT_RET       "What a good idea."
29d18:  41 3a 56 00 15          JE              G2a,#56 [FALSE] 29d30
29d1d:  b3 ...                  PRINT_RET       "You smell nothing unexpected."
29d30:  41 3a 57 00 15          JE              G2a,#57 [FALSE] 29d48
29d35:  b3 ...                  PRINT_RET       "You hear nothing unexpected."
29d48:  41 3a 58 00 15          JE              G2a,#58 [FALSE] 29d60
29d4d:  b3 ...                  PRINT_RET       "You taste nothing unexpected."
29d60:  41 3a 59 00 45          JE              G2a,#59 [FALSE] 29da8
29d65:  41 01 01 00 15          JE              L00,#01 [FALSE] 29d7d
29d6a:  b3 ...                  PRINT_RET       "Keep your hands to yourself!"
29d7d:  41 01 03 00 15          JE              L00,#03 [FALSE] 29d95
29d82:  b3 ...                  PRINT_RET       "If you think that'll help."
29d95:  b3 ...                  PRINT_RET       "You feel nothing unexpected."
29da8:  41 3a 62 00 19          JE              G2a,#62 [FALSE] 29dc4
29dad:  b3 ...                  PRINT_RET       "Digging would achieve nothing
here."
29dc4:  41 3a 5f 00 1b          JE              G2a,#5f [FALSE] 29de2
29dc9:  b3 ...                  PRINT_RET       "Cutting that up would achieve
little."
29de2:  41 3a 60 00 19          JE              G2a,#60 [FALSE] 29dfe
29de7:  b3 ...                  PRINT_RET       "You jump on the spot,
fruitlessly."
29dfe:  c1 97 3a 61 5b 00 17    JE              G2a,#61,#5b [FALSE] 29e1a
29e05:  b3 ...                  PRINT_RET       "You would achieve nothing by
this."
29e1a:  41 3a 5d 00 19          JE              G2a,#5d [FALSE] 29e36
29e1f:  b3 ...                  PRINT_RET       "There's nothing suitable to
drink here."
29e36:  41 3a 5e 00 17          JE              G2a,#5e [FALSE] 29e50
29e3b:  b3 ...                  PRINT_RET       "But there's no water here to
carry."
29e50:  41 3a 35 00 13          JE              G2a,#35 [FALSE] 29e66
29e55:  b3 ...                  PRINT_RET       "Oh, don't apologise."
29e66:  41 3a 36 00 1f          JE              G2a,#36 [FALSE] 29e88
29e6b:  b3 ...                  PRINT_RET       "Real adventurers do not use
such language."
29e88:  41 3a 37 00 09          JE              G2a,#37 [FALSE] 29e94
29e8d:  b3 ...                  PRINT_RET       "Quite."
29e94:  41 3a 42 00 1b          JE              G2a,#42 [FALSE] 29eb2
29e99:  b3 ...                  PRINT_RET       "Violence isn't the answer to
this one."
29eb2:  41 3a 4e 00 19          JE              G2a,#4e [FALSE] 29ece
29eb7:  b3 ...                  PRINT_RET       "There's not enough water to
swim in."
29ece:  41 3a 4f 00 19          JE              G2a,#4f [FALSE] 29eea
29ed3:  b3 ...                  PRINT_RET       "There's nothing sensible to
swing here."
29eea:  41 3a 50 00 15          JE              G2a,#50 [FALSE] 29f02
29eef:  b3 ...                  PRINT_RET       "You can't usefully blow that."
29f02:  41 3a 5a 00 15          JE              G2a,#5a [FALSE] 29f1a
29f07:  b3 ...                  PRINT_RET       "You achieve nothing by this."
29f1a:  41 3a 3a 00 11          JE              G2a,#3a [FALSE] 29f2e
29f1f:  b3 ...                  PRINT_RET       "No, you can't set that."
29f2e:  41 3a 3b 00 19          JE              G2a,#3b [FALSE] 29f4a
29f33:  b3 ...                  PRINT_RET       "No, you can't set that to
anything."
29f4a:  41 3a 38 00 15          JE              G2a,#38 [FALSE] 29f62
29f4f:  b3 ...                  PRINT_RET       "You wave, feeling foolish."
29f62:  41 3a 39 00 33          JE              G2a,#39 [FALSE] 29f98
29f67:  41 01 01 00 15          JE              L00,#01 [FALSE] 29f7f
29f6c:  b3 ...                  PRINT_RET       "But you aren't holding that."
29f7f:  b2 ...                  PRINT           "You look ridiculous waving "
29f90:  da 2f 38 4e 02          CALL_2N         e138 (L01)
29f95:  b3 ...                  PRINT_RET       "."
29f98:  c1 95 3a 3c 3d 3f 00 55 JE              G2a,#3c,#3d,#3f [FALSE] 29ff3
29fa0:  41 01 01 00 0f          JE              L00,#01 [FALSE] 29fb2
29fa5:  b3 ...                  PRINT_RET       "It is fixed in place."
29fb2:  41 01 02 00 0f          JE              L00,#02 [FALSE] 29fc4
29fb7:  b3 ...                  PRINT_RET       "You are unable to."
29fc4:  41 01 04 00 1b          JE              L00,#04 [FALSE] 29fe2
29fc9:  b3 ...                  PRINT_RET       "That would be less than
courteous."
29fe2:  b3 ...                  PRINT_RET       "Nothing obvious happens."
29ff3:  41 3a 3e 00 3f          JE              G2a,#3e [FALSE] 2a035
29ff8:  41 01 01 00 17          JE              L00,#01 [FALSE] 2a012
29ffd:  b3 ...                  PRINT_RET       "Is that the best you can think
of?"
2a012:  41 01 02 00 11          JE              L00,#02 [FALSE] 2a026
2a017:  b3 ...                  PRINT_RET       "That's not a direction."
2a026:  b3 ...                  PRINT_RET       "Not that way you can't."
2a035:  41 3a 4d 00 2d          JE              G2a,#4d [FALSE] 2a065
2a03a:  41 01 01 00 15          JE              L00,#01 [FALSE] 2a052
2a03f:  b3 ...                  PRINT_RET       "Keep your hands to yourself."
2a052:  b3 ...                  PRINT_RET       "You achieve nothing by this."
2a065:  41 3a 20 00 2d          JE              G2a,#20 [FALSE] 2a095
2a06a:  41 01 01 00 09          JE              L00,#01 [FALSE] 2a076
2a06f:  b3 ...                  PRINT_RET       "Futile."
2a076:  b3 ...                  PRINT_RET       "You lack the nerve when it
comes to the crucial moment."
2a095:  41 3a 45 00 29          JE              G2a,#45 [FALSE] 2a0c1
2a09a:  41 01 01 00 15          JE              L00,#01 [FALSE] 2a0b2
2a09f:  b3 ...                  PRINT_RET       "You talk to yourself a while."
2a0b2:  b3 ...                  PRINT_RET       "This provokes no reaction."
2a0c1:  c1 97 3a 44 46 00 0f    JE              G2a,#44,#46 [FALSE] 2a0d5
2a0c8:  b3 ...                  PRINT_RET       "There is no reply."
2a0d5:  41 3a 4c 00 11          JE              G2a,#4c [FALSE] 2a0e9
2a0da:  b3 ...                  PRINT_RET       "Nothing is on sale."
2a0e9:  41 3a 4a 00 15          JE              G2a,#4a [FALSE] 2a101
2a0ee:  b3 ...                  PRINT_RET       "Your singing is abominable."
2a101:  41 3a 4b 00 21          JE              G2a,#4b [FALSE] 2a125
2a106:  b3 ...                  PRINT_RET       "I don't think much is to be
achieved by that."
2a125:  41 3a 43 00 0d          JE              G2a,#43 [FALSE] 2a135
2a12a:  b3 ...                  PRINT_RET       "Time passes."
2a135:  41 3a 49 00 1b          JE              G2a,#49 [FALSE] 2a153
2a13a:  b3 ...                  PRINT_RET       "You aren't feeling especially
drowsy."
2a153:  41 3a 2d 00 1f          JE              G2a,#2d [FALSE] 2a175
2a158:  b2 ...                  PRINT           "You discover nothing of
interest in "
2a16d:  da 2f 38 4e 02          CALL_2N         e138 (L01)
2a172:  b3 ...                  PRINT_RET       "."
2a175:  b0                      RTRUE

Routine 2a178, 0 locals

2a179:  8f b4 fe                CALL_1N         2d3f8
2a17c:  0d 11 23                STORE           G01,#23
2a17f:  2e 1f 19                INSERT_OBJ      "crumpled piece of paper",G09
2a182:  2e 20 19                INSERT_OBJ      "electric torch",G09
2a185:  2e 22 19                INSERT_OBJ      "chocolate biscuit",G09
2a188:  da 1f 37 47 20          CALL_2N         dd1c (#20)
2a18d:  da 1f 5d fb a6          CALL_2N         177ec (#a6)
2a192:  da 1f 5d fb a5          CALL_2N         177ec (#a5)
2a197:  da 1f 5d fb a4          CALL_2N         177ec (#a4)
2a19c:  e7 7f 12 00             RANDOM          #12 -> -(SP)
2a1a0:  55 00 09 97             SUB             (SP)+,#09 -> G87
2a1a4:  e7 7f 12 00             RANDOM          #12 -> -(SP)
2a1a8:  55 00 09 98             SUB             (SP)+,#09 -> G88
2a1ac:  b3 ...                  PRINT_RET       "



It's become a matter of pride now not to give up. That tourist map of Paris
must be up here somewhere in all this clutter, even if it has been five years
since your last trip. And it's your own fault. It looks as if your
great-grandfather was the last person to tidy up these lofts...
"

Routine 2a264, 0 locals

2a265:  41 2a 26 00 39          JE              G1a,#26 [FALSE] 2a2a1
2a26a:  ca 1f 01 f6 02 80 32    TEST_ATTR       "carbolic soap",#02 [TRUE]
2a2a1
2a271:  da 1f 97 a4 0d          CALL_2N         25e90 (#0d)
2a276:  b3 ...                  PRINT_RET       "You're going nowhere until you
make amends for that nasty bad language."
2a2a1:  0a 56 1a 00 6e          TEST_ATTR       "gas mask",#1a [FALSE] 2a312
2a2a6:  41 2a 56 00 29          JE              G1a,#56 [FALSE] 2a2d2
2a2ab:  b3 ...                  PRINT_RET       "With the gas mask on all you
can smell is old cork and rubber."
2a2d2:  41 2a 48 00 13          JE              G1a,#48 [FALSE] 2a2e8
2a2d7:  b3 ...                  PRINT_RET       "Not with a gas mask on!"
2a2e8:  c1 85 2a 01 03 44 46 00 23
                               JE              G1a,#0103,#44,#46 [FALSE] 2a312
2a2f1:  b3 ...                  PRINT_RET       "Your speech is muffled into
silence by the gas mask."
2a312:  b1                      RFALSE

Routine 2a314, 0 locals

2a315:  41 1d 03 00 17          JE              G0d,#03 [FALSE] 2a32f
2a31a:  b2 ...                  PRINT           "You have missed the point
entirely"
2a32f:  41 1d 04 00 19          JE              G0d,#04 [FALSE] 2a34b
2a334:  b2 ...                  PRINT           "You have disembodied the
entire universe"
2a34b:  41 1d 05 00 1b          JE              G0d,#05 [FALSE] 2a369
2a350:  b2 ...                  PRINT           "You have been transported to
Australia"
2a369:  41 1d 06 00 21          JE              G0d,#06 [FALSE] 2a38d
2a36e:  b2 ...                  PRINT           "You have been annihilated by a
temporal paradox"
2a38d:  41 1d 07 00 13          JE              G0d,#07 [FALSE] 2a3a3
2a392:  b2 ...                  PRINT           "You have become a
constellation"
2a3a3:  41 1d 08 00 1b          JE              G0d,#08 [FALSE] 2a3c1
2a3a8:  b2 ...                  PRINT           "You have been imprisoned as a
terrorist"
2a3c1:  41 1d 09 00 13          JE              G0d,#09 [FALSE] 2a3d7
2a3c6:  b2 ...                  PRINT           "You have been checkmated"
2a3d7:  41 1d 0a 00 11          JE              G0d,#0a [FALSE] 2a3eb
2a3dc:  b2 ...                  PRINT           "You have been spooked"
2a3eb:  b0                      RTRUE

Routine 2a3ec, 2 locals

2a3ed:  b2 ...                  PRINT           ", giving you the rank of "
2a3fc:  2d 01 17                STORE           L00,G07
2a3ff:  c1 8f 01 ff 9d 80 11    JE              L00,#ff9d [TRUE] 2a415
2a406:  d0 1f 65 77 0b 00       LOADB           #6577,#0b -> -(SP)
2a40c:  41 00 00 80 06          JE              (SP)+,#00 [TRUE] 2a415
2a411:  55 01 32 01             SUB             L00,#32 -> L00
2a415:  0d 02 01                STORE           L01,#01
2a418:  cf 1f 65 d1 00 00       LOADW           #65d1,#00 -> -(SP)
2a41e:  56 00 02 00             MUL             (SP)+,#02 -> -(SP)
2a422:  63 02 00 80 22          JG              L01,(SP)+ [TRUE] 2a447
2a427:  cf 2f 65 d1 02 00       LOADW           #65d1,L01 -> -(SP)
2a42d:  62 01 00 80 10          JL              L00,(SP)+ [TRUE] 2a440
2a432:  54 02 01 00             ADD             L01,#01 -> -(SP)
2a436:  cf 2f 65 d1 00 00       LOADW           #65d1,(SP)+ -> -(SP)
2a43c:  ad 00                   PRINT_PADDR     (SP)+
2a43e:  bb                      NEW_LINE
2a43f:  b0                      RTRUE
2a440:  54 02 02 02             ADD             L01,#02 -> L01
2a444:  8c ff d3                JUMP            2a418
2a447:  b0                      RTRUE

Routine 2a448, 1 local

2a449:  41 01 00 00 0d          JE              L00,#00 [FALSE] 2a459
2a44e:  b3 ...                  PRINT_RET       "reading postcard"
2a459:  41 01 01 00 0d          JE              L00,#01 [FALSE] 2a469
2a45e:  b3 ...                  PRINT_RET       "recharging torch"
2a469:  41 01 02 00 09          JE              L00,#02 [FALSE] 2a475
2a46e:  b3 ...                  PRINT_RET       "exorcism"
2a475:  41 01 03 00 0d          JE              L00,#03 [FALSE] 2a485
2a47a:  b3 ...                  PRINT_RET       "opening secret door"
2a485:  41 01 04 00 0d          JE              L00,#04 [FALSE] 2a495
2a48a:  b3 ...                  PRINT_RET       "opening demijohn"
2a495:  41 01 05 00 0d          JE              L00,#05 [FALSE] 2a4a5
2a49a:  b3 ...                  PRINT_RET       "using dumbwaiter"
2a4a5:  41 01 06 00 0b          JE              L00,#06 [FALSE] 2a4b3
2a4aa:  b3 ...                  PRINT_RET       "charging a rod"
2a4b3:  41 01 07 00 0b          JE              L00,#07 [FALSE] 2a4c1
2a4b8:  b3 ...                  PRINT_RET       "firing a rod"
2a4c1:  41 01 08 00 0d          JE              L00,#08 [FALSE] 2a4d1
2a4c6:  b3 ...                  PRINT_RET       "exposing radio"
2a4d1:  41 01 09 00 11          JE              L00,#09 [FALSE] 2a4e5
2a4d6:  b3 ...                  PRINT_RET       "sporting a daisy chain"
2a4e5:  41 01 0a 00 0b          JE              L00,#0a [FALSE] 2a4f3
2a4ea:  b3 ...                  PRINT_RET       "placating Aunt Jemima"
2a4f3:  41 01 0b 00 0f          JE              L00,#0b [FALSE] 2a505
2a4f8:  b3 ...                  PRINT_RET       "rescuing Andromeda"
2a505:  41 01 0c 00 0d          JE              L00,#0c [FALSE] 2a515
2a50a:  b3 ...                  PRINT_RET       "uncovering battery"
2a515:  41 01 0d 00 0d          JE              L00,#0d [FALSE] 2a525
2a51a:  b3 ...                  PRINT_RET       "mending the plumbing"
2a525:  41 01 0e 00 0f          JE              L00,#0e [FALSE] 2a537
2a52a:  b3 ...                  PRINT_RET       "scenting a passage"
2a537:  41 01 0f 00 09          JE              L00,#0f [FALSE] 2a543
2a53c:  b3 ...                  PRINT_RET       "reflecting"
2a543:  41 01 10 00 0b          JE              L00,#10 [FALSE] 2a551
2a548:  b3 ...                  PRINT_RET       "solving the grid"
2a551:  41 01 11 00 0b          JE              L00,#11 [FALSE] 2a55f
2a556:  b3 ...                  PRINT_RET       "winning the orb"
2a55f:  41 01 12 00 0f          JE              L00,#12 [FALSE] 2a571
2a564:  b3 ...                  PRINT_RET       "buying map of Paris"
2a571:  41 01 13 00 0b          JE              L00,#13 [FALSE] 2a57f
2a576:  b3 ...                  PRINT_RET       "filling the arc"
2a57f:  41 01 14 00 0f          JE              L00,#14 [FALSE] 2a591
2a584:  b3 ...                  PRINT_RET       "getting into the well"
2a591:  41 01 15 00 0f          JE              L00,#15 [FALSE] 2a5a3
2a596:  b3 ...                  PRINT_RET       "acquiring the mascot"
2a5a3:  41 01 16 00 11          JE              L00,#16 [FALSE] 2a5b7
2a5a8:  b3 ...                  PRINT_RET       "eating between meals"
2a5b7:  41 01 17 00 0d          JE              L00,#17 [FALSE] 2a5c7
2a5bc:  b3 ...                  PRINT_RET       "smoke detecting"
2a5c7:  41 01 18 00 13          JE              L00,#18 [FALSE] 2a5dd
2a5cc:  b3 ...                  PRINT_RET       "putting a ship in a bottle"
2a5dd:  41 01 19 00 0f          JE              L00,#19 [FALSE] 2a5ef
2a5e2:  b3 ...                  PRINT_RET       "parachuting on deck"
2a5ef:  41 01 1a 00 15          JE              L00,#1a [FALSE] 2a607
2a5f4:  b3 ...                  PRINT_RET       "sleeping in Alison's bed"
2a607:  41 01 1b 00 13          JE              L00,#1b [FALSE] 2a61d
2a60c:  b3 ...                  PRINT_RET       "opening sandstone crevice"
2a61d:  41 01 1c 00 0d          JE              L00,#1c [FALSE] 2a62d
2a622:  b3 ...                  PRINT_RET       "identifying a rod"
2a62d:  41 01 1d 00 0f          JE              L00,#1d [FALSE] 2a63f
2a632:  b3 ...                  PRINT_RET       "dislodging the watch"
2a63f:  41 01 1e 00 09          JE              L00,#1e [FALSE] 2a64b
2a644:  b3 ...                  PRINT_RET       "hypnosis"
2a64b:  41 01 1f 00 0d          JE              L00,#1f [FALSE] 2a65b
2a650:  b3 ...                  PRINT_RET       "passing security"
2a65b:  41 01 20 00 0f          JE              L00,#20 [FALSE] 2a66d
2a660:  b3 ...                  PRINT_RET       "restoring the Temple"
2a66d:  41 01 21 00 0d          JE              L00,#21 [FALSE] 2a67d
2a672:  b3 ...                  PRINT_RET       "answering Homer"
2a67d:  41 01 22 00 0f          JE              L00,#22 [FALSE] 2a68f
2a682:  b3 ...                  PRINT_RET       "summoning the oracle"
2a68f:  41 01 23 00 11          JE              L00,#23 [FALSE] 2a6a3
2a694:  b3 ...                  PRINT_RET       "unearthing strongbox"
2a6a3:  41 01 24 00 0f          JE              L00,#24 [FALSE] 2a6b5
2a6a8:  b3 ...                  PRINT_RET       "startling Austin"
2a6b5:  41 01 25 00 0f          JE              L00,#25 [FALSE] 2a6c7
2a6ba:  b3 ...                  PRINT_RET       "washing away the stone"
2a6c7:  41 01 26 00 11          JE              L00,#26 [FALSE] 2a6db
2a6cc:  b3 ...                  PRINT_RET       "provoking the librarians"
2a6db:  41 01 27 00 11          JE              L00,#27 [FALSE] 2a6ef
2a6e0:  b3 ...                  PRINT_RET       "twisting the sphinx's nose"
2a6ef:  41 01 28 00 13          JE              L00,#28 [FALSE] 2a705
2a6f4:  b3 ...                  PRINT_RET       "depositing the quarterstaff"
2a705:  41 01 29 00 0f          JE              L00,#29 [FALSE] 2a717
2a70a:  b3 ...                  PRINT_RET       "rising in the afterlife"
2a717:  41 01 2a 00 0d          JE              L00,#2a [FALSE] 2a727
2a71c:  b3 ...                  PRINT_RET       "reviving the knight"
2a727:  41 01 2b 00 0f          JE              L00,#2b [FALSE] 2a739
2a72c:  b3 ...                  PRINT_RET       "encouraging the knight"
2a739:  41 01 2c 00 11          JE              L00,#2c [FALSE] 2a74d
2a73e:  b3 ...                  PRINT_RET       "choosing a High Rod"
2a74d:  b3 ...                  PRINT_RET       "** Nameless task **"

Routine 2a764, 2 locals
    Action routine for:
        "full"
        "full score"

2a765:  8f 9d b8                CALL_1N         276e0
2a768:  41 17 00 00 03          JE              G07,#00 [FALSE] 2a76e
2a76d:  b1                      RFALSE
2a76e:  bb                      NEW_LINE
2a76f:  f9 17 a2 82 01 01       CALL_VN         28a08 (#01,#01)
2a775:  0d 01 00                STORE           L00,#00
2a778:  42 01 2d 00 3a          JL              L00,#2d [FALSE] 2a7b5
2a77d:  d0 2f 65 77 01 00       LOADB           #6577,L00 -> -(SP)
2a783:  41 00 01 00 2a          JE              (SP)+,#01 [FALSE] 2a7b0
2a788:  41 01 15 00 0f          JE              L00,#15 [FALSE] 2a79a
2a78d:  da 0f 9d c2 ff ce       CALL_2N         27708 (#ffce)
2a793:  55 02 32 02             SUB             L01,#32 -> L01
2a797:  8c 00 13                JUMP            2a7ab
2a79a:  70 10 01 00             LOADB           G00,L00 -> -(SP)
2a79e:  da 2f 9d c2 00          CALL_2N         27708 ((SP)+)
2a7a3:  70 10 01 00             LOADB           G00,L00 -> -(SP)
2a7a7:  74 02 00 02             ADD             L01,(SP)+ -> L01
2a7ab:  da 2f a9 12 01          CALL_2N         2a448 (L00)
2a7b0:  95 01                   INC             L00
2a7b2:  8c ff c5                JUMP            2a778
2a7b5:  41 96 00 80 14          JE              G86,#00 [TRUE] 2a7cc
2a7ba:  da 2f 9d c2 96          CALL_2N         27708 (G86)
2a7bf:  b2 ...                  PRINT           "discovering rods
"
2a7cc:  41 22 00 80 0d          JE              G12,#00 [TRUE] 2a7dc
2a7d1:  da 2f 9d c2 22          CALL_2N         27708 (G12)
2a7d6:  f9 17 a2 82 01 02       CALL_VN         28a08 (#01,#02)
2a7dc:  41 21 00 80 0d          JE              G11,#00 [TRUE] 2a7ec
2a7e1:  da 2f 9d c2 21          CALL_2N         27708 (G11)
2a7e6:  f9 17 a2 82 01 03       CALL_VN         28a08 (#01,#03)
2a7ec:  41 8d 00 80 1a          JE              G7d,#00 [TRUE] 2a809
2a7f1:  da 1f 9d c2 05          CALL_2N         27708 (#05)
2a7f6:  b2 ...                  PRINT           "bonus for a good try
"
2a805:  54 02 05 02             ADD             L01,#05 -> L01
2a809:  74 02 96 00             ADD             L01,G86 -> -(SP)
2a80d:  74 00 22 00             ADD             (SP)+,G12 -> -(SP)
2a811:  74 00 21 02             ADD             (SP)+,G11 -> L01
2a815:  c1 8f 17 ff 9d 00 1e    JE              G07,#ff9d [FALSE] 2a838
2a81c:  35 00 02 00             SUB             #00,L01 -> -(SP)
2a820:  55 00 63 02             SUB             (SP)+,#63 -> L01
2a824:  da 2f 9d c2 02          CALL_2N         27708 (L01)
2a829:  b2 ...                  PRINT           "destroying universe
"
2a838:  bb                      NEW_LINE
2a839:  da 2f 9d c2 17          CALL_2N         27708 (G07)
2a83e:  f9 17 a2 82 01 04       CALL_VN         28a08 (#01,#04)
2a844:  41 1d 02 00 3a          JE              G0d,#02 [FALSE] 2a881
2a849:  d0 1f 65 77 0b 00       LOADB           #6577,#0b -> -(SP)
2a84f:  41 00 00 00 2f          JE              (SP)+,#00 [FALSE] 2a881
2a854:  b3 ...                  PRINT_RET       "
Sadly, you missed out on the 50-point bonus for rescuing Andromeda."
2a881:  b0                      RTRUE

Routine 2a884, 0 locals

2a885:  41 c1 01 00 03          JE              Gb1,#01 [FALSE] 2a88b
2a88a:  b0                      RTRUE
2a88b:  0d c1 01                STORE           Gb1,#01
2a88e:  0d 90 01                STORE           G80,#01
2a891:  f9 17 37 1a 67 04       CALL_VN         dc68 (#67,#04)
2a897:  54 17 05 17             ADD             G07,#05 -> G07
2a89b:  0d 8d 01                STORE           G7d,#01
2a89e:  b3 ...                  PRINT_RET       "
A shame to see such a good try unrewarded... oh, go on, have an extra five
points."

Routine 2a8d8, 0 locals

2a8d9:  41 8d 01 00 2e          JE              G7d,#01 [FALSE] 2a90a
2a8de:  55 17 05 17             SUB             G07,#05 -> G07
2a8e2:  0d 8d 00                STORE           G7d,#00
2a8e5:  b3 ...                  PRINT_RET       "
Under the circumstances, the 5-point bonus is forfeit."
2a90a:  b0                      RTRUE

Routine 2a90c, 1 local

2a90d:  2d 01 11                STORE           L00,G01
2a910:  41 01 0e 00 05          JE              L00,#0e [FALSE] 2a918
2a915:  2d 01 1b                STORE           L00,G0b
2a918:  51 01 1e 00             GET_PROP        L00,#1e -> -(SP)
2a91c:  41 00 00 00 19          JE              (SP)+,#00 [FALSE] 2a938
2a921:  b3 ...                  PRINT_RET       "** Room has no zone **"
2a938:  51 01 1e 8c             GET_PROP        L00,#1e -> G7c
2a93c:  41 01 70 00 05          JE              L00,#70 [FALSE] 2a944
2a941:  0d 5e 72                STORE           G4e,#72
2a944:  41 01 9f 00 05          JE              L00,#9f [FALSE] 2a94c
2a949:  0d 5e a3                STORE           G4e,#a3
2a94c:  41 01 ae 00 05          JE              L00,#ae [FALSE] 2a954
2a951:  0d 5d af                STORE           G4d,#af
2a954:  41 01 58 00 05          JE              L00,#58 [FALSE] 2a95c
2a959:  0d 5d 5a                STORE           G4d,#5a
2a95c:  41 01 ab 00 05          JE              L00,#ab [FALSE] 2a964
2a961:  0d 5d ac                STORE           G4d,#ac
2a964:  41 01 e3 00 05          JE              L00,#e3 [FALSE] 2a96c
2a969:  0d 5d e5                STORE           G4d,#e5
2a96c:  c1 8f 01 01 60 00 07    JE              L00,#0160 [FALSE] 2a978
2a973:  cd 4f 5d 01 62          STORE           G4d,#0162
2a978:  c1 8f 01 01 f2 00 07    JE              L00,#01f2 [FALSE] 2a984
2a97f:  cd 4f 5d 01 f3          STORE           G4d,#01f3
2a984:  c1 8f 01 01 f4 00 07    JE              L00,#01f4 [FALSE] 2a990
2a98b:  cd 4f 5e 01 f5          STORE           G4e,#01f5
2a990:  41 01 fe 00 05          JE              L00,#fe [FALSE] 2a998
2a995:  0d 5e ff                STORE           G4e,#ff
2a998:  41 01 ef 00 05          JE              L00,#ef [FALSE] 2a9a0
2a99d:  0d 5d f0                STORE           G4d,#f0
2a9a0:  c1 8f 01 01 bd 00 07    JE              L00,#01bd [FALSE] 2a9ac
2a9a7:  cd 4f 5d 01 be          STORE           G4d,#01be
2a9ac:  c1 8f 01 01 3e 00 07    JE              L00,#013e [FALSE] 2a9b8
2a9b3:  cd 4f 5d 01 41          STORE           G4d,#0141
2a9b8:  c1 8f 01 01 d9 00 07    JE              L00,#01d9 [FALSE] 2a9c4
2a9bf:  cd 4f 5e 01 dc          STORE           G4e,#01dc
2a9c4:  c1 8f 01 01 dd 00 07    JE              L00,#01dd [FALSE] 2a9d0
2a9cb:  cd 4f 5d 01 de          STORE           G4d,#01de
2a9d0:  c1 8f 01 01 b7 00 07    JE              L00,#01b7 [FALSE] 2a9dc
2a9d7:  cd 4f 5e 01 ba          STORE           G4e,#01ba
2a9dc:  c1 8f 01 01 ca 00 07    JE              L00,#01ca [FALSE] 2a9e8
2a9e3:  cd 4f 5d 01 cc          STORE           G4d,#01cc
2a9e8:  c1 8f 01 01 cf 00 07    JE              L00,#01cf [FALSE] 2a9f4
2a9ef:  cd 4f 5d 01 d0          STORE           G4d,#01d0
2a9f4:  c1 8f 01 01 d2 00 07    JE              L00,#01d2 [FALSE] 2aa00
2a9fb:  cd 4f 5d 01 d3          STORE           G4d,#01d3
2aa00:  b0                      RTRUE

Routine 2aa04, 0 locals

2aa05:  0d 1d 01                STORE           G0d,#01
2aa08:  41 8c 01 80 6f          JE              G7c,#01 [TRUE] 2aa7a
2aa0d:  b3 ...                  PRINT_RET       "As you step falteringly
through the darkness, the air falls ice-cold, whispering in secret languages.
Suddenly a great bear rears up before you, savagely sweeping its paw!"
2aa7a:  0d 1d 03                STORE           G0d,#03
2aa7d:  b2 ...                  PRINT           "As you unwisely blunder about
in the dark, you "
2aa9a:  41 11 5d 00 85          JE              G01,#5d [FALSE] 2ab22
2aa9f:  b3 ...                  PRINT_RET       "slip down a side passage of
the chimney, further and further, blindly landing in a cloud of soot in the
fireplace of the lounge downstairs. Fortunately your family is on hand to clean
you up and put you back to work packing."
2ab22:  42 11 7b 80 85          JL              G01,#7b [TRUE] 2abaa
2ab27:  b3 ...                  PRINT_RET       "miss your footing, trip over
and bang your head... Some time later you wake up in hospital, very confused
and not on holiday. Fortunately Aunt Jemima comes to visit you every afternoon
with plenty of things for you to do..."
2abaa:  b3 ...                  PRINT_RET       "put a foot wrong and crash
through a thin plaster roof into one of the upstairs bedrooms, happily landing
on the bed. In later years it becomes a family joke that you demolished half
the house for a tatty old tourist map."

Routine 2ac30, 0 locals

2ac31:  8f b4 f0                CALL_1N         2d3c0
2ac34:  0d 90 01                STORE           G80,#01
2ac37:  b0                      RTRUE

Routine 2ac38, 2 locals

2ac39:  42 02 02 00 03          JL              L01,#02 [FALSE] 2ac3f
2ac3e:  b1                      RFALSE
2ac3f:  41 72 76 00 09          JE              G62,#76 [FALSE] 2ac4b
2ac44:  4a 01 1c 00 04          TEST_ATTR       L00,#1c [FALSE] 2ac4b
2ac49:  9b 02                   RET             #02
2ac4b:  9b 01                   RET             #01

Routine 2ac50, 1 local

2ac51:  26 26 01 00 04          JIN             "History of the Meldrews (vol.
II)",L00 [FALSE] 2ac58
2ac56:  9b 26                   RET             #26
2ac58:  26 2b 01 00 04          JIN             "classical dictionary",L00
[FALSE] 2ac5f
2ac5d:  9b 2b                   RET             #2b
2ac5f:  26 5f 01 00 04          JIN             "ancient prayer book",L00
[FALSE] 2ac66
2ac64:  9b 5f                   RET             #5f
2ac66:  26 6a 01 00 04          JIN             "tourist map",L00 [FALSE] 2ac6d
2ac6b:  9b 6a                   RET             #6a
2ac6d:  9b 00                   RET             #00

Routine 2ac70, 2 locals
    Action routine for:
        "l up TEXT [parse 2]"

2ac71:  d9 2f 33 e0 3b 02       CALL_2S         cf80 (G2b) -> L01
2ac77:  42 02 00 80 0f          JL              L01,#00 [TRUE] 2ac89
2ac7c:  26 6a 19 80 07          JIN             "tourist map",G09 [TRUE] 2ac86
2ac81:  26 6a 11 00 05          JIN             "tourist map",G01 [FALSE] 2ac89
2ac86:  0d 01 6a                STORE           L00,#6a
2ac89:  42 02 00 80 0f          JL              L01,#00 [TRUE] 2ac9b
2ac8e:  26 5f 19 80 07          JIN             "ancient prayer book",G09
[TRUE] 2ac98
2ac93:  26 5f 11 00 05          JIN             "ancient prayer book",G01
[FALSE] 2ac9b
2ac98:  0d 01 5f                STORE           L00,#5f
2ac9b:  41 01 00 00 08          JE              L00,#00 [FALSE] 2aca6
2aca0:  d9 2f ab 14 19 01       CALL_2S         2ac50 (G09) -> L00
2aca6:  41 01 00 00 08          JE              L00,#00 [FALSE] 2acb1
2acab:  d9 2f ab 14 11 01       CALL_2S         2ac50 (G01) -> L00
2acb1:  41 01 00 00 19          JE              L00,#00 [FALSE] 2accd
2acb6:  b3 ...                  PRINT_RET       "I can't see what you wish to
consult."
2accd:  b2 ...                  PRINT           "(consulting "
2acd6:  da 2f 38 4e 01          CALL_2N         e138 (L00)
2acdb:  b2 ...                  PRINT           ")
"
2ace0:  f9 1b 36 0d 2d 01       CALL_VN         d834 (#2d,L00)
2ace6:  b0                      RTRUE

Routine 2ace8, 0 locals
    Action routine for:
        "time"

2ace9:  8f ab 3c                CALL_1N         2acf0
2acec:  bb                      NEW_LINE
2aced:  b0                      RTRUE

Routine 2acf0, 0 locals

2acf1:  c1 8f 11 01 8a 00 12    JE              G01,#018a [FALSE] 2ad08
2acf8:  b2 ...                  PRINT           "Inside the golden orb."
2ad07:  b1                      RFALSE
2ad08:  41 8c 01 00 2d          JE              G7c,#01 [FALSE] 2ad38
2ad0d:  b2 ...                  PRINT           "This is the afternoon of June
3rd, 1993, and you are in Meldrew Hall."
2ad38:  41 8c 02 00 33          JE              G7c,#02 [FALSE] 2ad6e
2ad3d:  b2 ...                  PRINT           "It is early morning on October
5th, 1922, and you are in the Unreal City."
2ad6e:  41 8c 03 00 39          JE              G7c,#03 [FALSE] 2adaa
2ad73:  b2 ...                  PRINT           "It is nearly midnight on
October 31st, 1988, and you are in a museum in Hamburg."
2adaa:  41 8c 04 00 2d          JE              G7c,#04 [FALSE] 2adda
2adaf:  b2 ...                  PRINT           "You are passing among the
strange, unearthly world of the Tarot box."
2adda:  41 8c 05 00 2b          JE              G7c,#05 [FALSE] 2ae08
2addf:  b2 ...                  PRINT           "It is the afternoon of June
3rd, 1993, and you are in the gardens."
2ae08:  41 8c 06 00 2d          JE              G7c,#06 [FALSE] 2ae38
2ae0d:  b2 ...                  PRINT           "It is about noon on March
14th, 1808, and you are in the gardens."
2ae38:  41 8c 07 00 31          JE              G7c,#07 [FALSE] 2ae6c
2ae3d:  b2 ...                  PRINT           "It is some time in the sixth
century A.D., and you are in the Master Game."
2ae6c:  c1 97 8c 08 0a 00 23    JE              G7c,#08,#0a [FALSE] 2ae94
2ae73:  b2 ...                  PRINT           "Time seems to have no meaning,
and you are dreaming."
2ae94:  41 8c 09 00 39          JE              G7c,#09 [FALSE] 2aed0
2ae99:  b2 ...                  PRINT           "It is the afternoon of June
3rd, 1993, and you are in the catacombs beneath the gardens."
2aed0:  41 8c 0b 00 47          JE              G7c,#0b [FALSE] 2af1a
2aed5:  b2 ...                  PRINT           "It is some time in the winter
of 275 B.C., the reign of Ptolemy II, and you are in ancient Alexandria."
2af1a:  41 8c 0c 00 31          JE              G7c,#0c [FALSE] 2af4e
2af1f:  b2 ...                  PRINT           "It is the afternoon of June
3rd, 1993, and you are northeast of Meldrew Hall."
2af4e:  41 8c 0d 00 2d          JE              G7c,#0d [FALSE] 2af7e
2af53:  b2 ...                  PRINT           "You are in the Spirit World,
centuries ahead of your sleeping body."
2af7e:  41 8c 0e 00 35          JE              G7c,#0e [FALSE] 2afb6
2af83:  b2 ...                  PRINT           "In the great Monopoly-board
Jail of the afterlife, you are "Just Visiting"."
2afb6:  b0                      RTRUE

Routine 2afb8, 0 locals
    Action routine for:
        "restore"

2afb9:  0d 90 01                STORE           G80,#01
2afbc:  be 01 ff ff             RESTORE         -> Gef
2afc0:  41 ff 02 c9             JE              Gef,#02 [TRUE] 2afcb
2afc4:  b3 ...                  PRINT_RET       "Failed."
2afcb:  bb                      NEW_LINE
2afcc:  8f a0 ac                CALL_1N         282b0
2afcf:  b0                      RTRUE

Routine 2afd0, 0 locals
    Action routine for:
        "save"

2afd1:  0d 90 01                STORE           G80,#01
2afd4:  c1 8f 11 01 f4 00 1b    JE              G01,#01f4 [FALSE] 2aff4
2afdb:  b3 ...                  PRINT_RET       "The angel looks at you
reproachfully."
2aff4:  c1 8f 11 01 f2 00 19    JE              G01,#01f2 [FALSE] 2b012
2affb:  b3 ...                  PRINT_RET       "The demon looks at you
viciously."
2b012:  be 00 ff ff             SAVE            -> Gef
2b016:  41 ff 00 49             JE              Gef,#00 [FALSE] 2b021
2b01a:  b3 ...                  PRINT_RET       "Failed."
2b021:  b2 ...                  PRINT           "Ok.
"
2b028:  b0                      RTRUE

Routine 2b02c, 0 locals
    Action routine for:
        "hop"

2b02d:  26 3a 11 00 84          JIN             "Austin",G01 [FALSE] 2b0b4
2b032:  41 8c 0b 00 15          JE              G7c,#0b [FALSE] 2b04a
2b037:  b3 ...                  PRINT_RET       "Austin is quite unruffled."
2b04a:  b2 ...                  PRINT           "For some reason, Austin is
startled and springs for his life "
2b071:  da 1f 97 a4 07          CALL_2N         25e90 (#07)
2b076:  41 11 47 00 35          JE              G01,#47 [FALSE] 2b0ae
2b07b:  06 94 48 00 30          JIN             "charcoal sketch","slide
projector" [FALSE] 2b0ae
2b080:  0a 49 02 80 2b          TEST_ATTR       "south wall",#02 [TRUE] 2b0ae
2b085:  ce 4f 3a 01 8c          INSERT_OBJ      "Austin","Causeway"
2b08a:  da 1f 9d bb 24          CALL_2N         276ec (#24)
2b08f:  b3 ...                  PRINT_RET       "right up through the south
wall and into Alexandria!"
2b0ae:  da 1f 48 7e 01          CALL_2N         121f8 (#01)
2b0b3:  b1                      RFALSE
2b0b4:  da 1f a2 82 60          CALL_2N         28a08 (#60)
2b0b9:  b0                      RTRUE

Routine 2b0bc, 0 locals
    Action routine for:
        "sorry"

2b0bd:  ca 1f 01 f6 02 00 13    TEST_ATTR       "carbolic soap",#02 [FALSE]
2b0d5
2b0c4:  b3 ...                  PRINT_RET       "Oh, don't apologise."
2b0d5:  b3 ...                  PRINT_RET       "Sorry isn't good enough!"

Routine 2b0e8, 0 locals
    Action routine for:
        "damn"
        "damn SPECIAL"

2b0e9:  ce 2f 01 f6 19          INSERT_OBJ      "carbolic soap",G09
2b0ee:  cc 1f 01 f6 02          CLEAR_ATTR      "carbolic soap",#02
2b0f3:  b3 ...                  PRINT_RET       "Now, that sort of language is
an absolute disgrace, and you're going to have to pay the price for it."

Routine 2b130, 0 locals
    Action routine for:
        "wash my mouth with HELD"
        "wash my mouth out with HELD"
        "wash mouth with HELD"
        "wash mouth out with HELD"

2b131:  c1 8f 30 01 f6 80 19    JE              G20,#01f6 [TRUE] 2b14f
2b138:  b3 ...                  PRINT_RET       "That's not something you can
wash with."
2b14f:  c6 2f 01 f6 19 80 0d    JIN             "carbolic soap",G09 [TRUE]
2b161
2b156:  b3 ...                  PRINT_RET       "You've no soap."
2b161:  89 01 f6                REMOVE_OBJ      "carbolic soap"
2b164:  cb 1f 01 f6 02          SET_ATTR        "carbolic soap",#02
2b169:  b3 ...                  PRINT_RET       "Ugh, it tastes absolutely
ghastly. But you feel better for it."

Routine 2b194, 0 locals
    Action routine for:
        "bother"
        "bother SPECIAL"

2b195:  b3 ...                  PRINT_RET       "It's good that you can express
your frustration in such a mild way."

Routine 2b1c0, 0 locals
    Action routine for:
        "attack NOUN with HELD"
        "strike NOUN with HELD"

2b1c1:  c1 8f 30 01 22 00 09    JE              G20,#0122 [FALSE] 2b1cf
2b1c8:  c1 8f 31 01 3c 80 09    JE              G21,#013c [TRUE] 2b1d6
2b1cf:  f9 1b 36 0d 42 30       CALL_VN         d834 (#42,G20)
2b1d5:  b0                      RTRUE
2b1d6:  83 01 22 00             GET_PARENT      "hard wooden ball" -> -(SP)
2b1da:  61 00 11 80 13          JE              (SP)+,G01 [TRUE] 2b1f0
2b1df:  b3 ...                  PRINT_RET       "The ball is not on the
ground."
2b1f0:  da 1f 97 a4 0f          CALL_2N         25e90 (#0f)
2b1f5:  b2 ...                  PRINT           "You strike the ball with the
mallet, and a pleasing cracking sound.
"
2b21c:  c1 8f 11 01 1d 00 2b    JE              G01,#011d [FALSE] 2b24c
2b223:  b3 ...                  PRINT_RET       "
The ball ricochets around the ornaments as on a pinball table."
2b24c:  c1 8f 11 01 42 00 0d    JE              G01,#0142 [FALSE] 2b25e
2b253:  d1 1f 01 42 0b 00       GET_PROP        "Croquet Lawn",#0b -> -(SP)
2b259:  41 00 00 80 03          JE              (SP)+,#00 [TRUE] 2b25f
2b25e:  b1                      RFALSE
2b25f:  b2 ...                  PRINT           "
The ball runs smoothly across the lawn"
2b278:  c6 0f 01 46 01 42 00 17 JIN             "dug hole","Croquet Lawn"
[FALSE] 2b295
2b280:  ce 0f 01 22 01 46       INSERT_OBJ      "hard wooden ball","dug hole"
2b286:  b3 ...                  PRINT_RET       " and falls in the hole."
2b295:  89 01 22                REMOVE_OBJ      "hard wooden ball"
2b298:  e3 13 01 42 0b 01 3e    PUT_PROP        "Croquet Lawn",#0b,#013e
2b29f:  e3 13 01 1d 15 f9 9c    PUT_PROP        "Lawn Ornaments",#15,S1257
2b2a6:  e3 13 01 20 07 01 3e    PUT_PROP        "Mosaic",#07,#013e
2b2ad:  b3 ...                  PRINT_RET       ", along to the northwestern
hedge and into an irate squirrel. In a sudden rustle he leaps away, knocking
aside a rotten branch and uncovering a tiny gap through the hedge."

Routine 2b314, 0 locals
    Action routine for:
        "pretty"

2b315:  0d 7d 01                STORE           G6d,#01
2b318:  da 1f 97 a4 05          CALL_2N         25e90 (#05)
2b31d:  0d 90 01                STORE           G80,#01
2b320:  b3 ...                  PRINT_RET       ""Curses" is now in its
(supposedly) "pretty" mode."

Routine 2b348, 0 locals
    Action routine for:
        "plain"

2b349:  0d 7d 00                STORE           G6d,#00
2b34c:  0d 90 01                STORE           G80,#01
2b34f:  b3 ...                  PRINT_RET       ""Curses" is now in its "plain"
printing mode."

Routine 2b370, 0 locals
    Action routine for:
        "hint"

2b371:  b3 ...                  PRINT_RET       "There are hints built into
this game, but you will have to find out for yourself how to get them."

Routine 2b3a8, 0 locals
    Action routine for:
        "pace"

2b3a9:  43 c3 00 80 05          JG              Gb3,#00 [TRUE] 2b3b1
2b3ae:  0d c3 04                STORE           Gb3,#04
2b3b1:  f9 1b ac f0 01 c3       CALL_VN         2b3c0 (#01,Gb3)
2b3b7:  b0                      RTRUE

Routine 2b3b8, 0 locals
    Action routine for:
        "carry TEXT [parse 4]"
        "go TEXT [parse 5]"
        "pace TEXT [parse 5]"

2b3b9:  f9 2b ac f0 c2 c3       CALL_VN         2b3c0 (Gb2,Gb3)
2b3bf:  b0                      RTRUE

Routine 2b3c0, 6 locals

2b3c1:  41 02 00 00 05          JE              L01,#00 [FALSE] 2b3c9
2b3c6:  0d 02 04                STORE           L01,#04
2b3c9:  c1 8f 02 ff ff 00 0e    JE              L01,#ffff [FALSE] 2b3dc
2b3d0:  0d ac 00                STORE           G9c,#00
2b3d3:  0d ad 00                STORE           G9d,#00
2b3d6:  da 1f 36 0d 29          CALL_2N         d834 (#29)
2b3db:  b0                      RTRUE
2b3dc:  c1 8f 02 ff fe 00 0e    JE              L01,#fffe [FALSE] 2b3ef
2b3e3:  2d ac ae                STORE           G9c,G9e
2b3e6:  2d ad af                STORE           G9d,G9f
2b3e9:  da 1f 36 0d 29          CALL_2N         d834 (#29)
2b3ee:  b0                      RTRUE
2b3ef:  c1 8f 11 01 42 80 1d    JE              G01,#0142 [TRUE] 2b411
2b3f6:  b3 ...                  PRINT_RET       "You pace up and down,
Holmes-fashion."
2b411:  41 02 00 00 1d          JE              L01,#00 [FALSE] 2b431
2b416:  b3 ...                  PRINT_RET       "Perhaps you should say which
way to pace."
2b431:  a3 02 00                GET_PARENT      L01 -> -(SP)
2b434:  41 00 01 80 09          JE              (SP)+,#01 [TRUE] 2b440
2b439:  b3 ...                  PRINT_RET       "What?"
2b440:  41 02 02 00 05          JE              L01,#02 [FALSE] 2b448
2b445:  0d 04 01                STORE           L03,#01
2b448:  41 02 03 00 07          JE              L01,#03 [FALSE] 2b452
2b44d:  cd 4f 04 ff ff          STORE           L03,#ffff
2b452:  41 02 04 00 05          JE              L01,#04 [FALSE] 2b45a
2b457:  0d 03 01                STORE           L02,#01
2b45a:  41 02 05 00 07          JE              L01,#05 [FALSE] 2b464
2b45f:  cd 4f 03 ff ff          STORE           L02,#ffff
2b464:  41 02 06 00 08          JE              L01,#06 [FALSE] 2b46f
2b469:  0d 03 01                STORE           L02,#01
2b46c:  0d 04 01                STORE           L03,#01
2b46f:  41 02 08 00 0a          JE              L01,#08 [FALSE] 2b47c
2b474:  cd 4f 03 ff ff          STORE           L02,#ffff
2b479:  0d 04 01                STORE           L03,#01
2b47c:  41 02 07 00 0a          JE              L01,#07 [FALSE] 2b489
2b481:  0d 03 01                STORE           L02,#01
2b484:  cd 4f 04 ff ff          STORE           L03,#ffff
2b489:  41 02 09 00 0c          JE              L01,#09 [FALSE] 2b498
2b48e:  cd 4f 03 ff ff          STORE           L02,#ffff
2b493:  cd 4f 04 ff ff          STORE           L03,#ffff
2b498:  41 03 00 00 0e          JE              L02,#00 [FALSE] 2b4a9
2b49d:  41 04 00 00 09          JE              L03,#00 [FALSE] 2b4a9
2b4a2:  b3 ...                  PRINT_RET       "Hardly!"
2b4a9:  76 03 01 00             MUL             L02,L00 -> -(SP)
2b4ad:  74 ac 00 05             ADD             G9c,(SP)+ -> L04
2b4b1:  76 04 01 00             MUL             L03,L00 -> -(SP)
2b4b5:  74 ad 00 06             ADD             G9d,(SP)+ -> L05
2b4b9:  42 05 0d 00 15          JL              L04,#0d [FALSE] 2b4d1
2b4be:  c3 8f 05 ff f3 00 0e    JG              L04,#fff3 [FALSE] 2b4d1
2b4c5:  42 06 0d 00 09          JL              L05,#0d [FALSE] 2b4d1
2b4ca:  c3 8f 06 ff f3 80 1b    JG              L05,#fff3 [TRUE] 2b4ea
2b4d1:  b3 ...                  PRINT_RET       "That would go past the edge of
the lawn."
2b4ea:  2d ac 05                STORE           G9c,L04
2b4ed:  2d ad 06                STORE           G9d,L05
2b4f0:  da 1f 36 0d 29          CALL_2N         d834 (#29)
2b4f5:  b0                      RTRUE

Routine 2b4f8, 0 locals
    Action routine for:
        "check reflectio of NOUN"
        "check NOUN in NOUN"

2b4f9:  c1 97 31 63 00 80 15    JE              G21,#63,#00 [TRUE] 2b513
2b500:  b3 ...                  PRINT_RET       "The point of which escapes
me."
2b513:  61 30 19 00 41          JE              G20,G09 [FALSE] 2b557
2b518:  b3 ...                  PRINT_RET       "In the mirror is one of the
most strikingly attractive people you have ever seen in all your born days."
2b557:  c1 8f 30 01 a6 00 44    JE              G20,#01a6 [FALSE] 2b5a0
2b55e:  b2 ...                  PRINT           "In the mirror is a model of a
mischievous-looking monkey, which wriggles as it comes alive!"
2b597:  cb 1f 01 a6 08          SET_ATTR        "model of an animal so ugly you
can't bear to look at it",#08
2b59c:  8f 52 41                CALL_1N         14904
2b59f:  b0                      RTRUE
2b5a0:  d9 2f 52 38 30 00       CALL_2S         148e0 (G20) -> -(SP)
2b5a6:  41 00 01 00 27          JE              (SP)+,#01 [FALSE] 2b5d0
2b5ab:  b2 ...                  PRINT           "Curiously, "
2b5b4:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2b5b9:  b3 ...                  PRINT_RET       " it casts no reflection in the
mirror."
2b5d0:  b2 ...                  PRINT           "In the mirror is the
reflection of "
2b5e5:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2b5ea:  b3 ...                  PRINT_RET       "."

Routine 2b5f0, 0 locals
    Action routine for:
        "dig with HELD"

2b5f1:  c1 8f 30 01 2a 80 19    JE              G20,#012a [TRUE] 2b60f
2b5f8:  b3 ...                  PRINT_RET       "Not really a suitable
implement."
2b60f:  8f ad 85                CALL_1N         2b614
2b612:  b0                      RTRUE

Routine 2b614, 0 locals
    Action routine for:
        "dig"
        "dig SPECIAL"

2b615:  c6 2f 01 2a 19 80 1b    JIN             "spade",G09 [TRUE] 2b635
2b61c:  b3 ...                  PRINT_RET       "You have nothing really
suitable to hand."
2b635:  c1 83 11 01 24 01 36 00 1f
                               JE              G01,#0124,#0136 [FALSE] 2b65b
2b63e:  b3 ...                  PRINT_RET       "You succeed only in turning
the earth further."
2b65b:  c1 8f 11 01 20 00 19    JE              G01,#0120 [FALSE] 2b679
2b662:  b3 ...                  PRINT_RET       "Archaeology is not for the
amateur!"
2b679:  c1 8f 11 01 d6 00 1b    JE              G01,#01d6 [FALSE] 2b699
2b680:  b3 ...                  PRINT_RET       "The gravel is thin and lies on
concrete."
2b699:  c1 8f 11 01 2b 00 0b    JE              G01,#012b [FALSE] 2b6a9
2b6a0:  b3 ...                  PRINT_RET       "Surreal!"
2b6a9:  c1 8f 11 01 42 80 13    JE              G01,#0142 [TRUE] 2b6c1
2b6b0:  b3 ...                  PRINT_RET       "The ground is unsuitable."
2b6c1:  41 ac 00 00 52          JE              G9c,#00 [FALSE] 2b716
2b6c6:  41 ad 00 00 4d          JE              G9d,#00 [FALSE] 2b716
2b6cb:  b3 ...                  PRINT_RET       "You surely don't want to dig
here, right in the middle of such a fine lawn. The peg would fall out, and that
would never do."
2b716:  61 ac ae 00 26          JE              G9c,G9e [FALSE] 2b73f
2b71b:  61 ad af 00 21          JE              G9d,G9f [FALSE] 2b73f
2b720:  b3 ...                  PRINT_RET       "There is already a hole on
this exact spot of the lawn."
2b73f:  2d ae ac                STORE           G9e,G9c
2b742:  2d af ad                STORE           G9f,G9d
2b745:  b2 ...                  PRINT           "You dig an energetic little
hole in the superb turf"
2b764:  c6 0f 01 46 01 42 00 36 JIN             "dug hole","Croquet Lawn"
[FALSE] 2b7a0
2b76c:  b2 ...                  PRINT           ", filling your last one up
with the earth uncovered"
2b789:  82 01 46 00 c2          GET_CHILD       "dug hole" -> -(SP) [TRUE]
2b78e
2b78e:  41 00 00 80 0f          JE              (SP)+,#00 [TRUE] 2b7a0
2b793:  82 01 46 00 c2          GET_CHILD       "dug hole" -> -(SP) [TRUE]
2b798
2b798:  a9 00                   REMOVE_OBJ      (SP)+
2b79a:  0d c4 02                STORE           Gb4,#02
2b79d:  8c ff eb                JUMP            2b789
2b7a0:  61 ac 97 00 3b          JE              G9c,G87 [FALSE] 2b7de
2b7a5:  61 ad 98 00 36          JE              G9d,G88 [FALSE] 2b7de
2b7aa:  ca 1f 01 44 0c 80 2f    TEST_ATTR       "strongbox",#0c [TRUE] 2b7de
2b7b1:  b2 ...                  PRINT           ", until your spade bumps into
something solid"
2b7d0:  ce 0f 01 44 01 46       INSERT_OBJ      "strongbox","dug hole"
2b7d6:  da 1f 9d bb 23          CALL_2N         276ec (#23)
2b7db:  8c 00 25                JUMP            2b801
2b7de:  41 c4 01 00 20          JE              Gb4,#01 [FALSE] 2b801
2b7e3:  0d c4 00                STORE           Gb4,#00
2b7e6:  b2 ...                  PRINT           ", failing to find whatever it
was you buried"
2b801:  ce 0f 01 46 01 42       INSERT_OBJ      "dug hole","Croquet Lawn"
2b807:  41 c4 02 00 05          JE              Gb4,#02 [FALSE] 2b80f
2b80c:  0d c4 01                STORE           Gb4,#01
2b80f:  b3 ...                  PRINT_RET       "."

Routine 2b814, 0 locals
    Action routine for:
        "fill NOUN"

2b815:  c1 8f 11 01 42 00 46    JE              G01,#0142 [FALSE] 2b860
2b81c:  c6 0f 01 46 01 42 00 09 JIN             "dug hole","Croquet Lawn"
[FALSE] 2b82b
2b824:  c1 8f 30 01 46 80 09    JE              G20,#0146 [TRUE] 2b832
2b82b:  b3 ...                  PRINT_RET       "What?"
2b832:  82 01 46 00 c2          GET_CHILD       "dug hole" -> -(SP) [TRUE]
2b837
2b837:  41 00 00 80 0c          JE              (SP)+,#00 [TRUE] 2b846
2b83c:  82 01 46 00 c2          GET_CHILD       "dug hole" -> -(SP) [TRUE]
2b841
2b841:  a9 00                   REMOVE_OBJ      (SP)+
2b843:  8c ff ee                JUMP            2b832
2b846:  89 01 46                REMOVE_OBJ      "dug hole"
2b849:  b3 ...                  PRINT_RET       "You fill in the hole,
restoring the turf."
2b860:  c1 90 11 a8 01 14 01 51 80 07
                               JE              G01,#a8,#0114,#0151 [TRUE] 2b86f
2b86a:  41 11 da 00 55          JE              G01,#da [FALSE] 2b8c2
2b86f:  b3 ...                  PRINT_RET       "Don't go carting water about,
for heaven's sake, it'll only make a mess of your clothes and all your spare
clothes are packed."
2b8c2:  b3 ...                  PRINT_RET       "Try "get all" and then "put
all in..."."

Routine 2b8e4, 0 locals
    Action routine for:
        "beep"

2b8e5:  b3 ...                  PRINT_RET       "Are you feeling quite right?"

Routine 2b8f8, 0 locals
    Action routine for:
        "dance with CREATURE"

2b8f9:  da 2f 38 53 30          CALL_2N         e14c (G20)
2b8fe:  b3 ...                  PRINT_RET       " does not wish to dance with
you."

Routine 2b914, 0 locals
    Action routine for:
        "rip"
        "rip NOUN"

2b915:  b3 ...                  PRINT_RET       "That sort of wilful damage to
property is exactly what's wrong with the world today. And another thing, the
influence of so-called rock and roll music on society has in my view, and I may
be old-fashioned, but... [etc]"

Routine 2b9a0, 0 locals
    Action routine for:
        "rip down NOUN"

2b9a1:  da 1f 36 0d 72          CALL_2N         d834 (#72)
2b9a6:  b0                      RTRUE

Routine 2b9a8, 0 locals
    Action routine for:
        "plover"

2b9a9:  b3 ...                  PRINT_RET       "For a moment you can almost
hear a hoarse voice say something to you. But it passes."

Routine 2b9e0, 0 locals
    Action routine for:
        "answer lagach to NOUN"
        "lagach"

2b9e1:  b3 ...                  PRINT_RET       "You feel inexplicably
powerful, but nothing happens. Perhaps you should have addressed yourself more
precisely."

Routine 2ba28, 0 locals
    Action routine for:
        "answer"

2ba29:  b3 ...                  PRINT_RET       "Try "help" for details of how
to speak to people."

Routine 2ba4c, 0 locals
    Action routine for:
        "shantih"
        "shantih SPECIAL"
        "shantih SPECIAL SPECIAL"

2ba4d:  b3 ...                  PRINT_RET       "For a moment you can almost
hear thunder, as though it were saying something. But the moment passes."

Routine 2ba8c, 1 local
    Action routine for:
        "wave NOUN"

2ba8d:  66 30 19 80 15          JIN             G20,G09 [TRUE] 2baa5
2ba92:  b3 ...                  PRINT_RET       "But you aren't holding it."
2baa5:  4a 30 21 00 df          TEST_ATTR       G20,#21 [FALSE] 2bb87
2baaa:  26 73 19 00 69          JIN             "daisy chain",G09 [FALSE] 2bb16
2baaf:  0a 73 1a 00 64          TEST_ATTR       "daisy chain",#1a [FALSE] 2bb16
2bab4:  11 73 17 00             GET_PROP        "daisy chain",#17 -> -(SP)
2bab8:  41 00 01 00 5b          JE              (SP)+,#01 [FALSE] 2bb16
2babd:  54 17 06 17             ADD             G07,#06 -> G07
2bac1:  54 96 06 96             ADD             G86,#06 -> G86
2bac5:  b2 ...                  PRINT           "Light pulses around the daisy
chain, then leaps out to engulf "
2baec:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2baf1:  b2 ...                  PRINT           " which melts into "
2bafc:  a9 30                   REMOVE_OBJ      G20
2bafe:  51 30 1f 01             GET_PROP        G20,#1f -> L00
2bb02:  2d 5c 01                STORE           G4c,L00
2bb05:  4b 01 0c                SET_ATTR        L00,#0c
2bb08:  4b 01 22                SET_ATTR        L00,#22
2bb0b:  6e 01 19                INSERT_OBJ      L00,G09
2bb0e:  da 2f 38 48 01          CALL_2N         e120 (L00)
2bb13:  b3 ...                  PRINT_RET       "!"
2bb16:  c6 2f 01 4e 19 00 6c    JIN             "yellow daisy",G09 [FALSE]
2bb87
2bb1d:  ca 1f 01 4e 1a 00 65    TEST_ATTR       "yellow daisy",#1a [FALSE]
2bb87
2bb24:  54 17 06 17             ADD             G07,#06 -> G07
2bb28:  54 96 06 96             ADD             G86,#06 -> G86
2bb2c:  b2 ...                  PRINT           "Light pulses from the daisy
behind your ear, leaping out to engulf "
2bb53:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2bb58:  b2 ...                  PRINT           " which melts into "
2bb63:  a9 30                   REMOVE_OBJ      G20
2bb65:  51 30 1f 01             GET_PROP        G20,#1f -> L00
2bb69:  2d 5c 01                STORE           G4c,L00
2bb6c:  4b 01 0c                SET_ATTR        L00,#0c
2bb6f:  6e 01 19                INSERT_OBJ      L00,G09
2bb72:  4a 01 1c 00 0a          TEST_ATTR       L00,#1c [FALSE] 2bb7f
2bb77:  da 2f 38 4e 01          CALL_2N         e138 (L00)
2bb7c:  8c 00 07                JUMP            2bb84
2bb7f:  da 2f 38 48 01          CALL_2N         e120 (L00)
2bb84:  b3 ...                  PRINT_RET       "!"
2bb87:  4a 30 1c 00 1f          TEST_ATTR       G20,#1c [FALSE] 2bba9
2bb8c:  b3 ...                  PRINT_RET       "That seems to be not quite how
they work..."
2bba9:  4a 30 1a 00 17          TEST_ATTR       G20,#1a [FALSE] 2bbc3
2bbae:  b3 ...                  PRINT_RET       "You can't wave what you're
wearing."
2bbc3:  b2 ...                  PRINT           "You look ridiculous waving "
2bbd4:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2bbd9:  b3 ...                  PRINT_RET       "."

Routine 2bbdc, 0 locals
    Action routine for:
        "strike NOUN"

2bbdd:  66 30 19 80 15          JIN             G20,G09 [TRUE] 2bbf5
2bbe2:  b3 ...                  PRINT_RET       "But you aren't holding it."
2bbf5:  4a 30 1c 80 21          TEST_ATTR       G20,#1c [TRUE] 2bc19
2bbfa:  b2 ...                  PRINT           "You ineffectually bash "
2bc09:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2bc0e:  b3 ...                  PRINT_RET       " on the ground."
2bc19:  4a 30 26 00 44          TEST_ATTR       G20,#26 [FALSE] 2bc60
2bc1e:  0d 1d 01                STORE           G0d,#01
2bc21:  b3 ...                  PRINT_RET       "The already-charged rod
explodes with cataclysmic violence, burying everything nearby in rubble!"
2bc60:  4b 30 26                SET_ATTR        G20,#26
2bc63:  da 1f 9d bb 06          CALL_2N         276ec (#06)
2bc68:  88 35 fc 00             CALL_1S         d7f0 -> -(SP)
2bc6c:  41 00 01 00 03          JE              (SP)+,#01 [FALSE] 2bc72
2bc71:  b0                      RTRUE
2bc72:  b3 ...                  PRINT_RET       "The rod charges with etherial
power, drawn up from the earth through ley lines..."

Routine 2bca4, 0 locals
    Action routine for:
        "beckon at NOUN"

2bca5:  b2 ...                  PRINT           "You point at "
2bcae:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2bcb3:  b3 ...                  PRINT_RET       "."

Routine 2bcb8, 0 locals
    Action routine for:
        "beckon NOUN"

2bcb9:  46 30 01 00 0d          JIN             G20,"compass" [FALSE] 2bcc9
2bcbe:  c6 2f 01 ea 11 00 06    JIN             "adamantine knight",G01 [FALSE]
2bcc9
2bcc5:  8f 8c 16                CALL_1N         23058
2bcc8:  b1                      RFALSE
2bcc9:  4a 30 1c 00 15          TEST_ATTR       G20,#1c [FALSE] 2bce1
2bcce:  b3 ...                  PRINT_RET       "Please point it at something."
2bce1:  b3 ...                  PRINT_RET       "A useless gesture."

Routine 2bcf0, 1 local
    Action routine for:
        "beckon HELD at NOUN"

2bcf1:  66 30 19 80 15          JIN             G20,G09 [TRUE] 2bd09
2bcf6:  b3 ...                  PRINT_RET       "But you aren't holding it."
2bd09:  66 31 19 00 25          JIN             G21,G09 [FALSE] 2bd31
2bd0e:  b3 ...                  PRINT_RET       "It's too fiddly pointing it at
something you're holding."
2bd31:  4a 30 1c 80 0d          TEST_ATTR       G20,#1c [TRUE] 2bd41
2bd36:  b3 ...                  PRINT_RET       "Ok. (Why?)"
2bd41:  4a 30 26 80 0f          TEST_ATTR       G20,#26 [TRUE] 2bd53
2bd46:  b3 ...                  PRINT_RET       "Nothing happens."
2bd53:  da 1f 9d bb 07          CALL_2N         276ec (#07)
2bd58:  51 30 21 01             GET_PROP        G20,#21 -> L00
2bd5c:  c1 8f 01 ff ff 00 19    JE              L00,#ffff [FALSE] 2bd7a
2bd63:  b3 ...                  PRINT_RET       "** No rod routine **"
2bd7a:  4c 30 26                CLEAR_ATTR      G20,#26
2bd7d:  e0 bf 01 ff             CALL_VS         L00 -> Gef
2bd81:  b0                      RTRUE

Routine 2bd84, 0 locals
    Action routine for:
        "play croquet"

2bd85:  b3 ...                  PRINT_RET       "You'll have to be a little
more explicit."

Routine 2bda0, 0 locals
    Action routine for:
        "diagnose"

2bda1:  b3 ...                  PRINT_RET       "Hang on a moment... yes,
you're still breathing. Keep it up!"

Routine 2bdcc, 0 locals
    Action routine for:
        "lean HELD against NOUN"
        "lean HELD on NOUN"

2bdcd:  c1 8f 11 01 33 80 1d    JE              G01,#0133 [TRUE] 2bdef
2bdd4:  b3 ...                  PRINT_RET       "That won't achieve anything
very much."
2bdef:  c1 8f 31 01 34 80 1f    JE              G21,#0134 [TRUE] 2be13
2bdf6:  b3 ...                  PRINT_RET       "That isn't in conspicuous need
of support."
2be13:  c1 8f 30 01 0f 80 1d    JE              G20,#010f [TRUE] 2be35
2be1a:  b3 ...                  PRINT_RET       "That isn't a particularly good
support."
2be35:  ce 0f 01 0f 01 33       INSERT_OBJ      "old timber spar","Folly"
2be3b:  e3 13 01 0f 11 f9 a3    PUT_PROP        "old timber spar",#11,S1258
2be42:  cc 1f 01 0f 0c          CLEAR_ATTR      "old timber spar",#0c
2be47:  e3 17 01 35 17 00       PUT_PROP        "bean pole",#17,#00
2be4d:  cb 1f 01 0f 08          SET_ATTR        "old timber spar",#08
2be52:  cc 1f 01 35 08          CLEAR_ATTR      "bean pole",#08
2be57:  b3 ...                  PRINT_RET       "You lean the timber prop
against the Folly tower, supporting it. (Better just hope you won't be needing
the prop for anything else!)"

Routine 2bea8, 1 local
    Action routine for:
        "lean up NOUN with HELD"
        "lean NOUN with HELD"

2bea9:  2d 01 30                STORE           L00,G20
2beac:  2d 30 31                STORE           G20,G21
2beaf:  2d 31 01                STORE           G21,L00
2beb2:  8f af 73                CALL_1N         2bdcc
2beb5:  b0                      RTRUE

Routine 2beb8, 0 locals
    Action routine for:
        "milk NOUN"

2beb9:  c1 97 30 c4 df 00 35    JE              G20,#c4,#df [FALSE] 2bef3
2bec0:  b3 ...                  PRINT_RET       "Pour encourager les udders...
But milking goats is no job for an amateur."
2bef3:  b3 ...                  PRINT_RET       "What?"

Routine 2befc, 0 locals
    Action routine for:
        "hypnotise CREATURE"
        "hypnotise CREATURE with NOUN"

2befd:  41 31 00 80 24          JE              G21,#00 [TRUE] 2bf24
2bf02:  c1 8f 31 01 3d 80 1d    JE              G21,#013d [TRUE] 2bf24
2bf09:  b3 ...                  PRINT_RET       "You don't seem to have a
suitable focus."
2bf24:  c6 2f 01 3d 19 80 21    JIN             "gold watch on a chain",G09
[TRUE] 2bf4a
2bf2b:  b3 ...                  PRINT_RET       "Unaided, you are unable to
make any impression."
2bf4a:  b2 ...                  PRINT           "You set the gold watch
swinging, back and forth, spinning the light. "
2bf6f:  c1 8f 30 01 de 00 3e    JE              G20,#01de [FALSE] 2bfb2
2bf76:  cb 1f 01 de 08          SET_ATTR        "Old Evans",#08
2bf7b:  b3 ...                  PRINT_RET       "Old Evans, who is nine-tenths
hypnotised most of the time anyway, succumbs easily."
2bfb2:  61 30 19 00 08          JE              G20,G09 [FALSE] 2bfbd
2bfb7:  da 1f 36 0d 49          CALL_2N         d834 (#49)
2bfbc:  b0                      RTRUE
2bfbd:  b2 ...                  PRINT           "But "
2bfc2:  da 2f 38 4e 30          CALL_2N         e138 (G20)
2bfc7:  b3 ...                  PRINT_RET       " seems wilful enough to resist
hypnosis."

Routine 2bfe4, 0 locals
    Action routine for:
        "anoppe"

2bfe5:  c1 8f 11 01 d2 00 09    JE              G01,#01d2 [FALSE] 2bff3
2bfec:  ca 1f 01 d2 08 80 0f    TEST_ATTR       "Lost inside the Palace",#08
[TRUE] 2c000
2bff3:  b3 ...                  PRINT_RET       "Nothing happens."
2c000:  8f 88 ef                CALL_1N         223bc
2c003:  b0                      RTRUE

Routine 2c004, 0 locals
    Action routine for:
        "float"
        "float away"

2c005:  c6 8f 19 01 91 80 21    JIN             G09,"skiff" [TRUE] 2c02b
2c00c:  b3 ...                  PRINT_RET       "You are not in any suitable
means of transport."
2c02b:  c6 0f 01 91 01 bd 80 0a JIN             "skiff","Warehouses and Port"
[TRUE] 2c03b
2c033:  c6 0f 01 91 01 14 00 8e JIN             "skiff","Garden Stream" [FALSE]
2c0c7
2c03b:  c6 0f 01 91 01 bd 00 10 JIN             "skiff","Warehouses and Port"
[FALSE] 2c051
2c043:  ce 0f 01 91 01 14       INSERT_OBJ      "skiff","Garden Stream"
2c049:  cd 4f 11 01 14          STORE           G01,#0114
2c04e:  8c 00 0d                JUMP            2c05c
2c051:  ce 0f 01 91 01 bd       INSERT_OBJ      "skiff","Warehouses and Port"
2c057:  cd 4f 11 01 bd          STORE           G01,#01bd
2c05c:  b2 ...                  PRINT           "The skiff gathers wind from
somewhere, which whistles past you until your eyes are blurred and watery. When
you look around, you find that you are moored once again...
"
2c0c1:  da 1f 36 0d 29          CALL_2N         d834 (#29)
2c0c6:  b0                      RTRUE
2c0c7:  ca 1f 01 91 08 00 23    TEST_ATTR       "skiff",#08 [FALSE] 2c0ef
2c0ce:  b3 ...                  PRINT_RET       "That seems to be happening
whether you like it or not."
2c0ef:  cb 1f 01 91 08          SET_ATTR        "skiff",#08
2c0f4:  ce 0f 01 91 01 93       INSERT_OBJ      "skiff","Harbour Mouth"
2c0fa:  cd 4f 11 01 93          STORE           G01,#0193
2c0ff:  b2 ...                  PRINT           "You set sail, and a light
breeze propels your skiff...
"
2c122:  da 1f 36 0d 29          CALL_2N         d834 (#29)
2c127:  b0                      RTRUE

Routine 2c128, 0 locals
    Action routine for:
        "anoint NOUN"

2c129:  b3 ...                  PRINT_RET       "You have no oil."

Routine 2c134, 0 locals
    Action routine for:
        "knock on NOUN"
        "knock at NOUN"

2c135:  4a 30 04 80 11          TEST_ATTR       G20,#04 [TRUE] 2c149
2c13a:  b2 ...                  PRINT           "(If you insist.)  "
2c149:  b3 ...                  PRINT_RET       "There is no reply."

Routine 2c158, 0 locals
    Action routine for:
        "make"
        "make wish"
        "make a wish"
        "make for SPECIAL"

2c159:  26 7a 19 80 0d          JIN             "chicken wishbone",G09 [TRUE]
2c169
2c15e:  b3 ...                  PRINT_RET       "You make a wish."
2c169:  b3 ...                  PRINT_RET       "The wishbone has already been
pulled, and you have the part which lost."

Routine 2c194, 0 locals
    Action routine for:
        "etch SPECIAL"

2c195:  b3 ...                  PRINT_RET       "Graffiti is uncouth."

Routine 2c1a4, 0 locals
    Action routine for:
        "etch SPECIAL on NOUN"

2c1a5:  4a 31 22 00 31          TEST_ATTR       G21,#22 [FALSE] 2c1d9
2c1aa:  b3 ...                  PRINT_RET       "The silver plaque is extremely
strong, and resists all attempts to mark it."
2c1d9:  8f b0 65                CALL_1N         2c194
2c1dc:  b0                      RTRUE

Routine 2c1e0, 0 locals
    Action routine for:
        "lie"

2c1e1:  b3 ...                  PRINT_RET       "Whatever happened to
truthfulness..."

Routine 2c1fc, 0 locals
    Action routine for:
        "lie down"

2c1fd:  41 11 2a 00 09          JE              G01,#2a [FALSE] 2c209
2c202:  f9 17 36 0d 15 2c       CALL_VN         d834 (#15,#2c)
2c208:  b0                      RTRUE
2c209:  41 11 60 00 09          JE              G01,#60 [FALSE] 2c215
2c20e:  f9 17 36 0d 15 61       CALL_VN         d834 (#15,#61)
2c214:  b0                      RTRUE
2c215:  b3 ...                  PRINT_RET       "You lie down on the floor for
a while and then get up again, feeling foolish."

Routine 2c244, 0 locals
    Action routine for:
        "ram SPECIAL"

2c245:  41 8c 01 00 21          JE              G7c,#01 [FALSE] 2c269
2c24a:  b3 ...                  PRINT_RET       "For heaven's sake, this is
your own house."
2c269:  41 11 c3 00 25          JE              G01,#c3 [FALSE] 2c291
2c26e:  b3 ...                  PRINT_RET       "No, this is a goat. A "ram" is
a kind of sheep."
2c291:  b3 ...                  PRINT_RET       "Please don't ram anything.
This computer only has limited RAM."

Routine 2c2bc, 0 locals
    Action routine for:
        "bet"
        "bet with NOUN"

2c2bd:  b3 ...                  PRINT_RET       "How, exactly?"

Routine 2c2c8, 0 locals
    Action routine for:
        "close NOUN with NOUN"

2c2c9:  f9 1a 36 0d 1b 31 30    CALL_VN         d834 (#1b,G21,G20)
2c2d0:  b0                      RTRUE

Routine 2c2d4, 0 locals
    Action routine for:
        "stack NOUN"
        "stack NOUN with HELD"

2c2d5:  f9 1b 36 0d 1c 30       CALL_VN         d834 (#1c,G20)
2c2db:  b0                      RTRUE

Routine 2c2dc, 0 locals
    Action routine for:
        "rotate NOUN with HELD"
        "tighten NOUN with NOUN"

2c2dd:  41 31 78 80 1c          JE              G21,#78 [TRUE] 2c2fc
2c2e2:  da 2f 38 53 31          CALL_2N         e14c (G21)
2c2e7:  b3 ...                  PRINT_RET       " is unsuitable for turning
things."
2c2fc:  41 11 43 80 27          JE              G01,#43 [TRUE] 2c326
2c301:  b2 ...                  PRINT           "(The wrench seems unnecessary,
so you use bare hands.)
"
2c326:  f9 1b 36 0d 3f 30       CALL_VN         d834 (#3f,G20)
2c32c:  b0                      RTRUE

Routine 2c330, 0 locals
    Action routine for:
        "start NOUN"

2c331:  b3 ...                  PRINT_RET       "You'll have to say exactly how
to do that."

Routine 2c34c, 0 locals
    Parsing routine for:
        "go NOUN [parse 0]"

2c34d:  46 30 01 00 03          JIN             G20,"compass" [FALSE] 2c353
2c352:  b0                      RTRUE
2c353:  b1                      RFALSE

Routine 2c354, 1 local
    Parsing routine for:
        "l up TEXT [parse 2]"
        "consult NOUN about TEXT [parse 2]"
        "consult NOUN on TEXT [parse 2]"
        "rotate NOUN to TEXT [parse 2]"
        "answer TEXT [parse 2] to CREATURE"
        "tell CREATURE about TEXT [parse 2]"
        "ask CREATURE about TEXT [parse 2]"

2c355:  2d 3b 42                STORE           G2b,G32
2c358:  88 33 d0 01             CALL_1S         cf40 -> L00
2c35c:  c1 8f 01 ff ff 80 0e    JE              L00,#ffff [TRUE] 2c36f
2c363:  c1 8f 01 9e 37 3f f0    JE              L00,"to" [FALSE] 2c358
2c36a:  41 72 44 3f eb          JE              G62,#44 [FALSE] 2c358
2c36f:  96 42                   DEC             G32
2c371:  75 42 3b 3c             SUB             G32,G2b -> G2c
2c375:  41 3c 00 00 05          JE              G2c,#00 [FALSE] 2c37d
2c37a:  8b ff ff                RET             #ffff
2c37d:  c1 95 72 46 44 45 00 21 JE              G62,#46,#44,#45 [FALSE] 2c3a4
2c385:  2d 01 42                STORE           L00,G32
2c388:  2d 42 3b                STORE           G32,G2b
2c38b:  88 33 bc 34             CALL_1S         cef0 -> G24
2c38f:  c1 8f 34 9d 56 00 0b    JE              G24,"the" [FALSE] 2c39f
2c396:  43 3c 01 00 06          JG              G2c,#01 [FALSE] 2c39f
2c39b:  88 33 bc 34             CALL_1S         cef0 -> G24
2c39f:  2d 42 01                STORE           G32,L00
2c3a2:  9b 01                   RET             #01
2c3a4:  9b 00                   RET             #00

Routine 2c3a8, 1 local
    Parsing routine for:
        "l up TEXT [parse 1] in NOUN"
        "read about TEXT [parse 1] in NOUN"
        "read TEXT [parse 1] in NOUN"

2c3a9:  2d 3b 42                STORE           G2b,G32
2c3ac:  88 33 d0 01             CALL_1S         cf40 -> L00
2c3b0:  c1 83 01 87 8a ff ff 3f f5
                               JE              L00,"in",#ffff [FALSE] 2c3ac
2c3b9:  c1 8f 01 ff ff 00 05    JE              L00,#ffff [FALSE] 2c3c3
2c3c0:  8b ff ff                RET             #ffff
2c3c3:  96 42                   DEC             G32
2c3c5:  75 42 3b 3c             SUB             G32,G2b -> G2c
2c3c9:  41 3c 00 00 05          JE              G2c,#00 [FALSE] 2c3d1
2c3ce:  8b ff ff                RET             #ffff
2c3d1:  9b 00                   RET             #00

Routine 2c3d4, 0 locals

2c3d5:  b1                      RFALSE

Routine 2c3d8, 0 locals

2c3d9:  b1                      RFALSE

Routine 2c3dc, 0 locals

2c3dd:  b1                      RFALSE

Routine 2c3e0, 0 locals

2c3e1:  b1                      RFALSE

Routine 2c3e4, 0 locals

2c3e5:  b1                      RFALSE

Routine 2c3e8, 1 local

2c3e9:  0d 01 00                STORE           L00,#00
2c3ec:  b1                      RFALSE

Routine 2c3f0, 1 local

2c3f1:  0d 01 00                STORE           L00,#00
2c3f4:  b1                      RFALSE

Routine 2c3f8, 1 local

2c3f9:  0d 01 00                STORE           L00,#00
2c3fc:  b1                      RFALSE

Routine 2c400, 1 local

2c401:  0d 01 00                STORE           L00,#00
2c404:  b1                      RFALSE

Routine 2c408, 2 locals

2c409:  0d 01 00                STORE           L00,#00
2c40c:  0d 02 00                STORE           L01,#00
2c40f:  b1                      RFALSE

Routine 2c410, 0 locals

2c411:  8b ff ff                RET             #ffff

Routine 2c414, 1 local
    Parsing routine for:
        "l up TEXT [parse 3] on NOUN"

2c415:  2d 3b 42                STORE           G2b,G32
2c418:  88 33 d0 01             CALL_1S         cf40 -> L00
2c41c:  c1 83 01 8f 10 ff ff 3f f5
                               JE              L00,"on",#ffff [FALSE] 2c418
2c425:  c1 8f 01 ff ff 00 05    JE              L00,#ffff [FALSE] 2c42f
2c42c:  8b ff ff                RET             #ffff
2c42f:  96 42                   DEC             G32
2c431:  75 42 3b 3c             SUB             G32,G2b -> G2c
2c435:  41 3c 00 00 05          JE              G2c,#00 [FALSE] 2c43d
2c43a:  8b ff ff                RET             #ffff
2c43d:  9b 00                   RET             #00

Routine 2c440, 1 local

2c441:  88 33 d0 01             CALL_1S         cf40 -> L00
2c445:  96 42                   DEC             G32
2c447:  ab 01                   RET             L00

Routine 2c44c, 1 local

2c44d:  c1 80 01 8f b2 9b 67 9b ca 00 04
                               JE              L00,"pace","step","stride"
[FALSE] 2c45a
2c458:  9b 01                   RET             #01
2c45a:  c1 80 01 8f bb 9b 70 9b d3 00 04
                               JE              L00,"paces","steps","strides"
[FALSE] 2c467
2c465:  9b 02                   RET             #02
2c467:  b1                      RFALSE

Routine 2c468, 3 locals

2c469:  2d 03 42                STORE           L02,G32
2c46c:  88 b1 10 01             CALL_1S         2c440 -> L00
2c470:  c1 83 01 78 e1 82 44 00 08
                               JE              L00,"by","for" [FALSE] 2c47f
2c479:  95 42                   INC             G32
2c47b:  88 b1 10 01             CALL_1S         2c440 -> L00
2c47f:  c1 83 01 73 b6 98 cd 00 1b
                               JE              L00,"a","single" [FALSE] 2c4a1
2c488:  95 42                   INC             G32
2c48a:  88 b1 10 01             CALL_1S         2c440 -> L00
2c48e:  d9 2f b1 13 01 00       CALL_2S         2c44c (L00) -> -(SP)
2c494:  41 00 01 80 06          JE              (SP)+,#01 [TRUE] 2c49d
2c499:  2d 42 03                STORE           G32,L02
2c49c:  b1                      RFALSE
2c49d:  95 42                   INC             G32
2c49f:  9b 01                   RET             #01
2c4a1:  d9 2f b1 13 01 00       CALL_2S         2c44c (L00) -> -(SP)
2c4a7:  41 00 01 00 06          JE              (SP)+,#01 [FALSE] 2c4b0
2c4ac:  95 42                   INC             G32
2c4ae:  9b 01                   RET             #01
2c4b0:  d9 2f 33 e0 42 02       CALL_2S         cf80 (G32) -> L01
2c4b6:  42 02 00 00 06          JL              L01,#00 [FALSE] 2c4bf
2c4bb:  2d 42 03                STORE           G32,L02
2c4be:  b1                      RFALSE
2c4bf:  95 42                   INC             G32
2c4c1:  88 b1 10 01             CALL_1S         2c440 -> L00
2c4c5:  d9 2f b1 13 01 00       CALL_2S         2c44c (L00) -> -(SP)
2c4cb:  41 00 01 00 07          JE              (SP)+,#01 [FALSE] 2c4d5
2c4d0:  41 02 01 80 12          JE              L01,#01 [TRUE] 2c4e5
2c4d5:  d9 2f b1 13 01 00       CALL_2S         2c44c (L00) -> -(SP)
2c4db:  41 00 02 00 09          JE              (SP)+,#02 [FALSE] 2c4e7
2c4e0:  43 02 01 00 04          JG              L01,#01 [FALSE] 2c4e7
2c4e5:  95 42                   INC             G32
2c4e7:  ab 02                   RET             L01

Routine 2c4ec, 5 locals

2c4ed:  88 b1 10 01             CALL_1S         2c440 -> L00
2c4f1:  c1 83 01 82 56 82 5f 00 06
                               JE              L00,"forward","forwards" [FALSE]
2c4fe
2c4fa:  95 42                   INC             G32
2c4fc:  ab c3                   RET             Gb3
2c4fe:  c1 80 01 76 47 76 50 76 59 00 0b
                               JE
L00,"back","backward","backwards" [FALSE] 2c512
2c509:  95 42                   INC             G32
2c50b:  88 b1 10 01             CALL_1S         2c440 -> L00
2c50f:  0d 03 01                STORE           L02,#01
2c512:  c1 8f 01 9e 37 00 08    JE              L00,"to" [FALSE] 2c51f
2c519:  95 42                   INC             G32
2c51b:  88 b1 10 01             CALL_1S         2c440 -> L00
2c51f:  c1 8f 01 9d 56 00 08    JE              L00,"the" [FALSE] 2c52c
2c526:  95 42                   INC             G32
2c528:  88 b1 10 01             CALL_1S         2c440 -> L00
2c52c:  c1 80 01 90 b7 8c 2e 7a 01 80 0d
                               JE              L00,"peg","middle","centre"
[TRUE] 2c542
2c537:  c1 80 01 86 d6 86 df 79 ef 00 07
                               JE              L00,"hoop","hoops","center"
[FALSE] 2c547
2c542:  95 42                   INC             G32
2c544:  8b ff ff                RET             #ffff
2c547:  c1 8f 01 86 a0 00 0f    JE              L00,"hole" [FALSE] 2c55b
2c54e:  c6 0f 01 46 01 42 00 07 JIN             "dug hole","Croquet Lawn"
[FALSE] 2c55b
2c556:  95 42                   INC             G32
2c558:  8b ff fe                RET             #fffe
2c55b:  2d 02 42                STORE           L01,G32
2c55e:  c1 8f 01 ff ff 80 0d    JE              L00,#ffff [TRUE] 2c570
2c565:  e0 15 2e a5 01 00 00 04 CALL_VS         ba94 (#01,#00,#00) -> L03
2c56d:  8c 00 07                JUMP            2c575
2c570:  cd 4f 04 ff ff          STORE           L03,#ffff
2c575:  63 04 25 80 0d          JG              L03,G15 [TRUE] 2c585
2c57a:  43 04 00 00 08          JG              L03,#00 [FALSE] 2c585
2c57f:  2d 05 04                STORE           L04,L03
2c582:  8c 00 58                JUMP            2c5db
2c585:  2d 42 02                STORE           G32,L01
2c588:  2d 05 c3                STORE           L04,Gb3
2c58b:  43 05 00 80 08          JG              L04,#00 [TRUE] 2c596
2c590:  0d 05 04                STORE           L04,#04
2c593:  8c 00 47                JUMP            2c5db
2c596:  41 03 01 00 42          JE              L02,#01 [FALSE] 2c5db
2c59b:  41 c3 02 00 05          JE              Gb3,#02 [FALSE] 2c5a3
2c5a0:  0d 05 03                STORE           L04,#03
2c5a3:  41 c3 03 00 05          JE              Gb3,#03 [FALSE] 2c5ab
2c5a8:  0d 05 02                STORE           L04,#02
2c5ab:  41 c3 04 00 05          JE              Gb3,#04 [FALSE] 2c5b3
2c5b0:  0d 05 05                STORE           L04,#05
2c5b3:  41 c3 05 00 05          JE              Gb3,#05 [FALSE] 2c5bb
2c5b8:  0d 05 04                STORE           L04,#04
2c5bb:  41 c3 06 00 05          JE              Gb3,#06 [FALSE] 2c5c3
2c5c0:  0d 05 09                STORE           L04,#09
2c5c3:  41 c3 08 00 05          JE              Gb3,#08 [FALSE] 2c5cb
2c5c8:  0d 05 07                STORE           L04,#07
2c5cb:  41 c3 09 00 05          JE              Gb3,#09 [FALSE] 2c5d3
2c5d0:  0d 05 06                STORE           L04,#06
2c5d3:  41 c3 07 00 05          JE              Gb3,#07 [FALSE] 2c5db
2c5d8:  0d 05 08                STORE           L04,#08
2c5db:  ab 05                   RET             L04

Routine 2c5e0, 2 locals
    Parsing routine for:
        "go TEXT [parse 5]"
        "pace TEXT [parse 5]"

2c5e1:  88 b1 1a 01             CALL_1S         2c468 -> L00
2c5e5:  41 01 00 00 34          JE              L00,#00 [FALSE] 2c61c
2c5ea:  88 b1 10 00             CALL_1S         2c440 -> -(SP)
2c5ee:  c1 8f 00 ff ff 00 05    JE              (SP)+,#ffff [FALSE] 2c5f8
2c5f5:  8b ff ff                RET             #ffff
2c5f8:  88 b1 3b 02             CALL_1S         2c4ec -> L01
2c5fc:  88 b1 10 00             CALL_1S         2c440 -> -(SP)
2c600:  c1 8f 00 ff ff 00 08    JE              (SP)+,#ffff [FALSE] 2c60d
2c607:  0d 01 01                STORE           L00,#01
2c60a:  8c 00 06                JUMP            2c611
2c60d:  88 b1 1a 01             CALL_1S         2c468 -> L00
2c611:  41 01 00 00 05          JE              L00,#00 [FALSE] 2c619
2c616:  8b ff ff                RET             #ffff
2c619:  8c 00 06                JUMP            2c620
2c61c:  88 b1 3b 02             CALL_1S         2c4ec -> L01
2c620:  2d c2 01                STORE           Gb2,L00
2c623:  2d c3 02                STORE           Gb3,L01
2c626:  9b 00                   RET             #00

Routine 2c628, 2 locals
    Parsing routine for:
        "carry TEXT [parse 4]"

2c629:  88 b1 1a 01             CALL_1S         2c468 -> L00
2c62d:  41 01 00 00 05          JE              L00,#00 [FALSE] 2c635
2c632:  8b ff ff                RET             #ffff
2c635:  88 b1 3b 02             CALL_1S         2c4ec -> L01
2c639:  2d c2 01                STORE           Gb2,L00
2c63c:  2d c3 02                STORE           Gb3,L01
2c63f:  9b 00                   RET             #00

Routine 2c644, 4 locals
    Parsing routine for:
        "slide TEXT [parse 6]"

2c645:  56 42 04 00             MUL             G32,#04 -> -(SP)
2c649:  54 00 01 03             ADD             (SP)+,#01 -> L02
2c64d:  d0 2f 5e 4e 03 04       LOADB           #5e4e,L02 -> L03
2c653:  d4 8f 04 5d d5 01       ADD             L03,#5dd5 -> L00
2c659:  55 03 01 00             SUB             L02,#01 -> -(SP)
2c65d:  d0 2f 5e 4e 00 02       LOADB           #5e4e,(SP)+ -> L01
2c663:  41 02 01 80 05          JE              L01,#01 [TRUE] 2c66b
2c668:  8b ff ff                RET             #ffff
2c66b:  cd 4f 03 ff ff          STORE           L02,#ffff
2c670:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c674:  42 00 61 80 17          JL              (SP)+,#61 [TRUE] 2c68e
2c679:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c67d:  43 00 7a 80 0e          JG              (SP)+,#7a [TRUE] 2c68e
2c682:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c686:  55 00 61 00             SUB             (SP)+,#61 -> -(SP)
2c68a:  54 00 01 03             ADD             (SP)+,#01 -> L02
2c68e:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c692:  42 00 41 80 17          JL              (SP)+,#41 [TRUE] 2c6ac
2c697:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c69b:  43 00 5a 80 0e          JG              (SP)+,#5a [TRUE] 2c6ac
2c6a0:  50 01 00 00             LOADB           L00,#00 -> -(SP)
2c6a4:  55 00 41 00             SUB             (SP)+,#41 -> -(SP)
2c6a8:  54 00 01 03             ADD             (SP)+,#01 -> L02
2c6ac:  c1 8f 03 ff ff 00 05    JE              L02,#ffff [FALSE] 2c6b6
2c6b3:  8b ff ff                RET             #ffff
2c6b6:  2d 34 03                STORE           G24,L02
2c6b9:  95 42                   INC             G32
2c6bb:  9b 01                   RET             #01

Routine 2c6c0, 3 locals

2c6c1:  41 02 01 00 25          JE              L01,#01 [FALSE] 2c6e9
2c6c6:  b2 ...                  PRINT           "(Press H for more, or SPACE to
return.)

"
2c6e9:  ad 01                   PRINT_PADDR     L00
2c6eb:  bb                      NEW_LINE
2c6ec:  bb                      NEW_LINE
2c6ed:  f6 57 01 00 00 03       READ_CHAR       #01,#00,0 -> L02
2c6f3:  c1 97 03 48 68 00 03    JE              L02,#48,#68 [FALSE] 2c6fb
2c6fa:  b1                      RFALSE
2c6fb:  b0                      RTRUE

Routine 2c6fc, 0 locals

2c6fd:  41 81 01 00 84          JE              G71,#01 [FALSE] 2c784
2c702:  e0 07 b1 b0 f9 ad 01 00 CALL_VS         2c6c0 (S1259,#01) -> -(SP)
2c70a:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c711
2c70f:  9b 02                   RET             #02
2c711:  d9 0f b1 b0 f9 b4 00    CALL_2S         2c6c0 (S1260) -> -(SP)
2c718:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c71f
2c71d:  9b 02                   RET             #02
2c71f:  d9 0f b1 b0 f9 bb 00    CALL_2S         2c6c0 (S1261) -> -(SP)
2c726:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c72d
2c72b:  9b 02                   RET             #02
2c72d:  d9 0f b1 b0 f9 c0 00    CALL_2S         2c6c0 (S1262) -> -(SP)
2c734:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c73b
2c739:  9b 02                   RET             #02
2c73b:  d9 0f b1 b0 f9 c5 00    CALL_2S         2c6c0 (S1263) -> -(SP)
2c742:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c749
2c747:  9b 02                   RET             #02
2c749:  d9 0f b1 b0 f9 cd 00    CALL_2S         2c6c0 (S1264) -> -(SP)
2c750:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c757
2c755:  9b 02                   RET             #02
2c757:  b3 ...                  PRINT_RET       "Write your own Inform
adventure, and so revenge yourself on the author"
2c784:  41 81 02 01 b5          JE              G71,#02 [FALSE] 2c93c
2c789:  b3 ...                  PRINT_RET       "Callimachus (c. 300-240 BC), a
former schoolteacher in Alexandria, produced the first library catalogue: a
120-part organised history of literature to date (almost all lost now, like
much of its subject matter). He was favoured at court and celebrated for his
epigrams (about 60 of which survive in the "Greek Anthology") but denounced by
critics for being unable to write epics, which he detested ("big book, big
bore"). Apollonius, the head librarian c. 260-247, was a former pupil with
exactly opposite views, who brought out a 6000-line epic on the Argonauts,
whereupon the quarrel grew so personal and bitter that Apollonius was driven
into retirement."
2c93c:  41 81 03 00 9b          JE              G71,#03 [FALSE] 2c9da
2c941:  b3 ...                  PRINT_RET       "Sleep cold at someone's
Door as, shivering,
I lie tonight at
Yours. The neighbours weep
To see me here, but
Who will weep for you,
Crouched on a doorstep
When the grey hairs come?

 -- translation by Edward Lucie-Smith"
2c9da:  41 81 04 01 0c          JE              G71,#04 [FALSE] 2cae9
2c9df:  e0 07 b1 b0 f9 d8 01 00 CALL_VS         2c6c0 (S1265,#01) -> -(SP)
2c9e7:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c9ee
2c9ec:  9b 02                   RET             #02
2c9ee:  d9 0f b1 b0 f9 e6 00    CALL_2S         2c6c0 (S1266) -> -(SP)
2c9f5:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2c9fc
2c9fa:  9b 02                   RET             #02
2c9fc:  d9 0f b1 b0 f9 e9 00    CALL_2S         2c6c0 (S1267) -> -(SP)
2ca03:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca0a
2ca08:  9b 02                   RET             #02
2ca0a:  d9 0f b1 b0 f9 ec 00    CALL_2S         2c6c0 (S1268) -> -(SP)
2ca11:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca18
2ca16:  9b 02                   RET             #02
2ca18:  d9 0f b1 b0 f9 ef 00    CALL_2S         2c6c0 (S1269) -> -(SP)
2ca1f:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca26
2ca24:  9b 02                   RET             #02
2ca26:  d9 0f b1 b0 f9 f2 00    CALL_2S         2c6c0 (S1270) -> -(SP)
2ca2d:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca34
2ca32:  9b 02                   RET             #02
2ca34:  d9 0f b1 b0 f9 f5 00    CALL_2S         2c6c0 (S1271) -> -(SP)
2ca3b:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca42
2ca40:  9b 02                   RET             #02
2ca42:  d9 0f b1 b0 f9 f8 00    CALL_2S         2c6c0 (S1272) -> -(SP)
2ca49:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca50
2ca4e:  9b 02                   RET             #02
2ca50:  d9 0f b1 b0 f9 fb 00    CALL_2S         2c6c0 (S1273) -> -(SP)
2ca57:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca5e
2ca5c:  9b 02                   RET             #02
2ca5e:  d9 0f b1 b0 f9 fe 00    CALL_2S         2c6c0 (S1274) -> -(SP)
2ca65:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca6c
2ca6a:  9b 02                   RET             #02
2ca6c:  d9 0f b1 b0 fa 01 00    CALL_2S         2c6c0 (S1275) -> -(SP)
2ca73:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca7a
2ca78:  9b 02                   RET             #02
2ca7a:  d9 0f b1 b0 fa 04 00    CALL_2S         2c6c0 (S1276) -> -(SP)
2ca81:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca88
2ca86:  9b 02                   RET             #02
2ca88:  d9 0f b1 b0 fa 07 00    CALL_2S         2c6c0 (S1277) -> -(SP)
2ca8f:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ca96
2ca94:  9b 02                   RET             #02
2ca96:  d9 0f b1 b0 fa 0a 00    CALL_2S         2c6c0 (S1278) -> -(SP)
2ca9d:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2caa4
2caa2:  9b 02                   RET             #02
2caa4:  d9 0f b1 b0 fa 0d 00    CALL_2S         2c6c0 (S1279) -> -(SP)
2caab:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cab2
2cab0:  9b 02                   RET             #02
2cab2:  d9 0f b1 b0 fa 10 00    CALL_2S         2c6c0 (S1280) -> -(SP)
2cab9:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cac0
2cabe:  9b 02                   RET             #02
2cac0:  d9 0f b1 b0 fa 13 00    CALL_2S         2c6c0 (S1281) -> -(SP)
2cac7:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cace
2cacc:  9b 02                   RET             #02
2cace:  d9 0f b1 b0 fa 16 00    CALL_2S         2c6c0 (S1282) -> -(SP)
2cad5:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cadc
2cada:  9b 02                   RET             #02
2cadc:  b3 ...                  PRINT_RET       "Swollen Admire"
2cae9:  41 81 05 00 f1          JE              G71,#05 [FALSE] 2cbdd
2caee:  b3 ...                  PRINT_RET       "To those who wrote to suggest
"wistaria" be spelt "wisteria":
The genus is named after the American anatomist Caspar Wistar (1761-1818), so
"wistaria" is correct, but the mistake was introduced by Thomas Nuttall, who
originally christened the family. Ironically, American dictionaries side with
Nuttall and English ones with Wistar, as far as I can tell."
2cbdd:  41 81 06 00 ac          JE              G71,#06 [FALSE] 2cc8c
2cbe2:  e0 07 b1 b0 fa 19 01 00 CALL_VS         2c6c0 (S1283,#01) -> -(SP)
2cbea:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cbf1
2cbef:  9b 02                   RET             #02
2cbf1:  d9 0f b1 b0 fa 22 00    CALL_2S         2c6c0 (S1284) -> -(SP)
2cbf8:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cbff
2cbfd:  9b 02                   RET             #02
2cbff:  d9 0f b1 b0 fa 3d 00    CALL_2S         2c6c0 (S1285) -> -(SP)
2cc06:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cc0d
2cc0b:  9b 02                   RET             #02
2cc0d:  d9 0f b1 b0 fa 4f 00    CALL_2S         2c6c0 (S1286) -> -(SP)
2cc14:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cc1b
2cc19:  9b 02                   RET             #02
2cc1b:  d9 0f b1 b0 fa 5d 00    CALL_2S         2c6c0 (S1287) -> -(SP)
2cc22:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cc29
2cc27:  9b 02                   RET             #02
2cc29:  b3 ...                  PRINT_RET       "Not really a mistake, just the
pace of history: the English pub licensing laws which close the village pub in
the afternoon have, since June 1993, been repealed."
2cc8c:  41 81 07 01 51          JE              G71,#07 [FALSE] 2cde0
2cc91:  b3 ...                  PRINT_RET       "There are two ancient
languages: a hieroglyphic and a demotic script, the important clue being the
Rosetta stone to compare the two.

The hieroglyphics are loosely based on the beautiful system devised by Michael
Berlyn and Patricia Fogleman for their excellent game, "Infidel", though I have
taken care not to reveal any of their answers.

The demotic script (written right to left) is my own invention, but the numbers
are Etruscan. (And are just about the only Etruscan words deciphered - they
were found on a gambler's die.)"
2cde0:  b0                      RTRUE

Routine 2cde4, 0 locals

2cde5:  f9 00 36 5f fa 7d b3 7c b1 bf
                               CALL_VN         d97c (S1288,#b37c,#b1bf)
2cdef:  b0                      RTRUE

Routine 2cdf0, 0 locals

2cdf1:  41 81 00 00 0c          JE              G71,#00 [FALSE] 2ce00
2cdf6:  cd 4f 80 fa a1          STORE           G70,S1289
2cdfb:  0d 7f 09                STORE           G6f,#09
2cdfe:  9b 07                   RET             #07
2ce00:  41 81 01 00 0a          JE              G71,#01 [FALSE] 2ce0d
2ce05:  cd 4f 80 fa a4          STORE           G70,S1290
2ce0a:  0d 7f 0b                STORE           G6f,#0b
2ce0d:  41 81 02 00 0a          JE              G71,#02 [FALSE] 2ce1a
2ce12:  cd 4f 80 fa a8          STORE           G70,S1291
2ce17:  0d 7f 10                STORE           G6f,#10
2ce1a:  41 81 03 00 0a          JE              G71,#03 [FALSE] 2ce27
2ce1f:  cd 4f 80 fa ae          STORE           G70,S1292
2ce24:  0d 7f 0c                STORE           G6f,#0c
2ce27:  41 81 04 00 0a          JE              G71,#04 [FALSE] 2ce34
2ce2c:  cd 4f 80 fa b3          STORE           G70,S1293
2ce31:  0d 7f 07                STORE           G6f,#07
2ce34:  41 81 05 00 0a          JE              G71,#05 [FALSE] 2ce41
2ce39:  cd 4f 80 fa b6          STORE           G70,S1294
2ce3e:  0d 7f 0a                STORE           G6f,#0a
2ce41:  41 81 06 00 0a          JE              G71,#06 [FALSE] 2ce4e
2ce46:  cd 4f 80 fa ba          STORE           G70,S1295
2ce4b:  0d 7f 0a                STORE           G6f,#0a
2ce4e:  41 81 07 00 0a          JE              G71,#07 [FALSE] 2ce5b
2ce53:  cd 4f 80 fa be          STORE           G70,S1296
2ce58:  0d 7f 0a                STORE           G6f,#0a
2ce5b:  b0                      RTRUE

Routine 2ce5c, 0 locals

2ce5d:  41 81 01 00 7e          JE              G71,#01 [FALSE] 2cede
2ce62:  e0 07 b1 b0 fa c2 01 00 CALL_VS         2c6c0 (S1297,#01) -> -(SP)
2ce6a:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ce71
2ce6f:  9b 02                   RET             #02
2ce71:  d9 0f b1 b0 fa c7 00    CALL_2S         2c6c0 (S1298) -> -(SP)
2ce78:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ce7f
2ce7d:  9b 02                   RET             #02
2ce7f:  d9 0f b1 b0 fa cc 00    CALL_2S         2c6c0 (S1299) -> -(SP)
2ce86:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ce8d
2ce8b:  9b 02                   RET             #02
2ce8d:  d9 0f b1 b0 fa cf 00    CALL_2S         2c6c0 (S1300) -> -(SP)
2ce94:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ce9b
2ce99:  9b 02                   RET             #02
2ce9b:  d9 0f b1 b0 fa db 00    CALL_2S         2c6c0 (S1301) -> -(SP)
2cea2:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cea9
2cea7:  9b 02                   RET             #02
2cea9:  d9 0f b1 b0 fa ea 00    CALL_2S         2c6c0 (S1302) -> -(SP)
2ceb0:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2ceb7
2ceb5:  9b 02                   RET             #02
2ceb7:  d9 0f b1 b0 fa f1 00    CALL_2S         2c6c0 (S1303) -> -(SP)
2cebe:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cec5
2cec3:  9b 02                   RET             #02
2cec5:  b3 ...                  PRINT_RET       "Feeding Austin the chicken
wishbone."
2cede:  41 81 02 00 46          JE              G71,#02 [FALSE] 2cf27
2cee3:  e0 07 b1 b0 fa fa 01 00 CALL_VS         2c6c0 (S1304,#01) -> -(SP)
2ceeb:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cef2
2cef0:  9b 02                   RET             #02
2cef2:  b3 ...                  PRINT_RET       "For the eighty-first, the
Sibelius violin concerto, see the Inform technical manual."
2cf27:  41 81 03 00 88          JE              G71,#03 [FALSE] 2cfb2
2cf2c:  e0 07 b1 b0 fb 2b 01 00 CALL_VS         2c6c0 (S1305,#01) -> -(SP)
2cf34:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf3b
2cf39:  9b 02                   RET             #02
2cf3b:  d9 0f b1 b0 fb 3b 00    CALL_2S         2c6c0 (S1306) -> -(SP)
2cf42:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf49
2cf47:  9b 02                   RET             #02
2cf49:  d9 0f b1 b0 fb 3f 00    CALL_2S         2c6c0 (S1307) -> -(SP)
2cf50:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf57
2cf55:  9b 02                   RET             #02
2cf57:  d9 0f b1 b0 fb 42 00    CALL_2S         2c6c0 (S1308) -> -(SP)
2cf5e:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf65
2cf63:  9b 02                   RET             #02
2cf65:  d9 0f b1 b0 fb 45 00    CALL_2S         2c6c0 (S1309) -> -(SP)
2cf6c:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf73
2cf71:  9b 02                   RET             #02
2cf73:  d9 0f b1 b0 fb 4a 00    CALL_2S         2c6c0 (S1310) -> -(SP)
2cf7a:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf81
2cf7f:  9b 02                   RET             #02
2cf81:  d9 0f b1 b0 fb 50 00    CALL_2S         2c6c0 (S1311) -> -(SP)
2cf88:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf8f
2cf8d:  9b 02                   RET             #02
2cf8f:  d9 0f b1 b0 fb 57 00    CALL_2S         2c6c0 (S1312) -> -(SP)
2cf96:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cf9d
2cf9b:  9b 02                   RET             #02
2cf9d:  b3 ...                  PRINT_RET       "Disembodying the entire
universe"
2cfb2:  41 81 04 00 78          JE              G71,#04 [FALSE] 2d02d
2cfb7:  e0 07 b1 b0 fb 5b 01 00 CALL_VS         2c6c0 (S1313,#01) -> -(SP)
2cfbf:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cfc6
2cfc4:  9b 02                   RET             #02
2cfc6:  d9 0f b1 b0 fb 70 00    CALL_2S         2c6c0 (S1314) -> -(SP)
2cfcd:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2cfd4
2cfd2:  9b 02                   RET             #02
2cfd4:  b3 ...                  PRINT_RET       "The vanity mirror does not
reflect rods or things which become rods (unless you're so vain as to polish
it, after which it reflects everything)."
2d02d:  41 81 05 00 5b          JE              G71,#05 [FALSE] 2d08b
2d032:  b3 ...                  PRINT_RET       "Apart from the projector
beam's effects, looking into the ball shows one of twelve little scenes,
corresponding to the twelve main areas of the game."
2d08b:  41 81 06 00 71          JE              G71,#06 [FALSE] 2d0ff
2d090:  b3 ...                  PRINT_RET       "The angel and the demon bear a
surprising resemblance to them.

Sadly, Donald Sutherland died a few days ago (as I write this). I'm slightly
sorry now to have typecast him."
2d0ff:  41 81 07 00 92          JE              G71,#07 [FALSE] 2d194
2d104:  e0 07 b1 b0 fb 7b 01 00 CALL_VS         2c6c0 (S1315,#01) -> -(SP)
2d10c:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d113
2d111:  9b 02                   RET             #02
2d113:  d9 0f b1 b0 fb a8 00    CALL_2S         2c6c0 (S1316) -> -(SP)
2d11a:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d121
2d11f:  9b 02                   RET             #02
2d121:  b3 ...                  PRINT_RET       "The graffiti behind the poster
is the closing words of "The Waste Land", which the Thunder said. "Shantih" is
not, as one inspired player guessed, meant as an anagram of "has hint"."
2d194:  41 81 08 00 85          JE              G71,#08 [FALSE] 2d21c
2d199:  b3 ...                  PRINT_RET       "59. Nine can be carried, plus
another 21 trumps and 29 plainer cards in the pack. I have obviously departed
from the exact constitution of the Tarot pack (with which I am not familiar) to
suit my own convenience."
2d21c:  41 81 09 00 80          JE              G71,#09 [FALSE] 2d29f
2d221:  e0 07 b1 b0 fb bb 01 00 CALL_VS         2c6c0 (S1317,#01) -> -(SP)
2d229:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d230
2d22e:  9b 02                   RET             #02
2d230:  d9 0f b1 b0 fb c3 00    CALL_2S         2c6c0 (S1318) -> -(SP)
2d237:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d23e
2d23c:  9b 02                   RET             #02
2d23e:  d9 0f b1 b0 fb ce 00    CALL_2S         2c6c0 (S1319) -> -(SP)
2d245:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d24c
2d24a:  9b 02                   RET             #02
2d24c:  d9 0f b1 b0 fb d4 00    CALL_2S         2c6c0 (S1320) -> -(SP)
2d253:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d25a
2d258:  9b 02                   RET             #02
2d25a:  d9 0f b1 b0 fb da 00    CALL_2S         2c6c0 (S1321) -> -(SP)
2d261:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d268
2d266:  9b 02                   RET             #02
2d268:  d9 0f b1 b0 fb e2 00    CALL_2S         2c6c0 (S1322) -> -(SP)
2d26f:  41 00 01 00 04          JE              (SP)+,#01 [FALSE] 2d276
2d274:  9b 02                   RET             #02
2d276:  b3 ...                  PRINT_RET       "...and so can the jaws of
Dobbin (Doktor Stein's goat)."
2d29f:  41 81 0a 00 63          JE              G71,#0a [FALSE] 2d305
2d2a4:  b3 ...                  PRINT_RET       "Annoyance of the player: it's
the biggest red herring in the game. It scores -50, the demon advises you to
hang onto it at all times - and it was cursed."
2d305:  b0                      RTRUE

Routine 2d308, 0 locals

2d309:  f9 00 36 5f fb e5 b4 c5 b3 97
                               CALL_VN         d97c (S1323,#b4c5,#b397)
2d313:  b0                      RTRUE

Routine 2d314, 0 locals

2d315:  41 81 00 00 0c          JE              G71,#00 [FALSE] 2d324
2d31a:  cd 4f 80 fc 3b          STORE           G70,S1324
2d31f:  0d 7f 08                STORE           G6f,#08
2d322:  9b 0a                   RET             #0a
2d324:  41 81 01 00 0a          JE              G71,#01 [FALSE] 2d331
2d329:  cd 4f 80 fc 3e          STORE           G70,S1325
2d32e:  0d 7f 14                STORE           G6f,#14
2d331:  41 81 02 00 0a          JE              G71,#02 [FALSE] 2d33e
2d336:  cd 4f 80 fc 45          STORE           G70,S1326
2d33b:  0d 7f 13                STORE           G6f,#13
2d33e:  41 81 03 00 0a          JE              G71,#03 [FALSE] 2d34b
2d343:  cd 4f 80 fc 4c          STORE           G70,S1327
2d348:  0d 7f 14                STORE           G6f,#14
2d34b:  41 81 04 00 0a          JE              G71,#04 [FALSE] 2d358
2d350:  cd 4f 80 fc 56          STORE           G70,S1328
2d355:  0d 7f 16                STORE           G6f,#16
2d358:  41 81 05 00 0a          JE              G71,#05 [FALSE] 2d365
2d35d:  cd 4f 80 fc 5d          STORE           G70,S1329
2d362:  0d 7f 14                STORE           G6f,#14
2d365:  41 81 06 00 0a          JE              G71,#06 [FALSE] 2d372
2d36a:  cd 4f 80 fc 63          STORE           G70,S1330
2d36f:  0d 7f 19                STORE           G6f,#19
2d372:  41 81 07 00 0a          JE              G71,#07 [FALSE] 2d37f
2d377:  cd 4f 80 fc 6c          STORE           G70,S1331
2d37c:  0d 7f 1b                STORE           G6f,#1b
2d37f:  41 81 08 00 0a          JE              G71,#08 [FALSE] 2d38c
2d384:  cd 4f 80 fc 75          STORE           G70,S1332
2d389:  0d 7f 16                STORE           G6f,#16
2d38c:  41 81 09 00 0a          JE              G71,#09 [FALSE] 2d399
2d391:  cd 4f 80 fc 7d          STORE           G70,S1333
2d396:  0d 7f 14                STORE           G6f,#14
2d399:  41 81 0a 00 0a          JE              G71,#0a [FALSE] 2d3a6
2d39e:  cd 4f 80 fc 84          STORE           G70,S1334
2d3a3:  0d 7f 17                STORE           G6f,#17
2d3a6:  b0                      RTRUE

Routine 2d3a8, 0 locals

2d3a9:  41 81 01 00 07          JE              G71,#01 [FALSE] 2d3b3
2d3ae:  8f b3 79                CALL_1N         2cde4
2d3b1:  9b 02                   RET             #02
2d3b3:  41 81 02 00 07          JE              G71,#02 [FALSE] 2d3bd
2d3b8:  8f b4 c2                CALL_1N         2d308
2d3bb:  9b 02                   RET             #02
2d3bd:  9b 02                   RET             #02

Routine 2d3c0, 0 locals

2d3c1:  f9 00 36 5f fc 8b b4 f3 b4 ea
                               CALL_VN         d97c (S1335,#b4f3,#b4ea)
2d3cb:  b0                      RTRUE

Routine 2d3cc, 0 locals

2d3cd:  41 81 00 00 0c          JE              G71,#00 [FALSE] 2d3dc
2d3d2:  cd 4f 80 fc 94          STORE           G70,S1336
2d3d7:  0d 7f 05                STORE           G6f,#05
2d3da:  9b 02                   RET             #02
2d3dc:  41 81 01 00 0a          JE              G71,#01 [FALSE] 2d3e9
2d3e1:  cd 4f 80 fc 96          STORE           G70,S1337
2d3e6:  0d 7f 09                STORE           G6f,#09
2d3e9:  41 81 02 00 0a          JE              G71,#02 [FALSE] 2d3f6
2d3ee:  cd 4f 80 fc 99          STORE           G70,S1338
2d3f3:  0d 7f 08                STORE           G6f,#08
2d3f6:  b0                      RTRUE

Routine 2d3f8, 1 local

2d3f9:  ed 3f ff ff             ERASE_WINDOW    #ffff
2d3fd:  b2 ...                  PRINT           "












"
2d410:  10 00 21 01             LOADB           #00,#21 -> L00
2d414:  41 01 00 00 05          JE              L00,#00 [FALSE] 2d41c
2d419:  0d 01 50                STORE           L00,#50
2d41c:  55 01 32 00             SUB             L00,#32 -> -(SP)
2d420:  57 00 02 01             DIV             (SP)+,#02 -> L00
2d424:  f1 7f 02                SET_TEXT_STYLE  BOLDFACE
2d427:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2d42b:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
2d42f:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
2d434:  2d ff 01                STORE           Gef,L00
2d437:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d448
2d43c:  e5 7f 20                PRINT_CHAR      ' '
2d43f:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d443:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d43c
2d448:  b2 ...                  PRINT           "               Welcome to
CURSES
"
2d465:  f1 7f 00                SET_TEXT_STYLE  ROMAN
2d468:  b2 ...                  PRINT           "

"
2d46d:  2d ff 01                STORE           Gef,L00
2d470:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d481
2d475:  e5 7f 20                PRINT_CHAR      ' '
2d478:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d47c:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d475
2d481:  b2 ...                  PRINT           "         [Please press SPACE
to begin.]
"
2d4a6:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2d4aa:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
2d4b0:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
2d4b5:  e7 7f 03 01             RANDOM          #03 -> L00
2d4b9:  41 01 01 00 2d          JE              L00,#01 [FALSE] 2d4e9
2d4be:  e1 93 c0 00 fc 9c       STOREW          Gb0,#00,S1339
2d4c4:  e1 93 c0 01 fc a4       STOREW          Gb0,#01,S1340
2d4ca:  e1 93 c0 02 fc aa       STOREW          Gb0,#02,S1341
2d4d0:  e1 93 c0 03 fc b1       STOREW          Gb0,#03,S1342
2d4d6:  e1 97 c0 04 00          STOREW          Gb0,#04,#00
2d4db:  e1 93 c0 05 fc b9       STOREW          Gb0,#05,S1343
2d4e1:  e0 16 b6 33 06 31 c0 ff CALL_VS         2d8cc (#06,#31,Gb0) -> Gef
2d4e9:  41 01 02 00 27          JE              L00,#02 [FALSE] 2d513
2d4ee:  e1 93 c0 00 fc c4       STOREW          Gb0,#00,S1344
2d4f4:  e1 93 c0 01 fc ca       STOREW          Gb0,#01,S1345
2d4fa:  e1 97 c0 02 00          STOREW          Gb0,#02,#00
2d4ff:  e1 93 c0 03 fc cf       STOREW          Gb0,#03,S1346
2d505:  e1 93 c0 04 fc d7       STOREW          Gb0,#04,S1347
2d50b:  e0 16 b6 33 05 1f c0 ff CALL_VS         2d8cc (#05,#1f,Gb0) -> Gef
2d513:  41 01 03 00 27          JE              L00,#03 [FALSE] 2d53d
2d518:  e1 93 c0 00 fc dc       STOREW          Gb0,#00,S1348
2d51e:  e1 93 c0 01 fc e3       STOREW          Gb0,#01,S1349
2d524:  e1 93 c0 02 fc eb       STOREW          Gb0,#02,S1350
2d52a:  e1 97 c0 03 00          STOREW          Gb0,#03,#00
2d52f:  e1 93 c0 04 fc ee       STOREW          Gb0,#04,S1351
2d535:  e0 16 b6 33 05 2c c0 ff CALL_VS         2d8cc (#05,#2c,Gb0) -> Gef
2d53d:  f6 57 01 00 00 01       READ_CHAR       #01,#00,0 -> L00
2d543:  c1 95 01 20 0a 0d 3f f4 JE              L00,#20,#0a,#0d [FALSE] 2d53d
2d54b:  ed 3f ff ff             ERASE_WINDOW    #ffff
2d54f:  b0                      RTRUE

Routine 2d550, 0 locals

2d551:  b0                      RTRUE

Routine 2d554, 2 locals

2d555:  10 00 21 01             LOADB           #00,#21 -> L00
2d559:  41 01 00 00 05          JE              L00,#00 [FALSE] 2d561
2d55e:  0d 01 50                STORE           L00,#50
2d561:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2d565:  28 02 00 00             OR              #02,(SP)+ -> -(SP)
2d569:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
2d56e:  41 7d 01 00 08          JE              G6d,#01 [FALSE] 2d579
2d573:  ea 7f 02                SPLIT_WINDOW    #02
2d576:  8c 00 05                JUMP            2d57c
2d579:  ea 7f 01                SPLIT_WINDOW    #01
2d57c:  f2 7f 00                BUFFER_MODE     #00
2d57f:  eb 7f 01                SET_WINDOW      #01
2d582:  f1 7f 01                SET_TEXT_STYLE  REVERSE
2d585:  51 11 1e 00             GET_PROP        G01,#1e -> -(SP)
2d589:  61 c5 00 80 05          JE              Gb5,(SP)+ [TRUE] 2d591
2d58e:  0d 90 01                STORE           G80,#01
2d591:  51 11 1e c5             GET_PROP        G01,#1e -> Gb5
2d595:  43 1d 00 80 07          JG              G0d,#00 [TRUE] 2d59f
2d59a:  41 7c 01 00 05          JE              G6c,#01 [FALSE] 2d5a2
2d59f:  0d 90 01                STORE           G80,#01
2d5a2:  41 90 01 00 37          JE              G80,#01 [FALSE] 2d5dc
2d5a7:  ef 5f 01 01             SET_CURSOR      #01,#01
2d5ab:  2d ff 01                STORE           Gef,L00
2d5ae:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d5bf
2d5b3:  e5 7f 20                PRINT_CHAR      ' '
2d5b6:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d5ba:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d5b3
2d5bf:  41 7d 01 00 1a          JE              G6d,#01 [FALSE] 2d5dc
2d5c4:  ef 5f 02 01             SET_CURSOR      #02,#01
2d5c8:  2d ff 01                STORE           Gef,L00
2d5cb:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d5dc
2d5d0:  e5 7f 20                PRINT_CHAR      ' '
2d5d3:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d5d7:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d5d0
2d5dc:  41 90 01 80 07          JE              G80,#01 [TRUE] 2d5e6
2d5e1:  61 92 11 80 2b          JE              G82,G01 [TRUE] 2d60f
2d5e6:  ef 5f 01 02             SET_CURSOR      #01,#02
2d5ea:  0d 91 01                STORE           G81,#01
2d5ed:  da 2f 38 57 11          CALL_2N         e15c (G01)
2d5f2:  0d 91 00                STORE           G81,#00
2d5f5:  0d ff 14                STORE           Gef,#14
2d5f8:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d609
2d5fd:  e5 7f 20                PRINT_CHAR      ' '
2d600:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d604:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d5fd
2d609:  2d 92 11                STORE           G82,G01
2d60c:  0d 90 01                STORE           G80,#01
2d60f:  41 7d 00 00 1c          JE              G6d,#00 [FALSE] 2d62e
2d614:  55 01 0f 02             SUB             L00,#0f -> L01
2d618:  ef 6f 01 02             SET_CURSOR      #01,L01
2d61c:  2d 94 17                STORE           G84,G07
2d61f:  e6 bf 17                PRINT_NUM       G07
2d622:  b2 ...                  PRINT           "/"
2d625:  e6 bf 18                PRINT_NUM       G08
2d628:  b2 ...                  PRINT           "   "
2d62b:  8c 02 6e                JUMP            2d89a
2d62e:  41 90 01 00 27          JE              G80,#01 [FALSE] 2d658
2d633:  55 01 23 02             SUB             L00,#23 -> L01
2d637:  ef 6f 01 02             SET_CURSOR      #01,L01
2d63b:  43 1d 00 00 10          JG              G0d,#00 [FALSE] 2d64e
2d640:  b2 ...                  PRINT           "Final score: "
2d64b:  8c 00 09                JUMP            2d655
2d64e:  b2 ...                  PRINT           "Score: "
2d655:  8c 00 0a                JUMP            2d660
2d658:  55 01 1c 02             SUB             L00,#1c -> L01
2d65c:  ef 6f 01 02             SET_CURSOR      #01,L01
2d660:  41 90 01 80 07          JE              G80,#01 [TRUE] 2d66a
2d665:  61 94 17 80 11          JE              G84,G07 [TRUE] 2d679
2d66a:  e6 bf 17                PRINT_NUM       G07
2d66d:  43 1d 00 00 09          JG              G0d,#00 [FALSE] 2d679
2d672:  b2 ...                  PRINT           "/550"
2d679:  ef 6f 02 02             SET_CURSOR      #02,L01
2d67d:  41 90 01 00 09          JE              G80,#01 [FALSE] 2d689
2d682:  b2 ...                  PRINT           "Turns: "
2d689:  e6 bf 18                PRINT_NUM       G08
2d68c:  41 90 01 80 07          JE              G80,#01 [TRUE] 2d696
2d691:  61 93 8c 82 06          JE              G83,G7c [TRUE] 2d89a
2d696:  51 11 1e 8c             GET_PROP        G01,#1e -> G7c
2d69a:  55 01 14 02             SUB             L00,#14 -> L01
2d69e:  ef 6f 02 02             SET_CURSOR      #02,L01
2d6a2:  41 8c 01 00 13          JE              G7c,#01 [FALSE] 2d6b8
2d6a7:  b2 ...                  PRINT           "    June 3rd, 1993"
2d6b8:  41 8c 02 00 13          JE              G7c,#02 [FALSE] 2d6ce
2d6bd:  b2 ...                  PRINT           " October 5th, 1922"
2d6ce:  41 8c 03 00 15          JE              G7c,#03 [FALSE] 2d6e6
2d6d3:  b2 ...                  PRINT           "October 31st, 1988"
2d6e6:  41 8c 05 00 13          JE              G7c,#05 [FALSE] 2d6fc
2d6eb:  b2 ...                  PRINT           "    June 3rd, 1993"
2d6fc:  41 8c 06 00 15          JE              G7c,#06 [FALSE] 2d714
2d701:  b2 ...                  PRINT           "  March 14th, 1808"
2d714:  41 8c 07 00 11          JE              G7c,#07 [FALSE] 2d728
2d719:  b2 ...                  PRINT           "  Sixth century AD"
2d728:  41 8c 09 00 13          JE              G7c,#09 [FALSE] 2d73e
2d72d:  b2 ...                  PRINT           "    June 3rd, 1993"
2d73e:  41 8c 0b 00 13          JE              G7c,#0b [FALSE] 2d754
2d743:  b2 ...                  PRINT           "  Winter of 275 BC"
2d754:  41 8c 0c 00 13          JE              G7c,#0c [FALSE] 2d76a
2d759:  b2 ...                  PRINT           "    June 3rd, 1993"
2d76a:  c1 95 8c 0a 0d 04 80 07 JE              G7c,#0a,#0d,#04 [TRUE] 2d777
2d772:  41 8c 0e 00 0f          JE              G7c,#0e [FALSE] 2d784
2d777:  b2 ...                  PRINT           "                  "
2d784:  ef 5f 02 02             SET_CURSOR      #02,#02
2d788:  41 8c 01 00 11          JE              G7c,#01 [FALSE] 2d79c
2d78d:  b2 ...                  PRINT           "(in Meldrew Hall)       "
2d79c:  41 8c 02 00 15          JE              G7c,#02 [FALSE] 2d7b4
2d7a1:  b2 ...                  PRINT           "(in the Unreal City)    "
2d7b4:  41 8c 03 00 15          JE              G7c,#03 [FALSE] 2d7cc
2d7b9:  b2 ...                  PRINT           "(Hamburg by night)      "
2d7cc:  41 8c 04 00 13          JE              G7c,#04 [FALSE] 2d7e2
2d7d1:  b2 ...                  PRINT           "(in the Tarot box)      "
2d7e2:  41 8c 05 00 13          JE              G7c,#05 [FALSE] 2d7f8
2d7e7:  b2 ...                  PRINT           "(in the gardens)        "
2d7f8:  41 8c 06 00 13          JE              G7c,#06 [FALSE] 2d80e
2d7fd:  b2 ...                  PRINT           "(in the gardens)        "
2d80e:  41 8c 07 00 13          JE              G7c,#07 [FALSE] 2d824
2d813:  b2 ...                  PRINT           "(in the Master Game)    "
2d824:  c1 97 8c 08 0a 00 15    JE              G7c,#08,#0a [FALSE] 2d83e
2d82b:  b2 ...                  PRINT           "(dreaming?)             "
2d83e:  41 8c 09 00 13          JE              G7c,#09 [FALSE] 2d854
2d843:  b2 ...                  PRINT           "(in the catacombs)      "
2d854:  41 8c 0b 00 15          JE              G7c,#0b [FALSE] 2d86c
2d859:  b2 ...                  PRINT           "(in Alexandria)         "
2d86c:  41 8c 0c 00 13          JE              G7c,#0c [FALSE] 2d882
2d871:  b2 ...                  PRINT           "(northeast of the House)"
2d882:  c1 97 8c 0d 0e 00 13    JE              G7c,#0d,#0e [FALSE] 2d89a
2d889:  b2 ...                  PRINT           "                        "
2d89a:  f1 7f 00                SET_TEXT_STYLE  ROMAN
2d89d:  f2 7f 01                BUFFER_MODE     #01
2d8a0:  ef 5f 01 01             SET_CURSOR      #01,#01
2d8a4:  eb 7f 00                SET_WINDOW      #00
2d8a7:  0f 00 08 00             LOADW           #00,#08 -> -(SP)
2d8ab:  c9 2f ff fd 00 00       AND             #fffd,(SP)+ -> -(SP)
2d8b1:  e1 5b 00 08 00          STOREW          #00,#08,(SP)+
2d8b6:  0d 90 00                STORE           G80,#00
2d8b9:  c1 8f bf ff ff 80 0c    JE              Gaf,#ffff [TRUE] 2d8ca
2d8c0:  da 2f 97 aa bf          CALL_2N         25ea8 (Gaf)
2d8c5:  cd 4f bf ff ff          STORE           Gaf,#ffff
2d8ca:  b0                      RTRUE

Routine 2d8cc, 8 locals

2d8cd:  54 01 06 00             ADD             L00,#06 -> -(SP)
2d8d1:  ea bf 00                SPLIT_WINDOW    (SP)+
2d8d4:  eb 7f 01                SET_WINDOW      #01
2d8d7:  10 00 21 04             LOADB           #00,#21 -> L03
2d8db:  41 04 00 00 05          JE              L03,#00 [FALSE] 2d8e3
2d8e0:  0d 04 50                STORE           L03,#50
2d8e3:  75 04 02 00             SUB             L03,L01 -> -(SP)
2d8e7:  57 00 02 05             DIV             (SP)+,#02 -> L04
2d8eb:  f1 7f 01                SET_TEXT_STYLE  REVERSE
2d8ee:  55 05 02 04             SUB             L04,#02 -> L03
2d8f2:  0d 06 05                STORE           L05,#05
2d8f5:  0d 07 00                STORE           L06,#00
2d8f8:  ef 6f 04 04             SET_CURSOR      #04,L03
2d8fc:  54 02 04 00             ADD             L01,#04 -> -(SP)
2d900:  2d ff 00                STORE           Gef,(SP)+
2d903:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d914
2d908:  e5 7f 20                PRINT_CHAR      ' '
2d90b:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d90f:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d908
2d914:  ef af 06 04             SET_CURSOR      L05,L03
2d918:  54 02 04 00             ADD             L01,#04 -> -(SP)
2d91c:  2d ff 00                STORE           Gef,(SP)+
2d91f:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d930
2d924:  e5 7f 20                PRINT_CHAR      ' '
2d927:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d92b:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d924
2d930:  ef af 06 05             SET_CURSOR      L05,L04
2d934:  6f 03 07 08             LOADW           L02,L06 -> L07
2d938:  41 08 00 80 04          JE              L07,#00 [TRUE] 2d93f
2d93d:  ad 08                   PRINT_PADDR     L07
2d93f:  95 06                   INC             L05
2d941:  95 07                   INC             L06
2d943:  61 07 01 3f ce          JE              L06,L00 [FALSE] 2d914
2d948:  ef af 06 04             SET_CURSOR      L05,L03
2d94c:  54 02 04 00             ADD             L01,#04 -> -(SP)
2d950:  2d ff 00                STORE           Gef,(SP)+
2d953:  42 ff 01 80 0e          JL              Gef,#01 [TRUE] 2d964
2d958:  e5 7f 20                PRINT_CHAR      ' '
2d95b:  55 ff 01 ff             SUB             Gef,#01 -> Gef
2d95f:  41 ff 00 3f f6          JE              Gef,#00 [FALSE] 2d958
2d964:  f2 7f 01                BUFFER_MODE     #01
2d967:  f1 7f 00                SET_TEXT_STYLE  ROMAN
2d96a:  eb 7f 00                SET_WINDOW      #00
2d96d:  ea 7f 01                SPLIT_WINDOW    #01
2d970:  f3 3f ff ff             OUTPUT_STREAM   #ffff
2d974:  b2 ...                  PRINT           "[ "
2d979:  0d 07 00                STORE           L06,#00
2d97c:  6f 03 07 04             LOADW           L02,L06 -> L03
2d980:  41 04 00 80 04          JE              L03,#00 [TRUE] 2d987
2d985:  ad 04                   PRINT_PADDR     L03
2d987:  95 07                   INC             L06
2d989:  61 07 01 00 0c          JE              L06,L00 [FALSE] 2d998
2d98e:  b2 ...                  PRINT           "]

"
2d995:  8c 00 0a                JUMP            2d9a0
2d998:  b2 ...                  PRINT           "
  "
2d99d:  8c ff de                JUMP            2d97c
2d9a0:  f3 7f 01                OUTPUT_STREAM   OUTPUT_ENABLE
2d9a3:  b0                      RTRUE

[End of code at 2d9a4]

[Start of text at 2d9a4]

2d9a4: S001 "CURSES"
2d9ac: S002 "
An Interactive Diversion
Copyright (c) 1993, 1994, 1995 by Graham Nelson.
"
2d9f0: S003 "951024"
2d9f8: S004 "5/12"
2da00: S005 "a"
2da04: S006 "You can't go that way."
2da14: S007 "the"
2da18: S008 "the"
2da1c: S009 "the"
2da20: S010 "the"
2da24: S011 "the"
2da28: S012 "the"
2da2c: S013 "the"
2da30: S014 "the"
2da34: S015 "the"
2da38: S016 "the"
2da3c: S017 "the"
2da40: S018 "the"
2da44: S019 "Darkness"
2da4c: S020 "It is pitch dark, and you can't see a thing."
2da64: S021 "As good-looking as ever."
2da78: S022 "Nameless item"
2da84: S023 "your former self"
2da90: S024 "a"
2da94: S025 "featureless mahogany rods"
2daa4: S026 "the"
2daa8: S027 "Astonishing!  One of the three high Rods!"
2dac4: S028 "the"
2dac8: S029 "This is rather dangerous, I'm afraid. Use only on vegetative
matter."
2daf4: S030 "Well, that's not very useful, is it?  I'd go on strike if I were
you."
2db24: S031 "It has no horticultural application."
2db3c: S032 "a"
2db40: S033 "Well, where might you have seen infinity before?"
2db60: S034 "Perhaps you should look up "husbandry" in a dictionary."
2db84: S035 "Bronze is the key here. Have you seen any other bronze anywhere?"
2dbac: S036 "Far, far too dangerous. The age of martyrs in the church is long
gone, you know."
2dbe0: S037 "Well, if there's such a thing as luck, maybe this would help."
2dc08: S038 "a"
2dc0c: S039 "Use only at heated moments, when affairs are delicately balanced."
2dc38: S040 "the"
2dc3c: S041 "the"
2dc40: S042 "The High Rods of Life, Love and Death lean together in a pyramid
at the top of the steep slope, balanced rather delicately."
2dc90: S043 "A treasure in every sense, the orb pulsates with golden radiance."
2dcbc: S044 "A blooming shrub, gay with red flowers, is being nursed in a wide
round tub under the wall here."
2dcf4: S045 "the"
2dcf8: S046 "Tarot cards"
2dd00: S047 "   Things to do:

   1. Find map
   2. Phone airport to check parking
   3. Health forms...

and so on. Let's face it, 1. is more enticing than the rest put together."
2dd74: S048 "Immensely useful, that."
2dd88: S049 "an"
2dd8c: S050 "The torch has a battery compartment which can be reached by
opening it up."
2ddb8: S051 "Pity you can't change the batteries."
2ddd0: S052 "an"
2ddd4: S053 "Oatmeal covered with plain chocolate, since you ask."
2ddf8: S054 "I bet you didn't know that chocolate biscuit manufacturers are
damned in perpetuity?  I'm afraid the chapters about that in the Old Testaments
were lost, though, and now no-one can remember why."
2de74: S055 "The attics, full of low beams and awkward angles, begin here in a
relatively tidy area which extends north, south and east. The wooden
floorboards seem fairly sound, just as well considering how heavy all these
teachests are. But the old wiring went years ago, and there's no electric
light."
2df24: S056 "A hinged trapdoor in the floor stands open, and light streams in
from below."
2df54: S057 "There is a closed trapdoor in the middle of the floor."
2df74: S058 "some"
2df78: S059 "Open-topped. You could easily look inside, if so minded."
2dfa0: S060 "the"
2dfa4: S061 "It was to have been the Honourable Peter Meldrew's life's work, a
two-volume edition giving the definitive family history. Unfortunately,
although he claimed to have hunted for evidence to the ends of the earth, he
never could find a detail he wanted for volume I, and it was never published.
Somehow, this typifies your family, and consulting this worthy book about your
ancestors makes you realise what an uncanny knack they had for never quite
achieving anything.

Unless, of course, you count having an awful lot of children. So many Meldrews
are listed here that you'll have to look them up individually."
2e114: S062 "What a boring old book!  There's nobody worth looking up."
2e138: S063 "an"
2e13c: S064 "A graceful lady's box, bearing the initials A. M. and engraved
with a drawing of what seems to be a rabbit's foot."
2e184: S065 "In one corner is a jewellery box, which had previously been hidden
by the open trapdoor."
2e1bc: S066 "Try investigating the world of the romantic novel, out on the
balconies of life."
2e1ec: S067 "Actually a four-leafed sprig of herb paris (Paris Quadrifolia) in
the shape of a fourfold true-love knot. But that was good enough for Alison."
2e24c: S068 "Not much use as it is, is it?"
2e260: S069 "Once upon a time, servants in great houses lived in awful little
crevices and excuses for rooms like this one. They must have been in permanent
danger of suffocation, for there are no windows and only a doorway to the west.
A bed is still kept here, and the sight of it brings on drowsiness in all this
warm stuffy air. All you want to do is curl up and sleep."
2e33c: S070 "Hobson's"
2e344: S071 "Lots of naughty words in that one."
2e35c: S072 ""Hobson's: A Choice Classical Dictionary". It claims to have
numerous entries."
2e394: S073 "There's a little book on the tiny bedside table."
2e3b4: S074 "an"
2e3b8: S075 "This is an old Biblioll College scarf, made by Dunn and Co.
(naturally). It has four stripes: royal blue, emerald, dark grey and scarlet."
2e414: S076 "An old striped scarf hangs up behind the doorway."
2e434: S077 "The very height of fashion, if you ignore the colours and wear it
regardless."
2e464: S078 "A tight door stands open in the northern wall, giving onto the
servants' staircase."
2e494: S079 "Scruffy old furniture is piled up here: armchairs with springs
coming out, umbrella stands, a badly scratched cupboard, a table with one leg
missing... You try to remember why you keep all this rubbish, and fail. Anyway
the attic continues to the southeast."
2e534: S080 "The attic turns from north to southeast here."
2e550: S081 "Nothing there, but that cupboard looks interesting."
2e570: S082 "It has a calm, soothing effect."
2e584: S083 "A patent "Harrison" bird-whistle, according to the slogan on one
side."
2e5b4: S084 "Shame the wrapping paper won't come off."
2e5cc: S085 "Far too nice to give to anybody else. In fact..."
2e5f0: S086 "some"
2e5f4: S087 "The reindeer have enormous significance."
2e610: S088 "It is addressed to the house, and postmarked 1963, but has no
message. Odd, that."
2e644: S089 "There's no message there to read."
2e658: S090 "These bottles can even survive long drops, so perhaps you should
try fire."
2e688: S091 ""Antidote only: no preventative effect.""
2e6a4: S092 "This drug is for fun, it isn't an antidote. And it tastes
gorgeous..."
2e6d4: S093 "The air is dusty and warm, almost making you choke in this rather
empty area. The attic turns from northwest to east, and there is also a tight
doorway leading west. A short flight of wooden steps leads down and to the
south."
2e758: S094 "(Aunt Jemima has two cats, Jane and Austin, but she finds Austin
especially annoying - about the only point you have ever agreed with her
about.)

Austin, a ginger with a long tail and an uncompromisingly lazy expression, is
the kind of cat who hates being pushed around."
2e7fc: S095 "Austin, your incorrigible ginger cat, lounges around here."
2e824: S096 "This is a roughly-furnished photographer's dark room, used by your
grandfather years ago. There's nothing much here now, since you threw the
chemicals out in case the children found them."
2e894: S097 "The only doorway is back east."
2e8a8: S098 "the old"
2e8ac: S099 "Mounted on a plaque is an old sepia photograph of a man."
2e8d0: S100 "The photograph is one of the very early ones which looks as if it
was taken in the dark because the chemicals have gradually oxidised. The poor
man in the frame (Mr Roger Meldrew, Esquire) looks as if he was propped up by a
big clamp to hold him still for five minutes, and that's because he was."
2e97c: S101 "It is attached to the ceiling."
2e98c: S102 "You bump your head on the cord hanging from the ceiling, for the
umpteenth time."
2e9b8: S103 "Things do look subtly different in this light."
2e9d4: S104 "When you can get this working, perhaps you should take it
somewhere prominent."
2ea04: S105 "The kind of black box which often sits on top of a camera, used to
illuminate otherwise dim scenes. It has an openable compartment on the side,
with room left inside for a battery and a timer mechanism (which seem to be
optional extras)."
2ea90: S106 "A rather more modern photographer's flash lies on a shelf to one
side."
2eac0: S107 "Once upon a time, this small circular room had a dome and a
telescope, but it leaked dreadfully and so now there's a proper roof.

A circular mural painted with the signs of the zodiac is interrupted by a short
flight of stairs leading up to the north, a smoke detector, a west doorway to a
shadowy alcove and the continuation of the stairs down and to the south."
2eb98: S108 "It isn't at all clear on what principle the detector works. It
looks like a smoke detector, certainly. But you just left the contractors to
sort out all those boring fire prevention matters for themselves.

They were a slap-dash firm, too, from what you remember. They put the little
white thing high up, right in the middle of the Capricorn scene on the mural.
And even if there was a fire, chances are it would be useless."
2ec94: S109 "Mounted on the old telescope stand is what looks like a solid
glass ball."
2ecc0: S110 "Once upon a time, the house library was used as a gun-room, and
all the unwanted books kept up here. Now this is just another awkward cranny,
with a water tank and some pipes in one corner which are something to do with
the central heating."
2ed50: S111 "From here, you can only squeeze back east to the observatory."
2ed74: S112 "The joint on the water pipe looks none too sturdy."
2ed90: S113 "Don't bother reading or thinking about it. Nothing to do with your
family."
2edc0: S114 "A romantic novel and a book of poetry are the only books left, and
they're propping up a water pipe near a rather loose joint - it really is time
you called a plumber to sort this one out."
2ee30: S115 ""Coronets for the Cotton Girl", by Miss Marie Swelldon, published
London, 1912. It's all about the happy-go-lucky daughter of a Yorkshire mill
owner and her adventures marrying into the aristocracy."
2eeb8: S116 "My my, a golden age for clear, simple poetry. At last, an end to
the dreary obscurity of Tennyson, Kipling and Hardy."
2ef04: S117 "This is where you ought to have left the wretched map, in the
family lumber-room of souvenirs and holiday snaps. You checked it thoroughly
earlier, and can't bear the thought of searching it all again. A slide
projector is aimed at the whitewashed south wall, one of the outside walls of
the house. The only way to go is back up to the observatory."
2efd0: S118 "It has an on/off switch on the side, and a slot for holding
whatever is to be projected. There is also a little dial on the back, perhaps
for the focus."
2f028: S119 "some"
2f02c: S120 "That is a difficult puzzle, yes."
2f044: S121 "In the north wall is an open cupboard door, large enough to step
inside."
2f070: S122 "In the north wall is an intriguing closed cupboard door."
2f094: S123 "The winding attic comes to a dead end here, and particularly dirty
it is too, what with soot everywhere from the broken old chimney sweeping
gear."
2f0ec: S124 "It might be handy, if only it could carry anything."
2f110: S125 "Great Scott!  That old canvas rucksack must be the very one your
famous ancestor, the African explorer Ebenezer Meldrew, brought back from the
Zambezi Expedition of 1882!"
2f17c: S126 "On second thoughts, now you look at more closely, it seems to be
the rucksack you bought to go to Paris with five years ago."
2f1c8: S127 "A secret door stands open in the south wall!"
2f1e4: S128 "The secret door is closed."
2f1f4: S129 "A hatchway in the east wall, onto an old iron fire escape, is open
and light floods in through it. (Some fool must have set the alarm off.)"
2f24c: S130 "This is a surprisingly spacious cupboard, which you can't recall
ever visiting before today. You really ought to use this convenient empty room
for something..."
2f2ac: S131 "Carry this with you everywhere you go."
2f2c4: S132 "A large painting of Mad Isaac Meldrewe, your eighteenth-century
ancestor, is propped up against the west wall."
2f308: S133 "It used to hang in the downstairs landing, and the red, deranged
eyes annoyed everybody who passed. Then Aunt Jemima picked up the ridiculous
idea that it was by Sir Joshua Reynolds and had it valued. Happily it wasn't
and, to cut a long story long, it ended up here."
2f3a8: S134 "There is a big iron fireplace in the west wall."
2f3c4: S135 "The medicine bottle, alas, was undamaged by the fall down the
chimney."
2f3f0: S136 "The skylight above is open, and the sky does indeed light the
room."
2f418: S137 "Above you is a blacked-out skylight with a crank handle."
2f43c: S138 "It was painted out black during the first wave of Zeppelin air
raids in World War I. This is completely irrelevant, but you did ask."
2f490: S139 "The cork filters have gone. It's useless now."
2f4b0: S140 "This is a recessed area of the roof, open to the skies but
screened from below. There used to be a flagpole here, but not any more. An
open skylight leads down, and a fairly safe catwalk leads northwest. However,
the red-tiled roof is vertiginous and you have vertigo, which makes it
especially annoying that there's an odd little balcony too far away to the
south."
2f58c: S141 "William Wordsworth once described poetry as emotion recollected in
tranquillity. If so, hospitals must be full of people turning out verses about
what it was like to fall off the roof of a high building. Perhaps it might be
better not to join them."
2f628: S142 "The old crenellated battlements of the house. An Englishman's home
is, of course, his castle, but Meldrew Hall never saw much fighting and these
military-looking features were just a seventeenth-century fashion. They also
weren't intended for standing on, and the only safe way to proceed is back
southeast.

It is peculiarly cold here."
2f6f8: S143 "The rooftop is far too dangerous in that direction."
2f718: S144 "Unfortunately, what you need this for is up in the clouds."
2f73c: S145 "He is dressed in a grey shadow of Georgian finery."
2f760: S146 "the ghost of"
2f768: S147 "The chimney is cramped, sooty, unpleasant and has no floor to
speak of, so you are held up only by jamming your feet against the walls. To
the east, through the fireplace, is the cupboard."
2f7dc: S148 "Not a chance!"
2f7e8: S149 "Wedged loosely in beside you is a sooty old stick."
2f808: S150 "It's exactly what it seems."
2f81c: S151 "Good heavens, so the house has a priest hole after all!  It was
always a family legend but nobody seemed to know quite where it was. Apart from
a cross painted on one wall and a padded floor (to absorb the noise), this
spartan cranny is featureless. Nevertheless there is a spooky air of the
supernatural about... A narrow crawl leads up into the chimney."
2f8f8: S152 "An open hatch-door in the wall at floor level reveals a chute
leading down into darkness."
2f934: S153 "Low down on one wall is a little hatch door, which if it were open
would be large enough to enter."
2f970: S154 "Perhaps the attic key might unlock it?  It does look modern
compared to everything else here."
2f9a8: S155 "an"
2f9ac: S156 "The really good research was in his earlier years."
2f9cc: S157 "The dust and grime on the floor almost obscures an ancient prayer
book."
2f9f8: S158 "Despite appearances, this is not a prayer book after all but is
Mad Isaac's diary of supernatural investigations!  The script is cursive and
cursory as he rambles on through all those theories about the Curse. There's so
much of it that you'd better just look up particular years."
2faa8: S159 "There's just the secret north door, unless of course you count the
windows."
2fad4: S160 "Black-latticed windows open on a beautiful summer's day."
2fafc: S161 "Blue sky can be seen through south-facing windows, latticed with
black lead and shut tight."
2fb34: S162 "Evans is content once again."
2fb48: S163 "There is a long vanity mirror beside the bed."
2fb64: S164 "A tiny balcony around Miss Alison's windows, offering fresh air,
blue skies and a magnificent view over the gardens down to the droning motorway
in the distance. The roof is too perilous to scale even if you had a good
reason (which you haven't), so you had better go back north."
2fc10: S165 "The rooftop is far too dangerous in that direction."
2fc30: S166 "You look down on a low, bare window-sill."
2fc4c: S167 "The balcony is only a foot or so beneath the window-sill, and only
about four feet square."
2fc84: S168 "Gold and lead are naturally related, so you want to find a lead
box to open."
2fcb4: S169 "This small cavity at the north end of the attic once housed all
manner of home-made wine paraphernalia, now lost and unlamented. Steps,
provided with a good strong banister rail, lead down and to the west, and the
banister rail continues along a passage east."
2fd4c: S170 "Faded ink on the label reads: Elderberry '63."
2fd6c: S171 "It's provided for your torch, and not for anything else."
2fd90: S172 "On the side is the word "Achtung"."
2fda8: S173 "Purely decorative."
2fdb8: S174 "The good news is that it has excellent grid references, which are
easy to look up. The bad news is that it is a map of central Hamburg."
2fe08: S175 "This used to be called the Conservatory, before Aunt Jemima took
it over to potter about with plants, painting and indeed (on occasion) pottery.
She has filled the place with objets trouves and bric-a-brac, and hung up a
home-made calendar of watercolours. Even the old airing cupboard to the south
is cluttered.

An open doorway leads back southwest onto the upstairs landing, and you can
hear the chaotic noise of suitcases being manhandled about - good thing
nobody's seen you. A narrow staircase leads up and to the east into the attic.

Jemima herself seems to be in the potting room to the west."
2ff68: S176 "A space about six feet square. The old drying racks now contain
odd ceramic sculptures almost but not quite unrecognisable as coffee mugs. One
corner is filled with an enormous pile of tie-dyed sheets, from Aunt Jemima's
infamous Sixties Revival period of last October."
30010: S177 "The only way to go from here is back north."
30028: S178 "a synthesized"
30034: S179 "a light orchestra"
30040: S180 "a choral"
30048: S181 "a snare drum and strings"
30058: S182 "a country-and-western"
30068: S183 "a one-finger piano"
30074: S184 "a Welsh coal-miners' Eisteddfod choir"
30090: S185 "a Hammond organ"
3009c: S186 "an easy-listening"
300a8: S187 "a "lite-n-mellow""
300b8: S188 "a jazz trio"
300c0: S189 "a Big Band"
300c8: S190 " version of "
300d0: S191 " rendition of "
300d8: S192 " travesty of "
300e4: S193 " arrangement of "
300f0: S194 " transcription of "
300fc: S195 "Queen's "I Want To Break Free"."
30118: S196 "Bach's "Air on a G-string"."
3012c: S197 "Mozart's "Musical Joke"."
30140: S198 "Stockhausen's "Piano Pieces I-IX"."
3015c: S199 "Beethoven's "Moonlight Sonata"."
30174: S200 "Summer from Vivaldi's "Four Seasons"."
30190: S201 "the especially slow movement of Gorecki's "Symphony no. 3"."
301b8: S202 "Spandau Ballet's "Gold"."
301cc: S203 "Duran Duran's "Is There Something I Should Know?"."
301f4: S204 "Derek and the Dominos' "Layla"."
3020c: S205 "Don McLean's "American Pie"."
30224: S206 "Chopin's "Nocturne no. 1"."
30238: S207 "Oxygene by Jean-Michel Jarre."
30250: S208 "the Beatles' "Yellow Submarine"."
3026c: S209 "the Beatles' "She Loves You"."
30284: S210 "the Beatles' "Hey Jude"."
3029c: S211 "the Beatles' "Lucy in the Sky with Diamonds"."
302bc: S212 "Queen's "Bohemian Rhapsody"."
302d4: S213 "the Beatles' "Magical Mystery Tour"."
302f4: S214 "the Beatles' "I Am The Walrus"."
30310: S215 "Bill Haley's "Rock Around the Clock"."
3032c: S216 "the old Elvis Presley number "Jailhouse Rock"."
30350: S217 "the old Elvis Presley number "Blue Suede Shoes"."
30378: S218 "ELO's "Mr Blue Sky"."
3038c: S219 "Bach's Toccata in D minor for organ."
303a8: S220 "ABC's "The Look of Love"."
303bc: S221 "the Beach Boys' "California Girls"."
303dc: S222 "the Stranglers' "Golden Brown"."
303f8: S223 "Genesis' "That's All"."
3040c: S224 "Grieg's piano concerto."
3041c: S225 "Bruce Springsteen's "Born in the USA"."
30438: S226 "Beethoven's Symphony no. 5."
30450: S227 "Beethoven's "Emperor" piano concerto."
3046c: S228 "Mozart's "Elvira Madigan" concerto."
30484: S229 "Bach's Brandenburg Concerto no. 5."
304a0: S230 "Deep Purple's "Smoke On The Water"."
304bc: S231 "Faure's Requiem."
304cc: S232 "Tchaikovsky's "1812 Overture"."
304e4: S233 "the Swan from Saint-Saens' "Carnival of the Animals"."
3050c: S234 "the "O Fortuna" from Carl Orff's "Carmina Burana"."
30534: S235 "Led Zeppelin's "Stairway to Heaven"."
30550: S236 "the Bugs Bunny theme tune."
30564: S237 "Strauss' "Blue Danube" waltz."
3057c: S238 "the Star Wars theme tune."
30590: S239 "the Star Trek theme tune."
305a4: S240 "the Dallas theme tune."
305b4: S241 "Wagner's "Ride of the Valkyries" overture."
305d0: S242 "Dire Straits' "Money For Nothing"."
305ec: S243 "Dire Straits' "Brothers In Arms"."
30608: S244 "Dire Straits' "Tunnel Of Love"."
30624: S245 "Wham's "Wake Me Up Before You Go-Go"."
30644: S246 "something abysmal by Leo Sayer."
3065c: S247 "Lionel Richie's "Hello"."
30670: S248 "Hot Chocolate's "Happy Birthday"."
3068c: S249 "Abba's "Mama Mia"."
3069c: S250 "Abba's "Knowing Me, Knowing You"."
306b4: S251 "Barry Manilow's "I Write The Songs"."
306d0: S252 "Ian Dury and the Blockheads' "Hit Me With Your Rhythm Stick"."
30700: S253 "Ravel's "Bolero"."
30710: S254 ""Nessun Dorma", as sung simultaneously by Pavarotti, Carreras and
Dolly Parton."
3074c: S255 "Michael Jackson's "Thriller"."
30764: S256 "Michael Jackson's "Billy Jean"."
3077c: S257 "Michael Jackson's "Beat It"."
30794: S258 "Kylie Minogue's "I Should Be So Lucky"."
307b4: S259 "the Eurovision Song Contest's finest five minutes, "Diggy-Loo
Diggy-Lay (Life Is Going My Way)"."
30800: S260 "Dexy's Midnight Runners' "Come on Eileen"."
30824: S261 "Steppenwolf's "Born to be Wild"."
3083c: S262 "Toto's "The Eye of the Tiger"."
30850: S263 "Cyndi Lauper's "Girls Just Wanna Have Fun"."
30874: S264 "the traditional air "Greensleeves"."
30890: S265 "Hoagy Carmichael's "Skylark"."
308a8: S266 "Noel Coward's "Don't Put Your Daughter On The Stage"."
308d0: S267 "Chas and Dave's "Rabbit Song"."
308e8: S268 "Paul McCartney's "Mull of Kintyre"."
30904: S269 "John Lennon's "Imagine"."
30918: S270 "that grisly carol, "We Wish You A Merry Christmas"."
30940: S271 "that hoary old favourite, "Oh Come All Ye Faithful"."
30968: S272 ""My Way", crooned over by Frank Sinatra."
30988: S273 "an"
3098c: S274 "It rolls on casters, and has a bakelite on/off switch."
309b0: S275 "This light room is full of pot plants, flowers, seeds, ornamental
trowels and other miscellaneous garden implements."
309f8: S276 "The only exit is back east to the conservatory."
30a14: S277 "some"
30a18: S278 "Good for nothing. Why would you want gloves on?"
30a38: S279 "A pair of yellow rubber gloves hangs from a hook on one wall."
30a60: S280 "Aunt"
30a64: S281 "She's been fiddling about with those cut flowers all afternoon.
And she's a bit upset at being left alone in the house while you're off on
holiday, so best not to get on her bad side. You really ought to make it up to
her somehow."
30af0: S282 "Aunt Jemima, who has for years collected varieties of daisy, is
engaged in her regular annual pastime of deciding which species make the best
chains."
30b48: S283 "Definitely mollified."
30b58: S284 "Dangerous to wear. But at least any sort of daisies will do."
30b84: S285 "A disused storage room off the winery. In one wall is an opening
onto an ominous dark shaft, and beside it is a big Victorian-steam-engine style
wheel with a handle on."
30bec: S286 "The only doorway is back west to the winery."
30c04: S287 "There is a concealed safety catch (poorly) hidden on the wheel."
30c2c: S288 "the old"
30c30: S289 "Inside the dark shaft is the old dumbwaiter."
30c4c: S290 "Uninviting."
30c54: S291 "A steel wrench gathers dust in the corner."
30c70: S292 "the"
30c74: S293 "The dumbwaiter hangs on strong pulley ropes which stretch up and
down from here."
30ca4: S294 "It isn't even mentioned in any of the books I've read."
30cc8: S295 "The half which didn't get the wish, actually."
30ce4: S296 "Halfway up, or else halfway down, and a dreary place it is too:
nothing but a dark corridor leading north."
30d28: S297 "A passage which slants very slightly down to the south, which is
full of coal dust, to which you are unfortunately allergic. Not somewhere to
linger."
30d80: S298 "A secret passage slants down to the east through a sandstone
recess."
30dac: S299 "There is a shallow sandstone recess in the east wall."
30dcc: S300 "At the north end is a metal door, standing open."
30de8: S301 "At the north end is a closed metal door."
30e00: S302 "Cobwebbed old cellars. There is nothing to see except an opening
in one wall onto a dark shaft, and a big Victorian-steam-engine style wheel
beside it with a handle on. The cellar continues east-to-west and south."
30e84: S303 "Uninviting."
30e8c: S304 "There is a little closed window-vent low in the north wall."
30eb0: S305 "You can just make out an impression of golden light."
30ed0: S306 "It can't even follow orders."
30ee4: S307 "In one corner is a dust-covered robot mouse."
30f04: S308 "Remember the late 1970s, when a craze for home-made robots swept
the home computing world?  No, perhaps not, but here is a left-over from it
anyway. The mouse is quite large (almost a foot wide and tall), and has a big
smile painted on its metal chassis. It has surprisingly modern circuitry in,
though, and is even humming very faintly, so someone must have put some work in
on it recently."
30ff8: S309 "This is the eastern end of the cellars, from which you can only go
west."
31020: S310 "The bricking-up of this cellar seems incomplete, because there is
a hole about ten or eleven inches across in the west wall. You peer at this
with interest but nothing is within reach inside, and it is far too small for
you to wriggle through. The cellars go back north, and so, it would appear, do
you."
310d4: S311 "It isn't the attic key, I fear."
310e8: S312 "Brass is of course a non-magnetic copper-zinc alloy, so presumably
this key also contains iron."
31128: S313 "Lying where the mouse dropped it is a small brass-coloured key."
31150: S314 "The west end of a disused and shadowy old cellar. It was bricked
up when you were a child - you never did find out why. Perhaps the golden,
jewelled staircase leading down into smoky mists to the south might be
something to do with it."
311dc: S315 "an"
311e0: S316 "In the northwest wall the ironbound door stands open."
31200: S317 "In the northwest wall is a heavy, imposing ironbound door."
31224: S318 "There are times when your life seems an endless sequence of locked
doors, each harder to pass than the last. This one, though, has a feeling of
the ultimate about it."
31284: S319 "An eerie, dark cave carved from crystal icicles of rock and strewn
with great spiders' webs hung from the ragged stone, inhabited only by dead
white insects. A narrow crevice opens out to an iron doorway and the warmth of
the house.

The rough stone floor levels out to a perfectly round, smooth white marble disc
about five yards across, inscribed with a black lemniscus (or infinity) symbol.

You shiver with foreboding, but inexplicably feel that the map you're looking
for must be somewhere near here."
313b8: S320 "There is now a small spherical opening in one wall."
313d8: S321 "It would just hold a ball the size of your palm."
313f4: S322 "A cave carved from crystal icicles of rock and glowing with vivid,
golden light, so bright it almost hurts your eyes. A narrow crevice opens out
to an iron doorway and the relative darkness of the house.

The rough stone floor levels out to a perfectly round, smooth white marble disc
about five yards across, inscribed with a black lemniscus (or infinity)
symbol."
314d4: S323 "A flight of sandstone steps, cut in the 1920s when an
Egyptological craze was sweeping England, slants down from the coal-dust
passage to the east."
31530: S324 "A broad, dark octagonal room devoted to dull exhibits of the
disastrous Nile Valley Expedition of '21 - the few good ones were donated to
the British Museum. A back staircase leads west to the unbuilt extension, while
the entrance seems to be the cobwebbed passage southeast. High windows on the
northern face let in dim light."
315f8: S325 "The only exits are via the southeast passage and the back
staircase."
31620: S326 "There is a little window-vent high in the southwest wall."
31644: S327 "You can just make out an impression of cellars."
31664: S328 "A rather morbid, gilded model coffin rests here in peace."
3168c: S329 "A rather morbid gilded model coffin rests here."
316ac: S330 "The model coffin is closed and throbbing with electric power."
316d0: S331 "A rather morbid gilded model coffin rests open here."
316f4: S332 "Leaned against one of the eight corners is a ragged white
parchment scroll."
31724: S333 "What taste! What artistry!"
31738: S334 "A lamentably naff tourist's gift, this seems to be a "replica" of
one of the papyri on which some lost Greek play or other was written. Some
nonsense about the priestess of Apollo being summoned by music, etcetera.

It has all the charm of a tea-towel of, oh, say the Taj Mahal made out of
curry."
317f4: S335 "A little charcoal sketch is framed on one wall."
31814: S336 "Behind the frame seems to be an artist's impression of the great
Palace of Alexandria as it might once have been."
3185c: S337 "It's the frame which really sets it off."
31878: S338 "Charcoal is so unrealistic, don't you agree?  Besides, it's far
too large and clumsy."
318b4: S339 "A miniature artist's impression of the great Palace of Alexandria
as it might once have been.

(No, the impression is miniature, not the artist.)"
31914: S340 "The ravings of a madman. Ignore it."
3192c: S341 "A low, white hallway adjoining the Octagon, converted from what
was once the scullery and the servants' pantry. A tight, dark staircase runs up
and south; and a diagonal bricked path runs out northeast to the gardens."
319b0: S342 "Up on one wall is a picture hook."
319c8: S343 "Mad Isaac's painting glares at you from the picture hook."
319ec: S344 "an"
319f0: S345 "A deep old elephant's-foot umbrella stand."
31a10: S346 "There's an old-fashioned elephant's foot umbrella stand beside the
garden doorway."
31a44: S347 "This dark, steep staircase zigzagging through the house once gave
the servants access throughout. But those days are long gone and now all the
doors are locked up."
31aa4: S348 "This is a city side street, but as if seen through the grey of
despair. People stream by, some of whom you almost recognise, as if dead. The
street runs east-west, and to the north is a doorway into a grubby tenement
building."
31b30: S349 "This shambolic flat, extending to the east, shares a filthy
hallway with the one upstairs. To the south, passers-by pass by along the
street. Peeling-away posters have been stuck up on top of each other on the
walls, in such a way that you can only read the most recent."
31bd0: S350 ""Bateaux Phlebas - toujours le dernier mot". You briefly wish you
had a dog called Toto, so as to be able to say "Toto, I've got a feeling we're
not in England any more.""
31c40: S351 "What a very useful piece of paper. Pity there's writing on it."
31c6c: S352 "Flats occupied by starving-but-noble artists can be romantic and
stylish despite the squalor. This one, however, is simply a one-room hovel,
caked with paint, littered with brushes and improvised easels, and you can't
help standing on tiptoe here."
31d04: S353 "One whole wall is an Impressionist mural painting of a yellow
chair."
31d30: S354 "One whole wall is an Impressionist mural painting of lilies on a
pond."
31d60: S355 "One whole wall is an Impressionist mural painting of a chateau in
Aix-en-Provence."
31d98: S356 "One whole wall is an Impressionist mural painting of nude
bathers."
31dc4: S357 "One whole wall is an Impressionist mural painting of a waitress at
a bar."
31df4: S358 "One whole wall is an Cubist mural painting of a woman with a plate
of fish on her head."
31e2c: S359 "One whole wall is an abstract Cubist mural painting."
31e50: S360 "One whole wall is an Pre-Raphaelite mural painting of the Virgin
Mary looking up at the light."
31e8c: S361 "One whole wall is an Impressionist mural painting of a woman with
a parasol."
31ebc: S362 "One whole wall is an pointillist mural painting of a scene in a
park by a lake."
31eec: S363 "an"
31ef0: S364 "The bottom corner is signed simply "Helene"."
31f10: S365 "The stairs end at a shabby room, with screened windows, lit by
incense sticks and sevenbranched candelabra. A doorway with a hanging bead
curtain leads west. In the centre of the room is a table, on which is an
electric bell push and a wicked Tarot pack."
31fa8: S366 "Peculiarly, the hanging curtain seems to be solid iron when you
walk into it."
31fdc: S367 "She has a bad cold, but nevertheless is known to be the wisest
woman in Europe."
32010: S368 "Hood, scythe, skeleton, implacable grin: yes, it's the Reaper all
right."
32040: S369 "It's vital you slide right along with this one."
32060: S370 "Don't worry, he won't slide down the cliff."
3207c: S371 "The Fool is a man looking directly ahead as he steps off the edge
of a cliff."
320ac: S372 "He's one of my colleagues now, of course."
320c8: S373 "Those are pearls that were his eyes..."
320e4: S374 "an"
320e8: S375 "Shoddy workmanship, but never mind, it's only a staff and who
needs those any more?"
32120: S376 "Down at the end of the street, the brown urban waters carry by
unpleasant rubbish, and rats scuttle up and over the mounds washed up around
you."
32178: S377 "People had no style in those days, before they invented paper
tissues. I mean this tatty cloth is hardly attractive, is it?"
321c8: S378 "On one especially repellent mound is, of all things, a fine silk
handkerchief."
321f8: S379 "Monogrammed J. A. P., but that's no great matter."
32218: S380 "The side reads: PHLEBAS."
32230: S381 "Moored close to the bank is a glass-roofed tourist boat."
32254: S382 "On the far bank is a glass-roofed tourist boat. As much as you
like to explore, you can't see how to attract its attention."
322a0: S383 "A tourist river-boat, glass-roofed. You can climb out to the shore
to the east. At the helm is a very strange man, at times almost a straw dummy,
almost perhaps a hollow cut-out made of paper. He (or it) turns the wheel and
casts his eyes to windward."
3233c: S384 "the"
32340: S385 "Every now and then he whimpers."
32354: S386 "The hollow man mechanically says: "Where to, guv'nor?  Me with my
big mouth, I gone and done it again, calling you the guv'nor. I was down
Margate Sands way once, had a bloke come on board, he thought any old
destination would do, like a real place, like anywhere was real... We are the
hollow men, I says, he didn't like that... Hurry up, please, it's time.""
3243c: S387 "A dry, desolate waste of buildings borders here on a main road, so
full of black-suited pedestrians off to work at banks that you can't force your
way any further east. Once in a while a few of the bowler-hatted army step into
the street and down some steps below a Metropolitan sign."
324ec: S388 "You can't force your way through the tide of bankers."
3250c: S389 "This is a vast underground station in great rectangular caverns,
deep beneath the streets. You are outside the ticket gates, near a flight of
steps back up to the city, and since you haven't a ticket you're likely to stay
that way."
32594: S390 "Back up the stairs for you. Call yourself a traveller..."
325b8: S391 "Behind a kiosk, a surly-looking man is selling guide books and
maps."
325e4: S392 "His jumper is unstriped, and there are no onions around his neck.
Nonetheless he has a rather Gallic, disgruntled look to him. Perhaps he's a
former Socialist cabinet minister."
32654: S393 "Burn it!  Burn it at once!"
32668: S394 "What a very useful map!  Now you can go on holiday."
3268c: S395 "Just the way you remember yours having been."
326a8: S396 "The Museum of Arcana is deserted after nightfall and only dimly
lit by distant sodium street-lamps. Outside it is a stormy October night and
rain beats against the windowpanes. Shadows swoop and dive in the air like
bats.

The revolving door to northeast, which leads out, seems to be solidly blocked
off. But a dim passage runs south, through a strange metal corridor."
3278c: S397 "There's no apparent way but south."
327a0: S398 "Why not go northeast and look inside?"
327b8: S399 "A publicity poster is displayed for passers-by outside to see."
327e0: S400 "One of those pretentious exhibition posters. Your German is just
about adequate to the task:

"Cults of the Druids - a Major Retrospective, October-November 1988"."
32850: S401 "Inside one quarter of the cramped revolving door, which is blocked
off from the world outside and opens only onto the foyer, southwest."
3289c: S402 "To north and east are the walls of the door."
328b4: S403 "The door only turns clockwise."
328c8: S404 "You stand within it."
328d4: S405 "A colourful, striped inflated beach ball bounces around."
328fc: S406 "A great square gloomy room, just south of the foyer. There are
square lintelled doorways east and west. The storm is dark, and the windows are
high, but there's just enough light to see by."
3296c: S407 "There's nothing worthwhile in it."
32980: S408 "Resting on a little display table is a Tarot box."
329a0: S409 "A long painted still life graces one wall near a corner."
329c4: S410 "A disturbing painting, perhaps by Edvard Munch, this is a still
life of a seedling on a table, surrounded by a rusty iron rod with a star on
the end, a glass bottle, a lamp and a bunch of keys. No doubt these arcane
objects held some special significance for primitive tribes now absorbed into
civilisation."
32a80: S411 "A dark staircase, turning from east to south as it descends. The
hideous sound of arhythmic chanting can be heard from below."
32acc: S412 "On one step, an empty matchbook lies discarded."
32aec: S413 "Ah, I fear it is only a token clue."
32b04: S414 "It's from the Ruined Castle Cafe, and (like the Cafe) is
matchless."
32b30: S415 "A stone castle on a hill."
32b44: S416 "It leads nowhere."
32b50: S417 "A single bright light in the darkness."
32b68: S418 "Ugh, what a nasty bright light. Good thing you'll never go there."
32b90: S419 "There's less to this card than meets the eye."
32bac: S420 "Andromeda chained to a rock on the sea-shore."
32bcc: S421 "What an ugly girl!  Bet she's good for a laugh though."
32bf0: S422 "It leads nowhere."
32bfc: S423 "It shows a great many crystal-glass cups and glasses."
32c20: S424 "An old administrative office of the museum, emptied and made into
a prison cell: amateur but effective."
32c60: S425 "There's definitely no way out of here."
32c78: S426 "an"
32c7c: S427 "Just a crook. And what's wrong with crooks, that's what I say."
32ca8: S428 "As you might expect, the cell door is closed."
32cc4: S429 "An annexe to the museum, containing sundry archaelogical finds,
badly labelled in German (which you can hardly read at the best of times) and
securely pinioned inside glass cabinets. The storm outside thrashes against the
narrow dark windows."
32d58: S430 "One cabinet looks particularly vulnerable."
32d78: S431 "You could just look inside the broken glass cabinet."
32d98: S432 "A smooth palm-sized disc, perhaps of pumice stone, painted in
yellows and browns with a single star motif, around which (clockwise) are the
words "nog", "er", "ska" and "iw". If you remember the label rightly, something
funny has been done to a piece of metal embedded in the top, but your German
wasn't up to understanding what."
32e68: S433 "Doesn't the shape strike you as familiar at all?  - There, that
should point you in the right direction."
32ea4: S434 "You need more evidence before you can begin deciphering the
language, I fear."
32ed4: S435 "Only one line has survived intact:

.<anoppe> an-spe : ska er nog-er an-ge : to-ro-ma ka ur Al-x-an-dr u bir ka
ur-a an-ge ur"
32f38: S436 "This crowded, bohemian cafe bears only a passing resemblance to
the ruined castle of the Tarot card: the decor imitates castle walls and
arrowslits. You find yourself sitting at a table for one in the centre of the
cafe floor. It is noisy, bustling and cheery, and a string quartet plays
Strauss under the chattering of German voices. Your chances of attracting a
waiter are very slight."
3301c: S437 "The crowd is lively and exciting, but also inconsiderate and
bulky."
33048: S438 "It contains a timer-detonator, a bundle of plastic explosives and
many, many wires. The most obvious ones are green, red, blue and black. They
would pull out of their loose sockets in the timer easily, so perhaps this bomb
disposal nonsense isn't as tricky as people make out."
330f4: S439 "Taped loosely to the underside of the table is a
complicated-looking bomb."
33120: S440 "Time flies down here, you know. Eternity simply breezes by."
33148: S441 "Good photographic gear that. You didn't get it from a... well, a
bomb, I hope."
3317c: S442 "This basement room is filled with crate after crate of glasses and
cups, enough for an entire hotel, or restaurant perhaps. Almost anything might
be hidden among them. A little light comes in from an opaque skylight which is
at street level outdoors. There is no way out of here, since the only door is
shut tight."
33234: S443 "There's no apparent way out of here."
33248: S444 "Through the square window in the door you can see a bar at which
staff are serving, and a very crowded and lively cafe-restaurant beyond. The
cabaret act has her back to you, and a considerable amount of her front to the
diners."
332cc: S445 "numerous"
332d4: S446 "Old, unwanted, dusty, empty."
332e8: S447 "The great challenge, of course, is to get a ship inside."
3330c: S448 "An unlabelled whisky bottle, laid on its side and mounted on a
wood plaque, lies deservedly unwanted on one of the crates."
33358: S449 "Oh, well done!  Why not take a closer look, you deserve it?"
33380: S450 "Within the whisky bottle is a model sailing ship, far too large to
have passed the neck."
333b4: S451 "The great challenge, of course, is to get it inside a bottle."
333d8: S452 "A superb model sailing ship, about six inches from prow to stern,
immaculate in every detail from an anchor on a filigree chain to a carved
mermaid up front."
33438: S453 "The great challenge, of course, is to get it inside a bottle."
3345c: S454 "A tightly-folded bundle of sticks, about six inches long, with a
filigree chain and anchor hanging from it."
3349c: S455 "The rocks are too dangerous. You'll have to scale the cliff."
334c0: S456 "Chained to the cliff face is the beautiful Andromeda, looking
nobly out to sea as she awaits her fate."
334fc: S457 "Andromeda's"
33508: S458 "A long clasp of amber, perfect for long straggly Greek hair."
33530: S459 "Mmm... it still has her perfume on it. Hehehehe. Bet she's dead
now."
33560: S460 "On top of some exposed cliffs on the Mediterranean. A dangerous
slither down leads on one side to the shore, all other ways down being even
more hazardous. Atop the cliffs is the Pharos tower, a round stone pinnacle
lighthouse, but there is no way in from here.

A grassy walk leads east, and a narrow crack leads southwest into a cave
mouth."
33630: S461 "There's only dull grassland that way."
33648: S462 "A long clifftop walk by the sea, from the lighthouse to the west
to the village not far east. These fields are occupied by herds of hardy
mountain goats, continually butting each other and frisking. To the south a
path leads across sparse grassland to a great outgrowth of some kind."
336ec: S463 "There's only dull grassland that way."
33704: S464 "A long walk along the cliffs from the lighthouse leads naturally
here, just outside the Eraina Taverna, whose open doorway lies to the south."
33754: S465 "There's only dull grassland that way."
3376c: S466 "Only a small, thorny, unclimbable fig tree."
33788: S467 "Legend has it that the Roman emperor Augustus was killed by his
wife Livia, who painted the figs on his tree with poison. Actually it looks
like a perfectly nice piece of fruit."
337f8: S468 "Hanging from a low branch of a fig tree is, as you might expect, a
fig."
33824: S469 "Good enough for a god."
33834: S470 "You can ask a god for a date, but they just don't give a fig."
33858: S471 "A plain but cheery taverna, fill of miserable and rather ashamed
men who are drinking retsina heavily. The day is dawning outside the north
door, but they strangely do not share your uplifted feeling at the sight."
338dc: S472 "The tavern entrance is to the north."
338f4: S473 "A speciality dessert of the Taverna: ice cream, kateifi, raspberry
sauce, cream. An acquired taste."
33938: S474 "Left untouched on one table is an Ekmek Special dessert."
33960: S475 "Better with chocolate ice cream, I think."
3397c: S476 "Doesn't somebody else need this more than you?"
3399c: S477 "Morose and unconvivial at the best of times. This is not the best
of times."
339c8: S478 "Behind the bar, a depressed bartender polishes glasses."
339ec: S479 "The rather sparse rolling landscape is dominated here by a
massive, and suspiciously unnatural, wall of thorns, which forms a great ring
about an area perhaps a hundred yards in diameter. There are goat pastures to
the north."
33a70: S480 "There's only dull grassland that way."
33a88: S481 "A ragged gap in the wall has been burnt out to the south."
33aa8: S482 "The wall rustles and clashes its thorns like a beast alive."
33acc: S483 "It's hard to imagine what could possibly shift a wall like that."
33af4: S484 "Here inside the thorn wall, a north-south path leads across sacred
earth into the imposing marble Temple of Zeus. You feel distinctly uneasy
walking on such hallowed turf. There are any number of myths about gods getting
cross about that sort of thing."
33b90: S485 "The wall of thorns hems you in."
33ba4: S486 "The beautiful candle-lit Temple of Zeus, a cavern of marble
pillars which is quite empty and featureless save for the entrance at the
north. So much for all the rumours about hoards of treasure - it looks as if
Zeus (who is, by the way howling with anger outside) was bluffing all along.

Cloisters lead southeast and southwest, deeper into the temple."
33c7c: S487 "one"
33c80: S488 "On one side, a man's face: on the other, a symbol, I. One obol, or
one-sixth of a drachma."
33cbc: S489 "This currency is only valid in ancient Greece. Where on earth have
you been?"
33cec: S490 "The east cloister of the Temple, which turns from northwest to
southwest, is bare but for a small niche."
33d28: S491 "an"
33d2c: S492 "Resting in the niche is an inscribed pumice stone, two feet tall."
33d54: S493 "Whoever wrote this must have wanted to get the message across very
badly, to write it all out twice."
33d94: S494 "Along the west cloister, turning from northeast to southeast, is a
broad bas relief depicting the seasons: the planting of seed, high summer, the
harvest, floods and then the coming of ice."
33e04: S495 "A curious symbol is repeated along the top of the relief."
33e28: S496 "Here from the dark heart of the temple, cloisters fork northeast
and northwest while a flight of narrowing steps lead down and to the north."
33e78: S497 "The blind poet Homer half-slumbers here, clutching his syrinx (or
Pan-pipes) to himself."
33eb4: S498 "Homer is wearing a Columbo-style raincoat."
33ed4: S499 "Homer sits half-awake, clutching his syrinx."
33ef4: S500 "Homer glares at you through sightless eyes."
33f10: S501 "Homer is asleep again, his syrinx tight in his arms."
33f34: S502 "the"
33f38: S503 "Marvellous! A sound to soothe the spirit."
33f54: S504 "Carefully cut from river reeds, these once belonged to Homer
himself. As you may recall."
33f8c: S505 "The fabled Labyrinth seems only to consist of a broad cross. Arms
run to northeast, northwest, southeast and southwest, while a flight of stone
steps widens and climbs south."
33ff8: S506 "The two-foot opening is clear again."
34010: S507 "the"
34014: S508 ""ka-i ur-a re-im ka an-ge""
3402c: S509 "There are extremely scuffed and faded inscriptions at the centre
of the cross."
34058: S510 "Beside the inscriptions is an opening in the floor, about two feet
square."
34084: S511 "The opening is securely wedged with the stone."
340a0: S512 "The opening is securely wedged with the prop."
340bc: S513 "A foul, musty bone pit, beneath the cross, where sacrificial
victims were once dropped and "forgotten"."
34100: S514 "Lying on top of crushed, broken bones, in plain view, is a
gleaming gem of amber."
34138: S515 "Embedded within is the body of a fly. Scratched upon one face is
the word "GALITA"."
34170: S516 "Isn't there some classical legend about her?"
3418c: S517 "This cross-corner is inlaid with carvings of fish, of the waves,
of great casting nets sweeping through the water.

The Labyrinth lies to southwest."
341e8: S518 "This cross-corner is surrounded with carvings of wheat swaying in
the breeze, bathed with sunshine.

The Labyrinth lies to southeast."
3423c: S519 "This cross-corner is decorated with carvings of massed ranks of
hoplite warriors, advancing into battle.

The Labyrinth lies to northwest."
34294: S520 "This cross-corner is decorated with carvings of grape-vines and
barrels.

The Labyrinth lies to northeast."
342d8: S521 "A fine statue of the god Poseidon stands here."
342f4: S522 "A fine statue of the goddess Demeter stands here."
34314: S523 "A fine statue of the god Ares stands here."
34330: S524 "A fine statue of the god Dionysus stands here."
3434c: S525 "A dry cave opening from a crack to the northeast, becoming a
fair-sized cavern, furnished with bronze and lit by trestle lamps chained from
the ceiling."
343a8: S526 "the"
343ac: S527 "The Oracle, the masked priestess of Apollo, stands here behind an
obsidian altar-stone, three cubits cubed: to her side is a bronze urn, mouthing
perpetual flame."
34414: S528 "the"
34418: S529 "In the centre of the cave rests an obsidian altar stone with a
flaming bronze urn."
3444c: S530 "The altar stone, sometimes called "Omphalos" or "the navel", bears
an odd cross or plus sign and is fabled to mark the centre of the world.

Around the side of the urn are reliefs of feasts, of oxen being tracked and
sacrificed, of the gathering of fruit and the making of cheese."
344f8: S531 "The god Apollo moves in mysterious ways, for another fig has
appeared on the tree."
3452c: S532 "Being a lighthouse, this pinnacle is way up in the air. Point
taken?"
34558: S533 "A brown-tinted frieze, depicting hunters and spear-carriers,
surrounds this dark stair-well, which has no exit except for a spiral staircase
leading back up."
345bc: S534 "The decorated strip of entablature between the architrave and the
cornice, in the Attic style circa fifth century B.C.

Well, you did ask."
34614: S535 "the"
34618: S536 "the"
3461c: S537 "the"
34620: S538 "the"
34624: S539 "There is a storm tossing the deck, one which drives no rain: you
reel from one side to the other, hanging onto the rail, grabbing at the mast or
the rigging. Nobody else seems to be aboard. The boat makes no headway in a
strange, glassy mist.

The mast rises dizzyingly high.

You can't even make out the water below. A great pink haze spreads across the
sky. With omens like these, who needs albatrosses?"
34714: S540 "The deck runs fore to aft (as all decks do)."
34730: S541 "the"
34734: S542 "Down might be a better idea."
34748: S543 "Coming up here must be one of your less inspired ideas. The mist
is all around you, confusing your senses. Two pale, bluish moons hang in a pink
sky."
347a4: S544 "A flagpole juts out portwards from the top of the mast, far too
insubstantial to bear any weight. From it hangs the ensign of the British
Merchant Navy (which you could just reach the bottom of)."
3481c: S545 "The flagpole juts out to port with the prevailing... wind?"
34840: S546 "The flag has fluttered to a heap on deck."
3485c: S547 "Piece of advice - it's never very comfortable wrapping yourself in
the Flag."
3488c: S548 "Broad, heavy, scarlet cloth, halfway between a silken sheet and a
carpet, with a cross and a Union Jack in one corner."
348d8: S549 "an"
348dc: S550 "A plain old piece of timber."
348f0: S551 "An old timber prop, once the spar of a main mast."
34910: S552 "The broken flagpole, a plain timber spar, lies beside the mast."
34938: S553 "You stand in the triangular prow of the ship, which is graced by a
carved and painted figurine and named the "Lady Magdalena". There is no sign of
water, but the boat is rocked too often for it to be aground. And the glassy
mist hangs ahead."
349c4: S554 "Oh, you startled me for a moment there! I am getting flighty."
349ec: S555 "In the Lady Magdalena's loose grip is a traditional sailor's
good-luck token: a green-leafed branch, to attract the gulls of an approaching
shore."
34a4c: S556 "The square stern of the ship looks out south, not onto receding
waves, but to what seems a tunnel through dense, glassy mist. You can faintly
make out an odd, pale reddish sand bank in the distance."
34ac0: S557 "The boat runs fore."
34acc: S558 "The top of the anchor chain is wound around the capstan, a great
wheel on the deck beside you. The chain disappears over the side."
34b18: S559 "In the lush, verdant (which is to say, under-cared for) gardens of
Meldrew House, where a stream gurgles pleasantly as it meanders through reeds.
The house rises up high above you to the south and you dare not be seen from
the windows by the rest of the family, so you'll have to go northwest, deeper
into the gardens, or else east along a path hugging the wall."
34be8: S560 "The Hall is not safely climbable."
34bfc: S561 "Better not... you'd be seen from the Orangery."
34c18: S562 "Better not... you'd be seen from the Library."
34c34: S563 "Better not... you'd be seen from the Old Ballroom."
34c54: S564 "The bulk of the Hall is in your way."
34c6c: S565 "On the house wall is a coal bunker, whose door stands open."
34c90: S566 "On the house wall is a coal bunker, whose loading door is shut."
34cb4: S567 "The east-west path along the foot of Meldrew Hall ends here at one
of the carved walls bordering the garden."
34cf0: S568 "You'd be seen from the Library that way."
34d08: S569 "You'd be seen from the Old Ballroom that way."
34d24: S570 "There's no door into the Hall."
34d34: S571 "The walls of the Hall are unclimbable to someone suffering from
your degree of vertigo."
34d68: S572 "The stone wall blocks further passage east."
34d84: S573 "A shrub is being nursed in a wide round tub in the centre of the
path, sheltered behind the wall."
34dbc: S574 "The garden wall once bore painted carvings, but they have fallen
into disrepair."
34df0: S575 "The timber lid stands open beside the shrub, revealing the old
barrel-hatch."
34e20: S576 "Beside the shrub is a timber hatch, three feet across."
34e44: S577 "You stand in the shade of a great plane tree, seedlings for which
were brought back from Spain by an ancestor of yours in 1806. To the southeast
is a stream, to the west is a small clearing and to the north a single break in
the green privet hedge marks the entrance to the famously difficult Meldrew
Hall Maze. A signpost reading "To the Mosaic" points east across the lawn."
34f1c: S578 "Several hundred years of rolling have made this a rather fine
patch of grass, between the privet hedge (north), the plane tree (west) and the
mosaic (east). Unfortunately, it is adorned with all the really ugly ornaments
(gnomes, plaster nymphs, stone windmills to grow flowers in), this being the
corner of the garden least visible from the house."
34ff0: S579 "The options appear to be east or west."
35008: S580 "Prominent amongst these is a plaster statuette, a bust of a
woman."
35034: S581 "It stands four feet high. At the base is an engraving:
"Self-Portrait, H.M. '54". (It's presumably not by Her Majesty the Queen,
though.)"
35098: S582 "The lawn is lightly coated with broken plaster and dust, and in
the spot where the statuette once stood is a dark, ancient well."
350e0: S583 "You can make out nothing below, and the well is too small to climb
down."
35108: S584 "This sunken corner of the garden has been excavated and then
covered over with tough perspex to protect it from visitors' shoes. It consists
of a time-worn Roman mosaic, divided into four quadrants, each showing scenes
of idealised Roman life. There was probably a villa on this site, but your
family has never been keen on archaeologists so the excavations went no
further."
351ec: S585 "From here you can climb back up to the lawn."
35204: S586 "Made of terra-cotta and ceramic fragments, it has held together
surprisingly well."
35238: S587 "Splendid, you're having a ball. I do hope you hit it off."
3525c: S588 "A hard wooden ball, palm-sized, rolls about across the mosaic."
35284: S589 "A clearing at the edge of the garden, surrounded by walls and the
privet hedges of the maze. To the east is the plane tree, to the west an
opening in the wall makes a garage entrance and to the south is a small
vegetable garden."
35304: S590 "A recently-turned vegetable garden, using up a shady corner of the
garden. The patch testifies more to good intentions than horticulture."
3535c: S591 "From this corner, you can only go back to the clearing."
3537c: S592 "A giant runner-bean plant leads up vertiginously into the sky from
here."
353ac: S593 "Only a runner-bean plant graces the vegetable garden."
353d0: S594 "At the top of the beanstalk, in amongst the clouds. There is no
safe way to go from here except back down, not surprisingly. A dangerous way
might be to step out onto the clouds to the north, but even if this is a
fairy-tale it would be taking a lot on trust."
35468: S595 "The clouds are too tenuous that way."
35480: S596 "A modest brick garage, built into the garden walls. A big open
doorway leads east onto the clearing."
354bc: S597 "A motorised garden roller of the kind you sit inside, among whose
simple controls is a big on/off switch."
35500: S598 "The garden roller sits here, its engine still running."
35524: S599 "A big motorised garden roller is parked here."
35544: S600 "The funny thing is, they didn't have weedkillers in the early
nineteenth century, and yet they still planned some marvellous gardens."
35598: S601 "If squeezed, it squirts weed killer over the ground. There are
many warning labels about getting it on one's hands."
355e0: S602 "In the shadows is a weed killer bottle."
355fc: S603 "Do you think there's anywhere in the garden particularly suitable
for such an implement?"
35634: S604 "Hanging from a hook is a bladed agricultural implement."
35658: S605 "A magnificent view of the gardens would be yours, were it not for
the branches and leaves which surround you. You can make out Aunt Jemima up at
one of the conservatory windows, but hide from her view. Down below, the
privet-hedge layout of the maze can be seen through the lower branches."
356f8: S606 "No, don't go out on a limb."
3570c: S607 "the"
35710: S608 "A maze of green privet passages, all alike."
3572c: S609 "The privet hedges are in the way."
35740: S610 "This is an old stone patio in the heart of the garden maze. A
missing flagstone offers an intriguing dark prospect beneath."
3578c: S611 "The privet hedges are in the way."
357a0: S612 "Up?  Are we playing the same game?"
357b8: S613 "Sticking out of some soft earth is a perfectly-carved marble
rose."
357e4: S614 "Perfection set in stone. Not a gift for mortal women!"
35808: S615 "This flagstoned rampart on the hillside looks across the valley,
down (unfortunately) to the motorway below. Coaches pass by, reminding you of
the rapidly approaching time when visitors will have to be let in again for the
summer. The only safe way to go is back east into the maze. To one side is a
plaque."
358bc: S616 "The hillside is too steep."
358cc: S617 ""This viewpoint, one of the finest in the county, was laid down by
Capability Meldrew, a well-known landscape gardener of his day. It was intended
as one of the rewards of the garden maze, and was constructed c. 1808 after an
earlier folly on the site collapsed.""
3596c: S618 "A miniature plastic etching rests on the plaque."
3598c: S619 "What's the point of a drawing so small it might almost be a
playing card?"
359b8: S620 "No larger than a playing card, it depicts the Folly which used to
stand on the hillside outcrop."
359f0: S621 "This is a rampart on the hillside, a natural ledge leading east.
Down below in the valley, rough cottages surround a church. Labourers toil in
the fields, and a hay wain is being pulled across the river.

Towering over you is a monstrously awful piece of architecture, a Folly. The
freestanding tower has no appreciable purpose and no apparent entrance. The
latter is just as well since it looks extremely unsafe."
35aec: S622 "The hillside is too steep."
35afc: S623 "Decidedly unsteady."
35b0c: S624 "Whatever you do, it'll always be a bean pole."
35b2c: S625 "A bean pole, of the kind used to grow climbing plants, rests
against the side of the tower."
35b60: S626 "A square grid of plots of grass and seedbeds, all alike."
35b84: S627 "Capability Meldrew and his gang of workmen are delicately planting
a sapling plane tree here. Your disturbance annoys them immensely and you are
immediately arrested for vagrancy and theft. After a few months in prison, you
are hauled up before the County Assizes and sentenced..."
35c30: S628 "You're strolling on a pleasant bricked path, passing from the
outer rooms of Meldrew Hall to a track through the eastern side of the garden."
35c7c: S629 "Named by some family wag generations back, this is a restful hedge
garden, crowned with a summer house to the north, widening out to a broad
croquet lawn east."
35cdc: S630 "A flock of sparrows crowds around the gutters of the summer house.
Every now and then one flits up and lands somewhere else, and they bustle about
chirpily."
35d3c: S631 "An old wooden summer house, reeking of varnish and uncertain
beneath your feet. Several segments of the tall glass many-sided pyramidal roof
are missing and others are cracked, but this is still somehow a homely and
welcoming retreat. The only entrance is also the only exit."
35de8: S632 "Croquet is the Devil's own game!"
35e00: S633 "It's for mashing croquet potatoes."
35e18: S634 "A croquet mallet stands by one wooden wall."
35e34: S635 "How easily are the weak mesmerised by baubles."
35e54: S636 "It is beautifully polished, and captivates the eye. You could
stare for hours..."
35e84: S637 "Something golden hangs by a chain from a loose pane in the roof,
but it's too high up to reach."
35ebc: S638 "Among dense hedges by the shabby wood-slatted back of the summer
house. Dark scratchy branches hem you in, but you could scramble down to the
west or out onto the croquet lawn southeast."
35f30: S639 "You could easily squeeze past the loose board south into the
summer house."
35f5c: S640 "One board of the back wall is noticeably loose, making a
good-sized crack."
35f8c: S641 "Through the crack you can see the summer house."
35fa8: S642 "your"
35fac: S643 "Not at all shy when on his own territory."
35fc8: S644 "The squirrel sits here, watchfully pecking away at the nuts."
35ff0: S645 "The lawn is enclosed on all sides, but for a gap back west."
36014: S646 "There are six arched hoops in a croquet set, arranged around a
central peg. These ones have been safely anchored in place since the lawn was
laid out in, oh, Midsummer 1923 if family lore is to be believed."
36094: S647 "A good strong strongbox, buried for two centuries and now
unearthed; it bears a fine gothic iron lock, and a tasteless coat of arms (a
wild boar rampant)."
360f8: S648 "You might have read about this. One of your ancestors is the key,
perhaps?"
36124: S649 "A very old instrument for measuring altitudes, this is all that
remains of Sir Joshua Meldrewe's stolen hoard of gold. There is an eyepiece."
3617c: S650 "A mighty fine instrument, though not much use hand-held."
361a0: S651 "The rich loam, the silver of earthworms, the dignity of toil...
none of these pastoral consolations is yours as you scrabble in the dirt."
361f4: S652 "This is a murky hillside cave, whose mouth opens to the northeast,
though a tight squeeze might lead a little way west. Outside is a clear starry
night. There is no traffic noise, and the air smells fresh."
3626c: S653 "Hanging up on an iron bracket is a flaming torch."
3628c: S654 "an"
36290: S655 "It is a summary of the writings of a polemical monk called Gildas,
and relates to events following the fall of the tyrant Vortigern at the turn of
the fifth century A.D. After dark decades of pillage by Saxon mercenaries,
Britain was reunited by Ambrosius Aurelianus and then defended at the Battle of
Badon Hill, some time in the early years of the sixth century.

This remarkable victory was of no religious significance, so Gildas does not
dwell upon it. He tends only to mention bad kings and leaders, and then chiefly
to insult them. (Talking about Gildas is an excellent way to annoy an
Anglo-Saxon historian.)  Nobody even knows where Badon Hill is any more, or
anything else about it, although some students of Welsh poetry believe
Ambrosius was the source of the legend of King Arthur."
36488: S656 "An uncomfortable spur of rock on the hillside crags. The only
natural access to this spot is a crevice in the hill to the east, but there is
also a securely fastened rope hanging down into the darkness."
36500: S657 "The crags are too precipitous."
36514: S658 "You are hanging perilously on a hemp rope, suspended from an
overhang of rock above, which drops down into the darkness of the valley. On
the tracks below, patrols of men can be heard, and you feel instinctively that
they are not friendly."
365a4: S659 "Up and down are it, quite frankly."
365bc: S660 "A single yellow daisy grows from a little tuft of grass on the
crags."
365e4: S661 "The geography is strangely familiar here. You are on a natural
shelf on the hillside, overlooking the valley below. An all-but invisible cleft
in the rock leads to a cave to the southwest, and the slope can safely be
traversed to the east.

It is a brightly moonlit night, cool as in late spring. There will be a sharp
frost tomorrow. Down in the valley, a great cartwheel circle of camp fires
illuminate some dark shapes, perhaps crude encampments. There is no other sign
of civilisation."
36704: S662 "The hillside is too steep."
36714: S663 "You stand beside a Roman villa, whose columns cast shadows of an
Empire in the moonlight. It is thirty years since the fall of the West, and
Britain is cut off from the continent, where soon even the existence of the
Anglis will become a myth. This villa has survived the pestilence and
devastation of the civil war, and although it must be a couple of centuries
old, it is still standing. From here you could cut across the hillside east to
west, or slip in through a none-too-secure timber door."
36838: S664 "A stream runs past the villa and cascades down the hillside here,
to join the river far below, near the Roman road which will, in 1500 years
time, become the motorway which so spoils the view from your back garden. A
rough ladder of wood lashed together with leather rests against the villa at
the lowest point of the tiled roof."
368f8: S665 "You climb the ladder and are about to jump onto the roof when you
catch sight of a man swaddled in animal furs, spreadeagled over the tiles,
looking down into the central courtyard of the villa. He has a nasty-looking
sword and since he hasn't seen you, you quietly shin back down the ladder
again."
369a4: S666 "The shadowy cloisters of the villa's atrium. You disturb a
fieldmouse, and hear the scratching of tiny claws on stone. Moonlight filters
in from the central courtyard to the south, and a rotten timber door leads back
north."
36a24: S667 "Resting against one pillar is a horn made from a tusk, mounted on
a long spear-like pole."
36a5c: S668 "The central well of the villa, ringed with columns. On the north
side is a cloister and stone-linteled doorways lead east, south and west. The
central floor area is commanded by a beautiful Roman mosaic, quartered into
individual scenes, around the edges of which are vents from the hypocaust.
There is no roof over the courtyard, and the atrium is lit by moonlight."
36b34: S669 "The four quarters show white-beards in the Forum, farmers in
Italian fields, a military fortification and a grain ship unloading at Ossia."
36b8c: S670 "Whatever function this spacious room once had, now it is evidently
home to military men, for it is filled with crude armour, spears, rough
blankets which are little more than animal hides. Fortunately for you the
guards are absent."
36c18: S671 "A crude six-sided die made from animal bone."
36c34: S672 "a pair of"
36c3c: S673 "What was once the villa's triclinium, or kitchen, is now deserted
and long since ransacked for metal. (Nobody lives on their own in this century,
and this villa wouldn't be easy to defend.)  A doorway to the east gives onto
the atrium."
36cd0: S674 "The well has a hinged wooden cover. You can't tell by looking how
deep it is."
36d00: S675 "The hinged wooden cover is raised, revealing a circular well about
a yard in diameter. It is very dark inside."
36d44: S676 "In one corner is a hinged wooden cover of some kind, which is
shut."
36d70: S677 "You are clinging perilously to the walls of the deep and dangerous
well. You can hardly see a thing, even with the aid of the torch, but curiously
enough you feel warm air blowing across you from the east."
36de0: S678 "Too risky. There might not be anything that way, for all you
know."
36e08: S679 "This very low almost-cellar underneath the atrium is a tiny access
space for log fires which are kept going to provide a form of central heating
for the villa. They are lit and going away nicely, interestingly. It isn't very
warm by twentieth-century standards, but you have to admit it works.

A tiny amount of light filters in from the vents in the roof; just enough to
see by. The only way in seems to be the way you came."
36f04: S680 "The log fires are hot, and anyway the only way out large enough
for you is back west."
36f38: S681 "the"
36f3c: S682 "A well-flagstoned forecourt at the villa entrance, surrounded by
lesser wooden buildings. Some of these are in use as stables, and figures of
men slip between them. You hide from sight, not wishing to draw attention to
yourself. Up on the hill, where Meldrew Hall will one day be built, men on
horseback can be seen circling the access track. For a deserted villa, this is
certainly well-guarded."
3702c: S683 "Well, here you are, imprisoned again. This time the cell is a tent
of stitched animal hides, perhaps twenty feet in diameter, supported by a
central pole. You have no idea where the entrance is, because you were
blindfolded on the way in. There is at least a dim light from the camp-fires
outside the tent."
370e0: S684 "This tent doesn't seem to have an exit, either."
370fc: S685 "He is dishevelled, wiry and unconscious. He is also covered with
dust and leaves, as if he has been lying down on his front outdoors for hours."
37154: S686 "An unconscious Saxon spy is slumped on the ground. Occasionally
faint noises can be heard from him."
37190: S687 "Luckily for you the tent, now collapsed, was hardly being watched
at all, because all the attention is diverted to a ghastly ritual being carried
out over beyond the camp-fires. But your luck cannot hold for long. You are so
surrounded by hostile territory that you simply have nowhere to run or hide.
Things are, not to put too fine a point on it, looking grim."
37264: S688 "Far, far too risky."
37274: S689 "An erratic glacial rock, which seems in the feverish firelight to
make a natural dolmen, can be made out to the east, on the other side of an
almost-extinguished campfire of hot coals."
372e0: S690 "You stand beside the eerie dolmen, surrounded by the terrible
noises and incantations of a druidic rite."
37320: S691 "Far, far too risky."
37330: S692 "I wouldn't wave that around if I were you!"
3734c: S693 "Resting on top of the dolmen is a polished blue stone."
37370: S694 "You are transparent like a ghost."
37388: S695 "It is a frosty, clear night, but there is a scent of camp-fires
burning in the distance. You are passing through the landscape as if a ghost,
and all seems faintly unreal. To the east is one side of an animal-hide tent,
but there is no way in from here. To southwest, some soldiers sit around the
embers of a fire. There is a terrible sense of something about to happen."
37460: S696 "This is the tent of a thin, reedy man who wears no uniform but has
an obvious and commanding presence. He has an aquiline, patrician nose and, at
five feet four, is taller than anyone else present. The others are advisers,
junior officers, scheming politicians and their like. They are keeping their
distance from a trestle table at the north end of the tent."
37534: S697 "This is a kind of improvised shrine. A trestle table bears
entrails, crude drawings sketched out on hide, and caged animals: draped beside
it is a primitive tapestry of a bear reared up on its hind legs."
375b4: S698 "Primal, bestial, terrifying."
375c8: S699 "An absolute essential."
375d8: S700 "On the table is a heavy iron mascot of some kind."
375f8: S701 "The mascot is in the shape of an ankh, with a lemniscus (or
infinity) symbol moulded onto it."
37634: S702 "Beside the table is a more substantial adviser, as if she too
walks in this strange spirit plane. She is wearing frightening druidical robes,
of strange pelts and furs, with nasty-looking charms around her neck. Every so
often, she seems to catch sight of you out of the corner of her eye, but then
look round and see nothing. The military men do not believe in her power, and
yet... they treat her with respect."
3772c: S703 "You can almost smell fear here. A motley platoon of soldiers are
sitting about the embers of a fire. None are talking or sleeping, and the false
good humour of the evening has died away. At first light, you realise, there
will be a battle. It isn't a risk you'd like to run in their place. And there
is a strange light already in the east... not yet a dawn, for the soldiers seem
unaware of it."
37818: S704 "A standing stone, perhaps a glacial erratic, stands here and on
top of it is a shining blue stone, whose brightness almost blinds you. You feel
irresistably drawn to it, and your hand reaches out..."
37894: S705 "A strangely familiar, dusty passage, sloping down from a southern
end bathed in hostile light to some kind of metal barrier in the north."
378e8: S706 "Flurries of green luminescence whirl endlessly around you, west to
east and over."
3791c: S707 "The flurries have almost endless fascination... but you manage to
tear your eyes away after, oh, an hour?"
3795c: S708 "Your ghostly self is embedded in a diagonal downward shaft
(descending to the east) entirely filled with dry sand. Solid flagstones line
the walls."
379b8: S709 "Flaming torches bracketed in the wall gutter as the last oxygen in
the air is consumed, and the flicker of flame plays across the yellow-orange
glaze of the tomb walls.

This octagonal chamber is lined with Egyptian hieroglyphics. Sand spills across
the floor from under the sole entrance, sealed by an ingenious stone slab."
37a78: S710 "some"
37a7c: S711 "A kind of ship's wheel (of eight-spoked timber) is affixed to the
northwest wall."
37ab0: S712 "A dismal crypt, disused, rainswept and strewn with leaves. Light
streams in from the square hole in the roof. There are no bones or urns on
show."
37b08: S713 "The mural stands slightly to one side, revealing a passage leading
downward."
37b38: S714 "The south wall forms a giant bronze mural, which has stood the
test of time."
37b64: S715 "The mural depicts an old bearded wise man following a star in the
western sky. He has his right arm around an attractive young woman and holds a
bundle of wands with his left hand. Around the border are astrological symbols
of all kinds, from Tarot suits to zodiacal constellations."
37c0c: S716 "An eerie passage, running down from an opening at the north to
murky depths in the south. The walls are jagged, uneven and decorated with
bones. An unpleasantly stale, charnel odour drifts in through a gap to the
east."
37c90: S717 "You appear to be standing on a wrought iron key."
37cac: S718 "A figure-eight double ring, a long barrel and a finely-cut
ten-groove claw: this is the ultimate in keys. It is superb."
37cf4: S719 "A long, winding, vile passage through the earth, running east to
west. The distasteful odour grows stronger as you go east."
37d40: S720 "Well, perhaps "sarcophagus" is a little melodramatic, but it's
that kind of moment. This must be somewhere under the old parish church. You
are stooped over inside a stone tomb, stained and crumbled with decay, broken
only by a crevice you crawled in by. It is a nightmarish place."
37dec: S721 "Nightmarishly, even the floor you kneel on is a fallen tombstone."
37e14: S722 "The gist of the inscription is: "Henri Maladreue, obiit mcdlvi.""
37e40: S723 "A large, grisly cave, deep under the garden, dimly lit and eerie.
Darkness curls around the natural pillars of rock like a mist: and there is a
peculiar, vaguely familiar odour to it. The only obvious routes out are an
uneven passage climbing to the north and a crawl west."
37ee8: S724 "You bumped into something unpleasant there."
37f04: S725 "Leading down."
37f10: S726 "an"
37f14: S727 "The odd smell seems to be ozone, and it drifts up from a
previously concealed aluminium staircase."
37f50: S728 "The cartoonist Heath Robinson used to specialise in drawings of
fantastically complicated machines of string, pulleys, levers, counterweights,
cogs, mice running about on wheels and the like. Just such a contraption fills
the west end of this room, though most of the workings are behind a glass wall
which, although running with age, is as solid as the day it was built. The
parts are very old (hand-made, not machined) but uncorroded.

The only way out appears to be via the crawl to the east."
38078: S729 "The north edge of the room is a big sheet of dull amber-coloured
metal."
380a4: S730 "Someone rather good-looking (you can't help thinking) is reflected
in the metal surface."
380dc: S731 "How tantalisingly valuable it seems."
380f4: S732 "Solid, heavy, reliable, out of reach on the other side of the
glass."
38120: S733 "You really should try to be more awestruck, for this is Merlin's
cave, the hub of Creation. Every visitor perceives this place differently,
according to his or her own myths and beliefs. Your particular creed being
science, there is only a black metal one-metre cube with an unimpressive
collection of gauges and dials. An aluminium staircase leads up."
38200: S734 "The lower, on, position is labelled "Determinism". The upper, off,
position is labelled "Chance"."
38240: S735 "Particularly prominent are a large dial, like the volume control
on an expensive hi-fi amplifier, and a big electrician's switch. Both are
labelled in small print."
382a8: S736 "Above the dial is a lower-case letter h with a slashed line
through it. It is currently turned to 1.055 or thereabouts. There is something
worryingly dangerous about its matter-of-factness."
38320: S737 "A treasure in every sense, but misted over, like condensation on a
cold window. Odd shapes seem visible through the haze: a horse's head, castle
walls, a priest's crook."
3838c: S738 "Sitting on the grass, beside the well, is a glowing golden orb."
383b4: S739 "You half-stand, half-float in a golden, misty sphere perhaps ten
yards across, which slowly spins. The centre, out of reach and somehow
insubstantial, is an eight-by-eight lattice of oblong crystals, bathed in warm
pearly light."
38444: S740 "Images lurk about the array of oblong crystals."
38464: S741 "an"
38468: S742 "They are extremely hard to see and impossible to touch, as if you
can only catch anything at all through the corner of your eye."
384b4: S743 "A warm winter's night in the ancient city of Alexandria, on the
Heptastadion causeway across the harbour to the Island of Pharos (to north).
The Mediterranean waters lap against the land bridge, and the whole city
(southeast) is lit up with torches: it is a night of celebration."
38560: S744 "The island of the Pharos: the lighthouse after which others are
named, one of the Seven Wonders of the World, blazes into the sharp moonlit
sky. It is 120 metres high, a circle on an octagon on a square.

A light wind blows across the coastal defences. On this spot, seventy-two
scholars first translated the Old Testament into Greek: shivering continuously
if it was as chilly as this. A narrow causeway runs south across the harbour."
3866c: S745 "The causeway is the only land route off the island."
38688: S746 "The Pharos is unclimbable, alas."
386a0: S747 "That iron key seems to have washed up here..."
386c0: S748 "...and there's the strange stone again."
386dc: S749 "A rusty seaweed-wreathed iron grating lies open here."
38700: S750 "In one wall of the wave defences is a rusty seaweed-wreathed iron
grating, closed up tight."
38738: S751 "The iron key, out of reach below, is glued somehow to the strange
stone."
38764: S752 "Interestingly, a key which looks as if it would fit the grating
can be seen inside the passage beneath."
387a0: S753 "Oh dear, surely it's gratingly obvious what this fits?"
387c4: S754 "Down on a dark stone jetty, where the waters of the Alexandrian
harbour splash insistently. Rough-hewn steps rise up the island through the
grating."
38820: S755 "A skiff (a small sail-boat) is moored up here."
38844: S756 "You could easily sail away: where you would end is at the mercy of
the tides and the night breeze, since you have no idea how to guide a rudder or
trim a sail."
388a0: S757 "an"
388a4: S758 "A cardioid of the kind favoured by Valentine's cards rather than
surgeons.

It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the
hat and so on."
38910: S759 "There must be more to this marvellous figure somewhere."
38934: S760 "An adamantine heart lies in the skiff."
38950: S761 "As the skiff passes the jaws of the Royal Harbour, beneath the
great Pharos light, you have a final view of the receding civilisation of
Alexandria: ahead lies the vast, oil-calm Mediterranean and moonlight on the
waters."
389d4: S762 "The skiff is not under your control."
389e8: S763 "You drift in the wide, peaceful Lunar sea. Curious fish, their
yellow-green eyes gleaming beneath the silver ripples, brush past your wake:
the night zephyr is almost slack but still you drift. Minutes pass like hours
in paradise."
38a78: S764 "You feel only a drug-like calm."
38a90: S765 "The great crossroads at the heart of chlamys-shaped Alexandria,
greatest city of the civilised world. The northwest-southeast road runs from
the causeway to the Tower: the main road runs southwest from the Necropolis
gate, northeast to the great public buildings of the city."
38b30: S766 "A spacious, sombre, moonlit and magnificent valley of tombs, some
brand new, just outside the walls of Alexandria (to the northeast). Already it
is ancient. Most of the little termite-hill style pyramids have been invaded
time after time: indeed, one pyramid's entrance gapes open to the south."
38be8: S767 "This is no place to wander after dark."
38c00: S768 "some"
38c04: S769 "Birds of prey circle high in the night sky, their talons glinting
in the moonlight."
38c34: S770 "You stand near the tombstone to which the birds of prey were so
inexplicably drawn."
38c64: S771 "You stand near the tombstone, which has become rather more
interesting now that a flight of steps downward has appeared."
38ca8: S772 "It bears just one word of epigram: "GALITA". Below that is a
curious face, with an open empty socket of a mouth."
38cf4: S773 "An amber gem gleams in the mouth of its face."
38d14: S774 "Are you sure it isn't inside out?"
38d2c: S775 "A cloak of many colours lies folded on it."
38d48: S776 "A fine cloak, grey-lined, sapphire-encrusted, rippled across with
rainbow fabrics from the trade routes of the world."
38d90: S777 "A fine grey cloak, sapphire-encrusted, lined with rainbow fabrics
from the trade routes of the world."
38dcc: S778 "Ransacked, dimly-lit, cramped and empty, this rough-built and
uneven burial mound is to the Great Pyramids of Giza (built just a century
before) what the summerhouse in your garden is to Windsor Castle. There are
only dull painted writings, an unpleasant odour and a passage out to the
north."
38e84: S779 "some"
38e88: S780 "One of the so-called Pyramid Texts making up the so-called "Book
of the Dead". This dramatic passage seems to be devoted to wise men preparing
their bodies to rise in the afterlife, anointing themselves with oil. An
interesting motif of ten strokes, arranged

   III IIIIII I

catches the eye."
38f44: S781 "A perfectly-cut room of rose-coloured granite, twelve feet across,
painted in yellows and browns to simulate alabaster panelling. This is the
latest in modern funerary apartments.

There's a couch for visitors, a table, a flight of steps up and a doorway to
the west, flanked by two stone sphinxes."
39000: S782 "No grave would be complete without one."
39018: S783 "two"
3901c: S784 "The sphinxes seem to stare balefully at you."
39038: S785 "A comfortable-looking wooden couch, covered with weave matting."
39060: S786 "One of the sphinxes does have rather a prominent nose, it must be
said."
3908c: S787 "Splendid."
39094: S788 "A perfectly-cut room of rose-coloured granite, twelve feet across,
painted in yellows and browns to simulate alabaster panelling, at the foot of a
flight of steps which leads only to a sealed wall."
3910c: S789 "No grave would be complete without one."
39124: S790 "Stone sphinxes guard the west doorway, staring balefully at you."
3914c: S791 "The weave matting on the couch is now in some disarray."
3916c: S792 "A comfortable-looking wooden couch, covered with weave matting."
39194: S793 "two"
39198: S794 "Two Napoleonic officers stand awestruck as light splashes from
their lanterns over the riches of the tomb."
391d8: S795 "The officers wear the uniforms of the Emperor's 1798 occupation of
the Nile Delta, and carry fine brass lanterns."
39220: S796 "The passage, descending from the east down to the west, is cut
from marble, lined with painted scenes from the fashionable comedies of
Menander, decorated with Alexandrian coloured glass ornaments.

The expression "You can't take it with you" doesn't seem to be popular
hereabouts."
392c8: S797 "Just an east-west passage."
392dc: S798 "You simply can't bear to look. It might be a monkey... at least it
has a tail... No. No, you have to look away."
39324: S799 "Despite the tasteful decor, the most hideously ugly model animal
you have ever seen sits on a little shelf here."
3936c: S800 "Oh dear."
39374: S801 "Exquisite. Simply charming."
39388: S802 "The passage opens out onto the burial chamber below."
393a8: S803 "Unfortunately, the passage slants down only into a solid marble
wall."
393d4: S804 "A really luxurious burial chamber, far beneath the entrance court.

A yard-wide square channel runs away fractionally east of north, in an
apparently endless stooped passage.

On the west wall are three curious sockets, above a painting of a priest of the
half-mythical pharoah Sosostris in full sceptred, grey-clad regalia."
394a8: S805 "The passage rises sharply to the east."
394c0: S806 "Drawn in the odd aspect favoured by the Egyptians, who believed in
ideal angles rather than accurate drawing. The sceptre, only half the size of
the large ones you once saw in the British Museum, looks oddly familiar.

This close to the wall, you notice words written above the three sockets."
3956c: S807 "Golden, kingfisher-blue, smoothly curved, immensely heavy,
beautiful. And final, and dead."
395a8: S808 "A beautiful gold and blue mummy case, or sarcophagus, rests
massively here."
395dc: S809 "the"
395e0: S810 "The sceptre projects from the first socket like a handle."
39600: S811 "The sceptre projects from the second socket like a handle."
39620: S812 "The sceptre projects from the third socket like a handle."
39640: S813 "A copy, half-size, of the one from Tutenkhamun's sarcophagus. It
isn't real gold, either."
3967c: S814 "Of no use to anyone these last two thousand years, sorry!"
396a0: S815 "The great lid of the coffin is open."
396b8: S816 "You lie in the mummy case, your arms folded across each other,
face grimaced, running out of air rapidly and with almost no room to maneouvre.
The coffin lid is about ten times heavier than you, and its seal is very good."
3973c: S817 "an"
39740: S818 "There must be more to this marvellous figure somewhere."
39764: S819 "It reminds you oddly of one of the symbolic pieces in Monopoly -
the car, the boot and so on."
397a0: S820 "An adamantine skull lies here, as if casually dropped by a god's
hand."
397d0: S821 "The great Stadium of Alexandria, with capacity enough to hold the
whole population of the city: and it looks full. Olympic openings in the age of
television have nothing on these people. The procession surges continually in,
around the track and then out again, and amid the bustle you cannot push
through."
39884: S822 "It would be easier to breathe back southwest."
398a4: S823 "Tragically, the Theatre is closed tonight, but roads lead past the
great stepped bowl: north toward the Palace, south to the Museum and west to
the harbour-front."
39904: S824 "The main southwest-northeast road forks off with a road due north
to the Theatre. Despite the kaleidoscopic din you are impressed by the sober
majesty of the Museum of the Ptolemies, whose fine portico entrance, decked
with reliefs, is southeast."
39998: S825 "Reliefs of the cat-god bestride the square-cut entrance. The
fanaticism of the cult of the Cat in Lower Egypt has such a stranglehold that
the image is everywhere. You remember reading somewhere that passers-by in the
street have been torn to death before, just on suspicion of mistreating a
sacred cat."
39a50: S826 "This is not the famous Alexandrian tower (which is not due to be
built by the Emperor Domitian for centuries), just an anonymous little monument
on the same site. It is square-cut inside and there's only a small exit
northwest."
39ad8: S827 "The heavily defaced door opens onto a staircase up."
39af8: S828 "In one wall is a door heavily defaced with writings, the same
word, over and over in a hundred tongues and scripts: the word "Sosostris", in
fact."
39b54: S829 "The stairs end at a shabby room, with screened windows, lit by
incense sticks and sevenbranched candelabra. A doorway with a hanging bead
curtain leads east. In the centre of the room is a table, which is bare."
39bd0: S830 "Peculiarly, the hanging curtain seems to be solid iron when you
walk into it."
39c04: S831 "Madame Sosostris stares at it fixedly as she meditates."
39c2c: S832 "Unmoving."
39c34: S833 "Known to be the wisest woman in Asia Minor."
39c50: S834 "Madame Sosostris, famous clairvoyante, meditates here."
39c78: S835 "It needs to be left to mature, and yet there's something awfully
familiar about it."
39cac: S836 "You seem to have dislodged one of the wooden beams used by the
tomb's builders: a useful length of greenish oak."
39cf0: S837 "Perhaps it could be put aside for later use."
39d10: S838 "Ready to use."
39d1c: S839 "For me? Oh, you shouldn't have... oh, you didn't. Well give it to
someone else then."
39d58: S840 "A silver locket on a thin chain, with a heart-shaped picture of a
knight placing a rose in his lady's hair. Quite nauseously romantic."
39dac: S841 "Down by the sea-front, in the old harbourlands, surrounded by
warehouses. The Mediterranean laps darkly against the hard, splashing an
occasional wave up the slope. The city, and the party, lie back east."
39e28: S842 "There's nowhere to go but the city, east."
39e40: S843 "A grizzled sailor sits at a harbourside table."
39e60: S844 "an"
39e64: S845 "An inscribed six-sided die lies on the table in front of him."
39e8c: S846 "The sides you can see are labelled with short words."
39eac: S847 "The celebrated Library of Alexandria, finest in the entire world,
possessed of hundreds of thousands of books: where the ruling Ptolemies keep
fanatic, infighting scholars almost imprisoned as they turn out rival
commentaries on the ancient poems - hence the nickname.

There is a little door to the south; a dusty corridor southeast; a thoroughfare
east, and a grand entrance northwest."
39f98: S848 "There is a pigeonhole mounted on one wall."
39fb4: S849 "A depository for scrolls."
39fc8: S850 "Surely this is addressed to someone?"
39fe0: S851 "An open-ended hollow tube, marked with a Greek capital Alpha."
3a00c: S852 "An open-ended hollow tube, marked with a Greek capital Kappa."
3a038: S853 "Oh my. "I touch your... and the scent of you rises from... your
beautiful..."  I'd better not read the rest. Strictly for aficionados."
3a090: S854 "All Greek to you, alas. Only a dozen lines or so, though."
3a0b8: S855 "Oh my. Well, the plot, um, there are seven attackers, all with
different shields, one for each of the seven city gates, and it's a civil war
so of course the brothers are really in a duel and there are champions and the
women are upset but it's all because of their brother who was really their
father... Never mind. It's strictly for aficionados."
3a18c: S856 "All Greek to you, alas, and running on for 1000 lines or more."
3a1b8: S857 "This small, dark (by night) room is a repository for Library
supplies: above all, for lamp oil, which is stored in broad shallow earthenware
troughs. Lucky your torch is electric, when you think about it. Anyway, a
passage leads back north."
3a250: S858 "the"
3a254: S859 "The rather neglected hall for the accurate study of geography: as
opposed to the lurid travellers' tales preferred by most writers in this
slapdash century. Nobody is working here, and one can only file back
northwest."
3a2d8: S860 "In order to make sure the geographers don't get lost, the only
exit is northwest."
3a308: S861 "Protruding from a broken globe of the Earth (marked with very
tentative and approximate maps) is the spindle, the only thing holding it
together."
3a35c: S862 "Perhaps the best work of cartography likely for the next two
thousand years, though it seems unlikely to last the next two hours."
3a3a8: S863 "Don't go waving this about."
3a3bc: S864 "Once the polar axis of a globe."
3a3d0: S865 "A spacious, densely colonnaded corridor, its walls lined with
inset shelves on which are scrolls beyond count, ribboned, dusty,
disintegrating, badly catalogued so that only an expert can find what he
wants."
3a450: S866 "You wander through the columns, but can find no exit save the
thoroughfare west and a little office south."
3a48c: S867 "endless"
3a494: S868 "Even a single book may run for dozens of individual scrolls, and
the titles are hard to interpret: anyway, most of the books are rubbish. Dewey
decimal numbers are not due to be invented for millenia."
3a510: S869 "Apollonius and Callimachus are now engaged in a furious, ugly
brawl, from which it seems unlikely they will emerge for some considerable
time."
3a568: S870 "Apollonius and Callimachus are having a furious, heated, endless
argument about something. They seem well practised at this occupation."
3a5bc: S871 "The expert in question being Callimachus, who is brooding over a
scroll, and hardly aware of your presence."
3a5fc: S872 "Callimachus is famous for something or other. You wonder what..."
3a624: S873 "Apollonius seems to have dropped a mystic scroll in the scuffle."
3a64c: S874 "We in the afterlife, um, have a policy of never commenting on
leaked documents."
3a67c: S875 "Don't you believe it!"
3a68c: S876 "It tells that even the greatest mortal must choose of the three
High [and the next word is illegible], for once and all, but that for each
there is a way. The usual mystic nonsense."
3a6fc: S877 "And Callimachus' purple shoulder-sash has come off."
3a720: S878 "Worn over the shoulder."
3a730: S879 "A tiny office adjoining the colonnades north, this is home to
Apollonius the head Librarian, whose writing implements, table and sand-wells
are scattered untidily about."
3a798: S880 "Apollonius paces about self-importantly in a purple sash, perusing
documents on his desk."
3a7d4: S881 "His aim in life is chiefly to annoy Callimachus, his junior
librarian and the modern poet he despises most."
3a818: S882 "A hugely impressive edifice, and everything you might expect from
the man who conquered the whole of Asia Minor at an age when most people are
starting to think about getting a mortgage.

There are of course guards, but they're trying to catch the procession, so if
you're careful not to draw attention to yourself you could probably sneak in to
the north."
3a8ec: S883 "Scholars are divided on the origin of the "maze" legend: some hold
that to a primitive culture, the Knossos palace was so complex as to seem a
maze, and the king so fearsome as to seem a Minotaur.

Others say the early palaces really were labyrinths to protect sacred altars.

And you think it's because this is a maze of twisty little passages, all
alike."
3a9cc: S884 "Such a slave, a highly trained professional, stands at every
intersection of passages in the palace. They are deaf mutes, to prevent them
overhearing State secrets."
3aa34: S885 "A slave stands impassively by one wall."
3aa50: S886 "The magnificent balcony overlooking the Royal harbour of
Alexandria. In two hundred years' time, Julius Caesar will be besieged here,
and will hold the palace with a tiny force of men against an entire army: and
will lose his heart to Cleopatra...

For the mean time, this is a broad stone balustraded balcony. The coin-bright
moon, low in the sky, reflects off the black waters far below."
3ab44: S887 "There seems to be absolutely no way off the balcony, as the stone
doors to the heart of the palace are sealed shut."
3ab84: S888 "an"
3ab88: S889 "An impressive astronomical mounting stands on a tripod here. But
there is no telescope."
3abc0: S890 "Instead, there is an astrolabe."
3abd8: S891 "At the foot of the Hall is the drive, a long gravel lane
approaching the house through trees.

Since your family are intermittently loading suitcases into the car, which only
makes you feel guilty, the only safe way to creep away is along the public
footpath, to northeast."
3ac78: S892 "Better not - they might catch you."
3ac90: S893 "The fire escape is perilous and leads nowhere. Doubtless it would
be useless in any real fire."
3accc: S894 "The Hall is in the way."
3acdc: S895 "The old carved southern wall of the gardens blocks your way around
the edge of the Hall."
3ad10: S896 "For the first couple of storeys, an old iron zig-zag, and after
that a ladder that might or might not be well-anchored. The gardeners have done
a good job of concealing it behind wistaria which (in any case) looks the
stronger of the two."
3ad9c: S897 "By a stile in the public footpath across the fields to the
village, which lies to the north. Sitting on the stile you have a splendid view
of the house and its battlements. The air is ablaze with pollen and
dragonflies.

It might be possible to scramble down to a hollow, but it surely wouldn't be
pleasant."
3ae54: S898 "The footpath turns from southwest to north."
3ae70: S899 "A low, muddy, stinking hollow, trodden with reeds, dried out in
the long summer and no more than moist now. You could climb back up, or go
northwest, though that would mean crawling through a thorny hedge."
3aeec: S900 "There's a bird's nest at the bottom of the hollow."
3af0c: S901 "A bunch of nuts, left over from last autumn."
3af28: S902 "Do you know, I love nuts, but I have to be so careful what I eat
now... Still, the little ones will have them."
3af70: S903 "Nuts to you too."
3af7c: S904 "Entwined in the nest is a bunch of nuts."
3af94: S905 "And sat upon it is, as you might expect, a bird: a corn crake, in
fact."
3afc0: S906 "A rail with a distinctive cry. And a possessive look."
3afe4: S907 "Beside the long triangle of the green, under the stone cross of
the First World War memorial. The public footpath runs south to a stile. The
village is tiny: the parish church, the "Goat and Compasses" pub (which, owing
to quaint English licensing laws, is closed) and a few houses and desultory
tea-shops for tourists visiting Meldrew Hall."
3b0b4: S908 "You wander around the peaceful green for a while, but there's
nothing to do."
3b0e0: S909 "Old Evans, the village racing enthusiast, sits on the steps of the
memorial, combing the back pages of his "Racing Times" newspaper."
3b134: S910 "In the band of his hat is his lucky mascot: a little picture of
the crescent moon."
3b164: S911 "Old Evans' hat is empty. You feel terribly guilty."
3b188: S912 "The stone cross, for the fallen of the Great War of 1914-18,
contains more names than there are houses in the village.

Your eye is caught by Second Lieutenant Gerard Meldrew of the 19th/21st Rifles,
and you shiver, although the afternoon is warm."
3b228: S913 "The fourteenth-century Church of St Michael and All Angels doesn't
seem to be locked up, exactly - just barred from the other side."
3b280: S914 "In the days of Oliver Cromwell, it was called "God Encompasseth",
but the locals have worn down the name over the centuries to "Goat and
Compasses". It is of course closed, owing to the licensing laws. You
congratulate yourself on living in such a modern, forward-looking country."
3b32c: S915 "The monkey sits on Evans' shoulder, cheeping with excitement.
Evans has found a pet, and is so gruffly delighted that he has forgotten all
about the mascot you stole. Now if he could only predict the 3.40 at Borchester
Mills..."
3b3bc: S916 "Some kind of crescent moon, an old Druidical symbol."
3b3e0: S917 "It leads nowhere."
3b3ec: S918 "The front page story ("Lord Lucan's new acquisition Shergar comes
out of retirement to win the Grand National") is so boringly unsensational that
you quickly lose interest. But Evans is eternally fascinated with minute
details of the form of the horses, tomorrow's race meetings, current odds
quoted by the bookmakers, and so on."
3b4b8: S919 "Racing aficionados consider it lucky to wear mascots in the bands
of their hats."
3b4e8: S920 "Before this was the Norman church of St Michael and All Angels, it
was a Saxon one: this is an ancient site. A great space of stone, filled with
dark wooden pews and woven mattings. Flowers left over from Sunday grace the
lectern and altar. A narrow stair leads upward, and the village green lies to
the south.

Old side chapels lie east and west."
3b5c4: S921 "The church door is open."
3b5d4: S922 "the"
3b5d8: S923 "A passage slants down through a solid crystal doorway in the
Moonstone."
3b604: S924 "Set into the floor, and slightly raised, is the Moonstone, an
ancient broad flagstone the size of a door, inscribed with a crescent moon."
3b658: S925 "The Moonstone is very old, probably pre-dating the rest of the
church by some centuries. Legends about it abound: some say the spirits of the
departed pass beneath. Old iron rings are set in it, but nobody has ever
succeeded in lifting the colossal weight."
3b6f4: S926 "An alcove in the ancient west side of the church, beneath stained
glass windows of the Resurrection."
3b730: S927 "The church lies east."
3b740: S928 "an"
3b744: S929 "The statue is half-skeleton, and you can see clear through the
bones."
3b76c: S930 "the"
3b770: S931 "The adamantine knight stands staunchly here."
3b78c: S932 "Diana's tall marble statue bathes in the moonlight: and a flower
is placed gaily in her hair."
3b7c4: S933 "The knight stands here, bowing toward Diana."
3b7e0: S934 "The knight stands clasping the flower."
3b7f4: S935 "The knight stands staunchly here."
3b808: S936 "A small clear space to the side of the church, in a bay ringed
with stained glass windows of the Nativity."
3b848: S937 "The church lies west."
3b858: S938 "A tall marble statue of Diana stands here: a find from the nearby
Roman remains."
3b888: S939 "There is a sly look in her eye as she smiles aslant."
3b8a8: S940 "The bell-ringing chamber, half-way up the church tower. Thick
braided ropes hang down, tailing into sashes. A plaque on one wall announces
that in 1901, ten men (Roger Meldrew among them) rang a Kent Triple Bob."
3b930: S941 "The ropes are too smooth and noisy to climb."
3b94c: S942 "eight"
3b950: S943 "There is a beautiful view over the green parceled farmlands and
hills surrounding the village, and you feel a certain pride to see Meldrew Hall
sitting amongst it. It's also windy and dangerous up here on the grey lead
spire of the parish church, beside the old clock: fortunately an opening leads
down into the clerestory."
3ba0c: S944 "an"
3ba10: S945 "Like a solid glove.

It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the
car and so on."
3ba5c: S946 "There must be more to this marvellous figure somewhere."
3ba80: S947 "Mounted loosely on the end of the weathervane, an adamantine hand
points the way the wind blows."
3bab8: S948 "William Snelson's"
3bac8: S949 "The clock stands at ten past three, as it has done for some years.
According to a small commemorative plaque, it was the work of William Snelson
the Clockmaker (1776-1848)."
3bb38: S950 ""In the premonition, it is vital to get hold of the mascot for
later use.""
3bb64: S951 ""It's no use poking about on the attic floor for fresh torch
batteries, because there aren't any.""
3bba0: S952 ""Your Aunt Jemima is not the kind of woman to be distracted by
music or frivolous presents, mark my words.""
3bbe0: S953 ""Novels are, of course, invariably written by people using their
real names, not disguised in any way.""
3bc24: S954 ""The thing about daisies is, they are the same all year round, not
changing with the calendar.""
3bc5c: S955 ""Modern medicine bottles can even withstand falls from a great
height. I should try heat if I were you.""
3bc9c: S956 ""You can easily get a grip on the demijohn with your bare hands.""
3bcc4: S957 ""The answer's the same, whichever bottle you meant. That counts as
your hint, I'm afraid. Not very fair, but then I am a demon.""
3bd18: S958 "The demon acknowledges the question, but cannot bring himself to
speak of Heaven."
3bd48: S959 ""Hell?  Oh this isn't your eternal damnation, it's mine, having to
answer all these wretched questions. No, Hell itself is a marvellous place, and
it has an excellent health club too. Look forward to seeing you there.""
3bdd4: S960 ""Don't worry, there's nothing written there. No need to look at
the problem in a fresh light.""
3be10: S961 ""History never repeats itself, so it's pointless looking him up in
the book.""
3be44: S962 ""The really interesting stuff is at the very start of his working
life.""
3be70: S963 ""Forget it, there's no way to return from the museum, and Doktor
Stein's medicine has no antidote.""
3beb0: S964 ""Merlyn doesn't really come into this. Try working on something
else.""
3bee0: S965 ""Literally, Merlyn's actual hat. Green pointy felt, I wouldn't
wonder.""
3bf14: S966 ""The answer's the same, whichever book you meant. That counts as
your hint, I'm afraid. Not very fair, but then I am a demon.""
3bf68: S967 ""Ebenezer?  He's absolutely central to this. Concentrate on him,
definitely.""
3bfa0: S968 ""Trouble with holiday snaps is, once somebody gets the old slide
projector going, a boring time is on the cards for all.""
3bfe8: S969 ""You'll need to be wide awake and alert to work out what to do
with them. Finding them is easy - just remember to keep an eye out for short,
fat things.""
3c044: S970 ""Clairvoyantes are expert at detecting stacked decks, so it's no
good cheating.""
3c078: S971 ""Phlebas runs a very badly-advertised service, I'm afraid. I've
got no time for him.""
3c0b4: S972 ""Once the mouse is in the hole, forget it, it couldn't hear you
even if you talked to the hole instead. But there is an alternative method.""
3c10c: S973 ""Your fault for letting the key get into the foundations - nothing
can get in there to retrieve it.""
3c144: S974 ""Marvellous, marvellous contraption. Starts the moment you switch
it on, and then nothing but solid gold classics all the way. You can really
concentrate when that's playing.""
3c1ac: S975 ""What, the blocked-up old fireplace that doesn't lead anywhere?
You need to be carrying plenty of equipment to get down it - don't worry if
it's dark at the bottom, after all there's nothing you can do about that.""
3c234: S976 ""The sandstone recess is probably impassible. Better try only when
you're wide awake.""
3c26c: S977 ""Austin's a perfect devil, isn't he?  She, I should say. Good for
nothing except getting in the way, of course. Walks into walls just when you
don't want, but at least Jemima calms her down.""
3c2ec: S978 ""Smoke detectors like yours are specially rigged not to be
triggered by accidental shafts of light.""
3c330: S979 ""Of course the ship is far too large and ungainly ever to fit in
the bottle.""
3c360: S980 ""Cold comfort.""
3c36c: S981 ""A good blanket might be a plain, colourless sort of covering with
no emblem to it.""
3c3a4: S982 ""The thing about the revolving door is, you can only revolve it
when you're already standing inside.""
3c3e0: S983 ""Unbreakable glass.""
3c3f0: S984 ""A vital clue, and useful in its own right.""
3c410: S985 ""The greatest computer game of all time. I'm proud to be a part of
it.""
3c43c: S986 "The demon blushes. "Wasn't my fault!  My partner made a mess of
it.""
3c46c: S987 ""Heaven?  Oh this isn't your eternal salvation, it's mine, able to
serve by answering all these delightful questions. No, Heaven itself is a
marvellous place, and it has an excellent health club too. Look forward to
seeing you there.""
3c500: S988 "The angel acknowledges the question, but cannot bring herself to
speak of Hell."
3c530: S989 ""The rods definitely fit into all this somewhere.""
3c550: S990 ""If only you could have been there when the maze was being laid
out!""
3c57c: S991 ""The master game is like a point at infinity to we mortals," the
angel says wistfully."
3c5b0: S992 ""All a matter of fitting the rods in somewhere.""
3c5d0: S993 ""How she must long to let her hair down now, instead of being
chained to that rock," the angel says sorrowfully. "But in deference to her
wishes, I cannot help you rescue her.""
3c640: S994 ""Amazing fortune you must have in finding it, I can tell.""
3c664: S995 ""Ah yes, we must all lament for human folly," says the angel,
misunderstanding completely."
3c69c: S996 ""Zeus wasn't a true god, of course," the angel predictably
insists, "just a manifestation of the laws of physics to an Ancient Greek, a
kind of symbol for the way the universe fundamentally worked.""
3c718: S997 "The angel maintains a tight-lipped silence."
3c734: S998 ""That's too dangerous a rod to actually use, of course, and the
Church no longer approves of martyrs.""
3c774: S999 ""Is there really such a thing as luck, or free will?  It's a
theological grey area," says the angel with fine casuistry."
3c7c4: S1000 ""Certainly a thorny problem, that.""
3c7e0: S1001 ""Old Evans would never give you his mascot of his own free
will.""
3c80c: S1002 ""One has to reflect on ugliness like that.""
3c82c: S1003 ""It's quite hypnotically fascinating, don't you think?""
3c854: S1004 ""Squirrels are very fond of nuts, but you can't trust them an
inch.""
3c884: S1005 ""Just think what that would do to a decent lawn!  Oh, it makes me
go cold all over.""
3c8bc: S1006 ""Whatever is a croquet lawn for, if not to play croquet?
Although, now I think about it, there is something else down there.""
3c910: S1007 ""Ah yes, a code word understood by certain of Alexander the
Great's slaves. But you'd have to be in the right place at the right time.""
3c964: S1008 ""The mouth is the key, or rather the lock.""
3c980: S1009 ""Do be careful. The sphinxes are only made of stone, but they
could easily give you nightmares.""
3c9c0: S1010 ""Jolly comfortable, some of those funeral couches.""
3c9e4: S1011 ""A one-way ride, but that's life.""
3ca00: S1012 ""Once fired with life, the knight will only be yours to command
when he has discharged his chivalric duty.""
3ca44: S1013 ""Some of those ancient knights were rather loose, but perhaps
that's better than being screwed up.""
3ca84: S1014 ""The Great Library isn't for passing hooligans, you know," says
the angel reprovingly. "Besides, the guards understand their duty by the Cat
God far too well to let you through.""
3caf4: S1015 ""They're always at each other's throats. I shudder to think what
might happen if a real fight broke out.""
3cb38: S1016 ""Oh, find yourself a costume, join the party!""
3cb58: S1017 ""The green wood may one day make a really good staff, but it
could take ages. Better leave it with someone for safe keeping.""
3cba4: S1018 ""Some choices are inevitable and permanent, at least in this
world.""
3cbd4: S1019 ""Do be careful of the trap, won't you!  You might want to take
precautions with the opening.""
3cc0c: S1020 ""Let me see.""
3cc18: S1021 ""You appreciate, in my position I can't really comment on graven
images of pagan gods. Better try some dictionary or other.""
3cc64: S1022 ""That woman will rabbit on, once you set her off. But only if you
sacrifice something. Will you be joining us next Harvest Sunday, by the way?""
3ccc0: S1023 ""Ooh, it does make me shiver, thinking of the way they used to
pour oil over themselves, anointing they called it.""
3cd08: S1024 ""Shabby old gossip, Homer, always reminds me of Peter Falk.
Anyway, just give him his answers. Shouldn't be too hard, with what you're
wearing and carrying.""
3cd70: S1025 ""Going in round the front just scares the birds away, I fear.""
3cd98: S1026 ""Find out what you can about your ancestor who built it - his
tomb isn't far away. Then reflect as best you can on the problem.""
3cde8: S1027 ""Well, if you know what the odour is, that's the main thing.""
3ce10: S1028 "Hell, you always imagined, would contain fiery, sulphurous pits
and a great many gentlemen with forked tails. You were right about the last
part. A demon is sitting behind a flame-proofed desk at the bottom of the
stairs. There are some disconcerting screams from further away, but nothing to
worry about. Not in this life, anyway."
3ced8: S1029 "If you were to cast a film of your adventures so far, you would
hire Donald Sutherland to play this gentleman."
3cf20: S1030 "Heaven, you always imagined, would be a world of marble pillars,
fluffy clouds, harps and angelic ladies with serene expressions. You were right
about the last part. An angel is sitting here behind some new office furniture,
next to a blue Tourist Information sign. A bridge of cloud extends south across
the sky to the beanstalk. There is some choral singing going on somewhere, but
not loud enough for you to hear properly. Not in this life, anyway."
3d034: S1031 "If you were to cast a film of your adventures so far, you would
hire Dame Judi Dench to play this lady."
3d078: S1032 "a cake of"
3d080: S1033 "That's the spirit, keep it up!"
3d094: S1034 "Really!  How disgraceful!"
3d0a8: S1035 ""For foulmouths everywhere"."
3d0c0: S1036 "Information is available on the following subjects:

     Instructions    giving some basic information
     Commands        detailing some common commands
     Credits         game credits
     Release         release notes
     Legal           legal disclaimers
     Inform          advertising the compiler Inform
     Archive         and the interactive fiction archive"
3d1b0: S1037 "Curses"
3d1b4: S1038 "Instructions"
3d1bc: S1039 "Commands"
3d1c4: S1040 "Cast of Thousands"
3d1d0: S1041 "Release Notes"
3d1dc: S1042 "Legal Notes"
3d1e8: S1043 "Inform"
3d1f0: S1044 "ftp.gmd.de"
3d1f8: S1045 "Four be the things I'd been better without:"
3d214: S1046 "Love, curiosity, freckles and doubt."
3d230: S1047 "-- Dorothy Parker, "Inventory""
3d24c: S1048 "It seemed that the next minute they would discover"
3d26c: S1049 "a solution. Yet it was clear to both of them that"
3d288: S1050 "the end was still far, far off, and that the"
3d2a4: S1051 "hardest part was just beginning."
3d2bc: S1052 "-- Anton Chekhov, "The Lady with the Dog""
3d2dc: S1053 "                           The mouse"
3d2f4: S1054 "Behind the mouldering wainscot shrieked."
3d30c: S1055 "-- Alfred, Lord Tennyson, "Mariana""
3d32c: S1056 "Parturient montes, nascetur ridiculus mus."
3d34c: S1057 "-- Horace, "Ars Poetica""
3d364: S1058 "Zeus, whose will has marked for man"
3d378: S1059 "A single way where wisdom lies"
3d38c: S1060 "Ordained one eternal plan:"
3d3a0: S1061 "Man must suffer to be wise."
3d3b4: S1062 "-- Aeschylus, "Agamemnon""
3d3cc: S1063 "I might repeat to myself, slowly and soothingly,"
3d3ec: S1064 "a list of quotations beautiful from minds profound;"
3d40c: S1065 "if I can remember any of the damn things."
3d424: S1066 "-- Dorothy Parker"
3d434: S1067 "More ways of killing a cat"
3d444: S1068 "than choking her with cream."
3d458: S1069 "-- Charles Kingsley"
3d468: S1070 "I would like to be there,"
3d47c: S1071 "were it but to see how the cat jumps."
3d494: S1072 "-- Sir Walter Scott"
3d4a4: S1073 "Do not go gentle into that good night."
3d4bc: S1074 "Rage, rage against the dying of the light."
3d4d4: S1075 "-- Dylan Thomas"
3d4e4: S1076 "No, 'tis not so deep as a well, nor so wide as"
3d504: S1077 "a church door; but 'tis enough, 'twill serve."
3d524: S1078 "-- Shakespeare, "Romeo and Juliet""
3d540: S1079 "...I have just signed legislation that will outlaw"
3d560: S1080 "Russia for ever. We begin bombing in five minutes."
3d584: S1081 "-- President Reagan, mistakenly believing the TV"
3d5a8: S1082 "   cameras were switched off"
3d5bc: S1083 "What is a ship but a prison?"
3d5d0: S1084 "-- Robert Burton (1577-1640)"
3d5f0: S1085 "The remarkable fact is that the values of these"
3d60c: S1086 "numbers seem to have been very finely adjusted"
3d62c: S1087 "to make possible the development of life."
3d644: S1088 "-- Stephen Hawking, "A Brief History of Time""
3d668: S1089 "Remember that you are an Englishman, and have"
3d684: S1090 "consequently won first prize in the lottery of life."
3d6a4: S1091 "-- Cecil Rhodes (1853-1902)"
3d6c0: S1092 "Les plus desesperes sont les chants les plus beaux"
3d6e4: S1093 "Et j'en sais d'immortels quit sont de purs songlots."
3d708: S1094 "-- Alfred de Musset, "La Nuit de mai""
3d728: S1095 "There is no return game between a man and his stars."
3d748: S1096 "-- Samuel Beckett, "Murphy""
3d760: S1097 "Throw away thy rod,"
3d770: S1098 "Throw away thy wrath:"
3d780: S1099 "O my God."
3d788: S1100 "Take the gentle path."
3d798: S1101 "-- George Herbert, "Discipline""
3d7b4: S1102 "Speak gently, she can hear"
3d7c8: S1103 "The daisies grow."
3d7d4: S1104 "-- Oscar Wilde, "Requiescat""
3d7ec: S1105 "Too poor for a bribe, and too proud to importune"
3d808: S1106 "He had not the method of making a fortune."
3d820: S1107 "-- Thomas Grey, "Sketch of His own Character""
3d844: S1108 "Facilis descensus Averno:"
3d858: S1109 "Noctes atque dies patet atri ianua Ditis;"
3d878: S1110 "Sed revocare gradum superasque evadere ad auras,"
3d898: S1111 "Hoc opus, hic labor est."
3d8ac: S1112 "-- Virgil, "The Aeneid" Book VI:126"
3d8cc: S1113 "We are the children of primeval night; we bear"
3d8ec: S1114 "The name of Curses in our home deep under earth."
3d90c: S1115 "-- Aeschylus, "The Eumenides""
3d924: S1116 "Thou makest his beauty to consume away,"
3d93c: S1117 "Like as it were a moth fretting a garment:"
3d958: S1118 "Every man therefore is but vanity."
3d970: S1119 "-- Psalms 39:12 (Book of Common Prayer version)"
3d998: S1120 "White lilac bowed,"
3d9a8: S1121 "Lost lanes of Queen Anne's lace"
3d9c0: S1122 "And that high-builded cloud"
3d9d4: S1123 "Moving at summer's pace."
3d9e8: S1124 "-- Philip Larkin, "Cut Grass""
3da04: S1125 "At the end of the day victory belongs to the Curses,"
3da24: S1126 "Who shout in shrill triumph"
3da38: S1127 "Over the utter rout of the defeated house."
3da50: S1128 "-- Aeschylus, "Seven Against Thebes""
3da6c: S1129 "He shall separate them one from another,"
3da84: S1130 "as a shepherd divideth his sheep from the goats."
3daa0: S1131 "-- Matthew 25:32"
3dab0: S1132 "Quickly now the amber"
3dabc: S1133 "  Takes the fly with knees deranged"
3dad0: S1134 "To be buried unseen, unfound"
3dae4: S1135 "  And irrevocably changed."
3daf8: S1136 "-- Dean Waynflete, "Substance""
3db14: S1137 "Thus the devil played at chess with me, and yielding"
3db34: S1138 "a pawn, thought to gain a queen of me, taking"
3db50: S1139 "advantage of my honest endeavours."
3db68: S1140 "-- Sir Thomas Browne, "Religio Medici" pt I"
3db8c: S1141 "Art thou pale for weariness"
3dba0: S1142 "Of climbing heaven and gazing on the earth?"
3dbbc: S1143 "-- Shelley, "To The Moon""
3dbd4: S1144 "A nice, - respectable, - middle class, middle-aged maiden"
3dbfc: S1145 "lady, with time on her hands and the money to help her pass"
3dc1c: S1146 "it... Let us call her Aunt Edna... Aunt Edna is universal,"
3dc48: S1147 "and to those who may feel that all the problems of the"
3dc68: S1148 "modern theatre might be solved by her liquidation, let me"
3dc8c: S1149 "add that... she is also immortal."
3dca4: S1150 "-- Terence Rattigan, preface to the "Collected Plays""
3dccc: S1151 "I seemed to move among a world of ghosts,"
3dce8: S1152 "And feel myself the shadow of a dream."
3dd00: S1153 "-- Alfred, Lord Tennyson, "The Princess""
3dd20: S1154 "If the doors of perception were cleansed,"
3dd3c: S1155 "everything would appear to man as it is, infinite."
3dd5c: S1156 "-- William Blake"
3dd6c: S1157 "Follow the instructions,"
3dd7c: S1158 "tell us what you think:"
3dd8c: S1159 "they lose something in translation,"
3dda4: S1160 "they might as well be written in invisible ink."
3ddc4: S1161 "-- Peter Hammill, "Invisible Ink""
3dde0: S1162 "On a round ball"
3ddec: S1163 "A workman that hath copies by, can lay"
3de08: S1164 "An Europe, Afrique and an Asia,"
3de20: S1165 "And quickly make that, which was nothing, All."
3de3c: S1166 "-- John Donne, "Valediction: Of Weeping""
3de5c: S1167 "What you don't know would make a great book."
3de7c: S1168 "-- The Rev. Sydney Smith"
3de90: S1169 "Sir Walter Elliot, of Kellynch-hall, in Somersetshire,"
3deb8: S1170 "was a man who, for whose own amusement, never took up"
3dedc: S1171 "any book but the Baronetage; there he found occupation"
3df00: S1172 "in an idle hour, and consolation in a distressed one"
3df20: S1173 "-- Jane Austen, "Persuasion""
3df38: S1174 "I am the Love that dare not speak its name."
3df54: S1175 "-- Lord Alfred Douglas, "Two Loves""
3df74: S1176 "'I am inclined to think -' said I."
3df90: S1177 "'I should do so,' Sherlock Holmes remarked"
3dfb0: S1178 "impatiently."
3dfbc: S1179 "-- Sir Arthur Conan Doyle, "The Valley of Fear""
3dfe4: S1180 "Hell is a city much like London -"
3dffc: S1181 "A populous and a smoky city."
3e010: S1182 "-- Shelley, "Peter Bell the Third""
3e02c: S1183 "I hope I shall never be deterred from detecting"
3e048: S1184 "what I think a cheat, by the menaces of a ruffian."
3e068: S1185 "-- Dr Johnson (a letter from 1775)"
3e084: S1186 "Expatiate free o'er all this scene of man;"
3e0a0: S1187 "A mighty maze! but not without a plan."
3e0b8: S1188 "-- Alexander Pope, "An Essay on Man""
3e0d8: S1189 "It's hard to be religious when certain people"
3e0f8: S1190 "are never incinerated by bolts of lightning."
3e114: S1191 "-- Bill Watterson, "Calvin & Hobbes""
3e134: S1192 "Follow me, follow"
3e140: S1193 "Down to the hollow"
3e14c: S1194 "And there let us wallow"
3e15c: S1195 "In glorious mud."
3e168: S1196 "-- Flanders and Swann"
3e178: S1197 "Zoe, logic merely enables one"
3e18c: S1198 "to be wrong with authority"
3e19c: S1199 "-- Dr Who, aboard "The Wheel In Space""
3e1bc: S1200 "Then for as moche as a philosofre saith,"
3e1d4: S1201 ""he wrappith him in his frend, that condescendith"
3e1f4: S1202 "to the rightfulle praiers of his frend,""
3e20c: S1203 "therefore have I yeven the a suffisant Astrolabie"
3e22c: S1204 "as for oure orizonte, compowned after the"
3e244: S1205 "latitude of Oxenforde;"
3e258: S1206 "-- Geoffrey Chaucer, "A Treatise on the Astrolabe""
3e280: S1207 "Upon a nyght in sleep as he hym leyde,"
3e29c: S1208 "Hym thoughte how that the wynged god Mercurie"
3e2b8: S1209 "Biforn hym stood and bad hym to be murie."
3e2d4: S1210 "His slepy yerde in hond he bar uprighte;"
3e2f0: S1211 "An hat he werede upon his heris brighte."
3e308: S1212 "-- Geoffrey Chaucer, "The Knight's Tale""
3e328: S1213 "Benedick:"
3e330: S1214 "  To bind me or undo me, one of those."
3e348: S1215 "-- Shakespeare, "Much Ado About Nothing""
3e368: S1216 "In the central display case, there is a curious"
3e384: S1217 "pottery model, either representing the Labyrinth"
3e3a4: S1218 "of Minos or a water-cooling system."
3e3bc: S1219 "-- W. J. Murnane's "Guide to Ancient Egypt""
3e3e0: S1220 "I don't know who was there before me:"
3e3fc: S1221 "One person, several, none;"
3e410: S1222 "It doesn't matter."
3e420: S1223 "There are marks on the slabs of rock,"
3e438: S1224 "Some beautiful, all mysterious;"
3e450: S1225 "Some certainly not made by human hands."
3e46c: S1226 "-- Primo Levi, "A Valley""
3e484: S1227 "It has always seemed to me that I had to answer"
3e4a4: S1228 "questions which fate had posed to my forefathers,"
3e4c0: S1229 "and which had not yet been answered, or as if I"
3e4dc: S1230 "had to complete, or perhaps continue, things which"
3e4f8: S1231 "previous ages had left unfinished."
3e510: S1232 "-- Carl Jung, "Memories, Dreams, Reflections""
3e534: S1233 "happy Tourist."
3e540: S1234 "very nearly happy Tourist."
3e554: S1235 "master Druid."
3e560: S1236 "journeyman Druid."
3e570: S1237 "apprentice Druid."
3e580: S1238 "Master Navigator."
3e590: S1239 "Navigator."
3e598: S1240 "Voyager."
3e5a0: S1241 "Explorer."
3e5a8: S1242 "expert Traveller."
3e5b8: S1243 "Traveller."
3e5c0: S1244 "Adventurer."
3e5cc: S1245 "Connoisseur."
3e5d8: S1246 "Jack-of-all-trades."
3e5e8: S1247 "amateur Adventurer."
3e5f8: S1248 "Dilettante."
3e604: S1249 "cynical Tourist."
3e610: S1250 "experienced Tourist."
3e620: S1251 "seasoned Tourist."
3e630: S1252 "casual Tourist."
3e63c: S1253 "gauche Tourist."
3e648: S1254 "hapless Tourist."
3e654: S1255 "accursed Tourist."
3e660: S1256 "irresponsible deity."
3e670: S1257 "There are paths only west and northwest."
3e68c: S1258 "The timber prop leans against the tottering Folly, supporting
it."
3e6b4: S1259 "Drop the robot mouse where Austin can get at it"
3e6d0: S1260 "Shut Austin out of the attic with the trap door"
3e6ec: S1261 "Ram or knock on various doors"
3e700: S1262 "Cast all the rods on yourself"
3e714: S1263 "Ask the demon and angel about Heaven and Hell"
3e734: S1264 "Eat a genuine Ekmek special (look it up in the dictionary for
details)"
3e760: S1265 "Other anagrams of "Marie Swelldon", found by Michael Kinyon,
include..."
3e798: S1266 "Demeanor Wills"
3e7a4: S1267 "Domineer Walls"
3e7b0: S1268 "Amino Dwellers"
3e7bc: S1269 "Enrolled Swami"
3e7c8: S1270 "Lemonade Swirl"
3e7d4: S1271 "Mellowed Rains"
3e7e0: S1272 "Dowel Minerals"
3e7ec: S1273 "Seminole Drawl"
3e7f8: S1274 "Allowed Miners"
3e804: S1275 "Almoner Wields"
3e810: S1276 "Mellows Rained"
3e81c: S1277 "Mineral Slowed"
3e828: S1278 "Moraine Dwells"
3e834: S1279 "Mellow Sardine"
3e840: S1280 "Sawmill Redone"
3e84c: S1281 "Soldier Lawmen"
3e858: S1282 "Swindle Morale"
3e864: S1283 "The 1970s robot mouse is capable of speech recognition."
3e888: S1284 "Mentioning a bridge game (between Sir Joshua Meldrewe and the
Prince of Wales) which took place a century before the invention of bridge. (In
this release, they play piquet.)"
3e8f4: S1285 "Locating Alexandria in "Upper Egypt". Actually it's in Lower
Egypt - the Nile flows from south to north."
3e93c: S1286 "The "brass" key is no longer really brass (examine it!) since
brass is unmagnetic."
3e974: S1287 "The lighthouse in the fifth century BC, the period of city
states, is named after the Pharos, yet to be built in Alexandria during the
Hellenic era. (Quinquiremes are contemporary with the frieze, though.)"
3e9f4: S1288 "

     Frivolous things to do
     About Callimachus and Apollonius
     An epigram by Callimachus
     Salmon Wielder
     Wistaria or wisteria?
     Great Curses mistakes
     The ancient languages
"
3ea84: S1289 "For your amusement"
3ea90: S1290 "Frivolous things to do"
3eaa0: S1291 "About Callimachus and Apollonius"
3eab8: S1292 "An epigram by Callimachus"
3eacc: S1293 "Salmon Wielder"
3ead8: S1294 "Wistaria or wisteria?"
3eae8: S1295 "Great Curses mistakes"
3eaf8: S1296 "The ancient languages"
3eb08: S1297 "Giving Aunt Jemima the wrapped parcel;"
3eb1c: S1298 "Or the chocolate biscuit;"
3eb30: S1299 "Or kissing her;"
3eb3c: S1300 "Attracting Bateau Phlebas by waving the poster (which can be torn
down);"
3eb6c: S1301 "Casting the Rod of Fire at the medicine bottle to try and open it
(as advised by demon);"
3eba8: S1302 "Trying the postcard in the slide projector;"
3ebc4: S1303 "Or the Alexandrian sketch when it's still framed;"
3ebe8: S1304 "Eighty-one. The inspiration for the radio station came about when
the author was driving at midnight through Oxfordshire and the local station
played, in succession, the Moonlight Sonata, the Four Seasons, You Take My
Breath Away and Gold. So the radio plays the 80 most hackneyed radio tunes the
author could think of."
3ecac: S1305 "Not counting everyday death, winning or the various ways of
almost but not quite coming to an end..."
3ecec: S1306 "Missing the point entirely"
3ecfc: S1307 "Being spooked"
3ed08: S1308 "In checkmate"
3ed14: S1309 "Being transported to Australia"
3ed28: S1310 "Facing a prison term as a terrorist"
3ed40: S1311 "Being annihilated by a temporal paradox"
3ed5c: S1312 "Becoming a constellation"
3ed6c: S1313 "If magic, the daisy chain rustles (according to inventories) when
you are carrying something which could turn into a rod if waved."
3edc0: S1314 "Likewise, the yellow daisy (from Roman Britain) twitches."
3edec: S1315 "Not only the title, but the plan and a good deal of the
incidental symbolism of the Unreal City were taken from early poems of T. S.
Eliot (which owed a bit to Baudelaire), and I recommend them (apart from the
great interest of the poems themselves) to any who think such elucidation worth
the trouble."
3eea0: S1316 "The handkerchief is not Jemima's but belongs to J. Alfred
Prufrock (though cf. "The Waste Land" l. 178)."
3eeec: S1317 "By dropping it down the empty dumbwaiter shaft;"
3ef0c: S1318 "Putting it at the foot of the shaft, and dropping the dumbwaiter
on it;"
3ef38: S1319 "Running over it in the garden roller;"
3ef50: S1320 "Dropping it from the top of the beanstalk;"
3ef68: S1321 "Or from the top of the mast of the Lady Magdalena;"
3ef88: S1322 "Aunt Jemima can open it..."
3ef94: S1323 "

     1. What are the "good but wrong guesses"?
     2. How many songs does the radio play?
     3. In what *** ways *** can the game end?
     4. What are the secret ways to detect a Rod?
     5. What can you see in the crystal ball?
     6. Where are Dame Judi Dench and Donald Sutherland?
     7. Explain the handkerchief initials and the graffiti.
     8. How many tarot cards are there altogether?
     9. How can the medicine bottle be opened?
     10. What is the mascot for in the premonition?
"
3f0ec: S1324 "Trivia questions"
3f0f8: S1325 "1. What are the "good but wrong guesses"?"
3f114: S1326 "2. How many songs does the radio play?"
3f130: S1327 "3. In what *** ways *** can the game end?"
3f158: S1328 "4. What are the secret ways to detect a Rod?"
3f174: S1329 "5. What can you see in the crystal ball?"
3f18c: S1330 "6. Where are Dame Judi Dench and Donald Sutherland?"
3f1b0: S1331 "7. Explain the handkerchief initials and the graffiti."
3f1d4: S1332 "8. How many tarot cards are there altogether?"
3f1f4: S1333 "9. How can the medicine bottle be opened?"
3f210: S1334 "10. What is the mascot for in the premonition?"
3f22c: S1335 "

     For your amusement
     Trivia questions
"
3f250: S1336 "Amusements"
3f258: S1337 "For your amusement"
3f264: S1338 "Trivia questions"
3f270: S1339 "Nine times she waved the fluttering wimple round,"
3f290: S1340 "And made a little plot of magic ground."
3f2a8: S1341 "And in that daisied circle, as men say,"
3f2c4: S1342 "Is Merlin prisoner till the judgement day..."
3f2e4: S1343 "-- Matthew Arnold, Tristram and Iseult III (1852)"
3f310: S1344 "Curses are like young chickens,"
3f328: S1345 "they always come home to roost."
3f33c: S1346 "-- Robert Southey (1774-1843),"
3f35c: S1347 "   "The Curse of Kehama""
3f370: S1348 "Let Rome in Tiber melt, and the wide arch"
3f38c: S1349 "Of the ranged empire fall! Here is my space."
3f3ac: S1350 "Kingdoms are clay."
3f3b8: S1351 "-- Shakespeare, "Antony and Cleopatra" I:1"

[End of text at 3f3dc]

[End of file]
